hgk: remember main window position

contrib/hgk

@@ -469,7 +469,12 b' proc makewindow {} {'
     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 b' proc savestuff {w} {'
 			   / [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"