diff --git a/lib/gui.tcl b/lib/gui.tcl index 059c776..efcf68c 100644 --- a/lib/gui.tcl +++ b/lib/gui.tcl @@ -22,6 +22,9 @@ wm protocol . WM_DELETE_WINDOW Quit wm overrideredirect . 0 wm positionfrom . user +bind . Quit +bind . Quit + #ttk::style configure TPanedwindow -background blue #ttk::style configure Sash -sashthickness 5 #ttk::style configure TButton -padding 60 -relief flat -bg black @@ -88,6 +91,7 @@ bind $tree_work { $tree_work item [.frm_work.tree_work selection] -tags selected } + #$tree_work heading par -text "Параметр" -anchor center #$tree_work heading val -text "Значение" -anchor center #set tree_work [ttk::treeview $frm_work.tree_work \ @@ -108,3 +112,4 @@ pack $frm_tree $frm_work -side left -expand true -fill both .panel add $frm_work -weight 1 +