Save the maxwidth setting in the ~/.gitk file.

This commit is contained in:
Paul Mackerras 2005-08-19 10:22:24 +10:00
Родитель 022bc2ac74
Коммит 04c13d3877
1 изменённых файлов: 2 добавлений и 0 удалений

2
gitk
Просмотреть файл

@ -528,6 +528,7 @@ proc click {w} {
proc savestuff {w} {
global canv canv2 canv3 ctext cflist mainfont textfont
global stuffsaved findmergefiles gaudydiff maxgraphpct
global maxwidth
if {$stuffsaved} return
if {![winfo viewable .]} return
@ -538,6 +539,7 @@ proc savestuff {w} {
puts $f [list set findmergefiles $findmergefiles]
puts $f [list set gaudydiff $gaudydiff]
puts $f [list set maxgraphpct $maxgraphpct]
puts $f [list set maxwidth $maxwidth]
puts $f "set geometry(width) [winfo width .ctop]"
puts $f "set geometry(height) [winfo height .ctop]"
puts $f "set geometry(canv1) [expr [winfo width $canv]-2]"