From 2ff4c174e381d3a4bd514e1dcdcb8c9726d42031 Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <banzaj28@yandex.ru>
Date: Fri, 18 May 2018 12:12:28 +0300
Subject: [PATCH] Added toolbar

---
 lib/gui.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lib/gui.tcl b/lib/gui.tcl
index 7dcbfe2..6a16ecb 100644
--- a/lib/gui.tcl
+++ b/lib/gui.tcl
@@ -21,6 +21,13 @@ wm iconname . "1C Rac Gui"
 wm protocol . WM_DELETE_WINDOW Quit
 wm overrideredirect . 0
 wm positionfrom . user
+set frm_tool [frame .frm_tool]
+
+ttk::button $frm_tool.btn_add -text + -command Add
+ttk::button $frm_tool.btn_del -text - -command Del
+ttk::button $frm_tool.btn_quit -text Выход -command Quit
+
+pack $frm_tool.btn_add $frm_tool.btn_del $frm_tool.btn_quit -side top -padx 5 -pady 5
 
 set frm_tree [frame .frm_tree]
 
@@ -58,7 +65,7 @@ grid columnconfigure $frm_work 0 -weight 1
 grid rowconfigure $frm_work 0 -weight 1
 
 #pack $tree_work -expand true -fill both
-#pack $frm_tree -side left -expand true -fill both
+pack $frm_tool -side left -fill y 
 pack $frm_tree $frm_work -side left -expand true -fill both
 
 # $tree_work insert {} end -id Languages -text "Languages"
@@ -80,3 +87,4 @@ pack $frm_tree $frm_work -side left -expand true -fill both
 # grid rowconfigure    .t .t.txt -weight 1
 # grid columnconfigure .t .t.txt -weight 1
 
+