svk
/
rac-gui
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Добавлена горячая клавиша для Выхода Control + Q

master
Sergey Kalinin 2019-08-26 11:24:19 +03:00
parent ab83488765
commit 216f54874b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/gui.tcl
View File

@ -22,6 +22,9 @@ wm protocol . WM_DELETE_WINDOW Quit
wm overrideredirect . 0
wm positionfrom . user
bind . <Control-q> Quit
bind . <Control-Q> 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 <ButtonRelease-1> {
$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