equal
deleted
inserted
replaced
560 global posx posy |
560 global posx posy |
561 |
561 |
562 if {[info exists posx]} { |
562 if {[info exists posx]} { |
563 wm geometry . +$posx+$posy |
563 wm geometry . +$posx+$posy |
564 } |
564 } |
565 |
565 |
566 menu .bar |
566 menu .bar |
567 .bar add cascade -label "File" -menu .bar.file |
567 .bar add cascade -label "File" -menu .bar.file |
568 menu .bar.file |
568 menu .bar.file |
569 .bar.file add command -label "Reread references" -command rereadrefs |
569 .bar.file add command -label "Reread references" -command rereadrefs |
570 .bar.file add command -label "Quit" -command doquit |
570 .bar.file add command -label "Quit" -command doquit |