Mercurial > hg-stable
changeset 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 | 301d7626e0ff |
| children | 45ef87f41f98 |
| files | contrib/hgk |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
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"