Re: "freezing" gitk geometry

"David Tweed" [off-list ref] writes:

now I've installed 1.5.0, I've discovered gitk is still the
visualisation tool for graphically browsing history. I think gitk is a
good program, but one thing I'd like to be able to change is to have a
way to force gitk not to update its saved internal geometry (position
of internal dividers, etc) when it exits. I tried making ~/.gitk not
writable but that didn't work. I don't know tcl: is there a simple way
to prevent gitk updating this upon quitting?

I do not talk Tcl, but I think you can apply this patch and then
if you add

	set dontsave 1

at the end of ~/.gitk with your editor, it would stop updating
your geometry (or anything else for that matter).

diff --git a/gitk b/gitk
index 9ddff3e..cd0d68d 100755
--- a/gitk
+++ b/gitk

@@ -813,9 +813,10 @@ proc savestuff {w} {
     global maxwidth showneartags
     global viewname viewfiles viewargs viewperm nextviewnum
     global cmitmode wrapcomment
-    global colors bgcolor fgcolor diffcolors
+    global colors bgcolor fgcolor diffcolors dontsave
 
     if {$stuffsaved} return
+    if {$dontsave} return
     if {![winfo viewable .]} return
     catch {
 	set f [open "~/.gitk-new" w]

@@ -6251,6 +6252,7 @@ set bgcolor white
 set fgcolor black
 set diffcolors {red "#00a000" blue}
 
+set dontsave 0
 catch {source ~/.gitk}
 
 font create optionfont -family sans-serif -size -12