equal
deleted
inserted
replaced
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 "#" |