Mercurial > hg
diff contrib/hgk @ 12634:43f42de733d0
hgk: remember main window position
| author | Eduard-Cristian Stefan <alexandrul.ct@gmail.com> |
|---|---|
| date | Wed, 06 Oct 2010 23:07:52 +0300 |
| parents | 60cefb8b3c85 |
| children | d11405848abd |
line wrap: on
line diff
--- a/contrib/hgk Fri Oct 08 16:10:00 2010 -0400 +++ b/contrib/hgk Wed Oct 06 23:07:52 2010 +0300 @@ -469,7 +469,12 @@ global rowctxmenu gaudydiff mergemax global hgvdiff bgcolor fgcolor diffremcolor diffaddcolor diffmerge1color global diffmerge2color hunksepcolor - + global posx posy + + if {[info exists posx]} { + wm geometry . +$posx+$posy + } + menu .bar .bar add cascade -label "File" -menu .bar.file menu .bar.file @@ -742,6 +747,10 @@ / [font measure [$cflist cget -font] "0"]}] puts $f "set geometry(cflistw) $wid" puts $f "#" + puts $f "# main window position:" + puts $f "set posx [winfo x .]" + puts $f "set posy [winfo y .]" + puts $f "#" puts $f "# authorcolors format:" puts $f "#" puts $f "# zero or more sublists of"