gitk: Fix a bug in collapsing deeply nested trees

diff --git a/gitk b/gitk
index e61e68b88a869b990b5fa3571cd72f463771ac87..b09723007947e57eacb9c2e68af15e64a0f0fc15 100755 (executable)
--- 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]