Mercurial > hg
comparison 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 |
comparison
equal
deleted
inserted
replaced
12633:301d7626e0ff | 12634:43f42de733d0 |
---|---|
467 global entries sha1entry sha1string sha1but | 467 global entries sha1entry sha1string sha1but |
468 global maincursor textcursor curtextcursor | 468 global maincursor textcursor curtextcursor |
469 global rowctxmenu gaudydiff mergemax | 469 global rowctxmenu gaudydiff mergemax |
470 global hgvdiff bgcolor fgcolor diffremcolor diffaddcolor diffmerge1color | 470 global hgvdiff bgcolor fgcolor diffremcolor diffaddcolor diffmerge1color |
471 global diffmerge2color hunksepcolor | 471 global diffmerge2color hunksepcolor |
472 | 472 global posx posy |
473 | |
474 if {[info exists posx]} { | |
475 wm geometry . +$posx+$posy | |
476 } | |
477 | |
473 menu .bar | 478 menu .bar |
474 .bar add cascade -label "File" -menu .bar.file | 479 .bar add cascade -label "File" -menu .bar.file |
475 menu .bar.file | 480 menu .bar.file |
476 .bar.file add command -label "Reread references" -command rereadrefs | 481 .bar.file add command -label "Reread references" -command rereadrefs |
477 .bar.file add command -label "Quit" -command doquit | 482 .bar.file add command -label "Quit" -command doquit |
739 / [font measure $textfont "0"]}] | 744 / [font measure $textfont "0"]}] |
740 puts $f "set geometry(ctextw) $wid" | 745 puts $f "set geometry(ctextw) $wid" |
741 set wid [expr {([winfo width $cflist] - 11) \ | 746 set wid [expr {([winfo width $cflist] - 11) \ |
742 / [font measure [$cflist cget -font] "0"]}] | 747 / [font measure [$cflist cget -font] "0"]}] |
743 puts $f "set geometry(cflistw) $wid" | 748 puts $f "set geometry(cflistw) $wid" |
749 puts $f "#" | |
750 puts $f "# main window position:" | |
751 puts $f "set posx [winfo x .]" | |
752 puts $f "set posy [winfo y .]" | |
744 puts $f "#" | 753 puts $f "#" |
745 puts $f "# authorcolors format:" | 754 puts $f "# authorcolors format:" |
746 puts $f "#" | 755 puts $f "#" |
747 puts $f "# zero or more sublists of" | 756 puts $f "# zero or more sublists of" |
748 puts $f "#" | 757 puts $f "#" |