mirrors/1c_rac-gui
1
0
Fork 0
mirror of https://bitbucket.org/svk28/rac-gui synced 2024-11-13 00:56:54 +00:00
Code Releases Activity

Added toolbar

Browse Source
This commit is contained in:
Sergey Kalinin 2018-05-18 12:12:28 +03:00
parent 0721d8292d
commit 2ff4c174e3
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lib/gui.tcl
View File

@ -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