зеркало из https://github.com/microsoft/git.git
gitk: Remember and restore the window state with the geometry
This records the window state in ~/.gitk. On startup, if the gitk window was previously maximized (zoomed), then we restore that state. Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net> Signed-off-by: Paul Mackerras <paulus@samba.org>
This commit is contained in:
Родитель
b6e192dbf7
Коммит
c876dbadc2
5
gitk
5
gitk
|
@ -2251,6 +2251,10 @@ proc makewindow {} {
|
|||
}
|
||||
}
|
||||
|
||||
if {[info exists geometry(state)] && $geometry(state) eq "zoomed"} {
|
||||
wm state . $geometry(state)
|
||||
}
|
||||
|
||||
if {[tk windowingsystem] eq {aqua}} {
|
||||
set M1B M1
|
||||
set ::BM "3"
|
||||
|
@ -2548,6 +2552,7 @@ proc savestuff {w} {
|
|||
puts $f [list set perfile_attrs $perfile_attrs]
|
||||
|
||||
puts $f "set geometry(main) [wm geometry .]"
|
||||
puts $f "set geometry(state) [wm state .]"
|
||||
puts $f "set geometry(topwidth) [winfo width .tf]"
|
||||
puts $f "set geometry(topheight) [winfo height .tf]"
|
||||
puts $f "set geometry(pwsash0) \"[.tf.histframe.pwclist sash coord 0]\""
|
||||
|
|
Загрузка…
Ссылка в новой задаче