gitk: Fix a bug in collapsing deeply nested trees

angavrilov · paulusmack · commit b8a640ee1aa4 · 2008-09-21T18:13:10.000-05:00
To reproduce: expand a tree like this, then collapse A:

+A
 +B
   C
   D

The result is:

-A
   C
   D

I.e. sub-nodes expanded from the last sub-node of the item
being collapsed are not removed.

Signed-off-by: Alexander Gavrilov &lt;angavrilov@gmail.com&gt;
Signed-off-by: Paul Mackerras &lt;paulus@samba.org&gt;
diff --git a/gitk b/gitk
@@ -2706,7 +2706,7 @@ proc treeopendir {w dir} {
 	    $w insert e:$ix $e [highlight_tag $de]
 	}
     }
-    $w mark gravity e:$ix left
+    $w mark gravity e:$ix right
     $w conf -state disabled
     set treediropen($dir) 1
     set top [lindex [split [$w index @0,0] .] 0]

Original file line number	Diff line number	Diff line change
`@@ -2706,7 +2706,7 @@ proc treeopendir {w dir} {`
`2706`	`2706`	`$w insert e:$ix $e [highlight_tag $de]`
`2707`	`2707`	`}`
`2708`	`2708`	`}`
`2709`		`- $w mark gravity e:$ix left`
	`2709`	`+ $w mark gravity e:$ix right`
`2710`	`2710`	`$w conf -state disabled`
`2711`	`2711`	`set treediropen($dir) 1`
`2712`	`2712`	`set top [lindex [split [$w index @0,0] .] 0]`