Merge branch 'bc/repack'

diff --git a/git-gui/lib/class.tcl b/git-gui/lib/class.tcl
index 24e8cecea46d3da6d94b04917a2776e541c234f3..dc2141192a21e7416268cc94beda78d6ceb8f86f 100644 (file)
--- a/git-gui/lib/class.tcl
+++ b/git-gui/lib/class.tcl
@@ -148,11 +148,12 @@ proc make_toplevel {t w args} {
                }
        }
 
-       if {[winfo ismapped .]} {
+       if {$::root_exists || [winfo ismapped .]} {
                regsub -all {::} $this {__} w
                set top .$w
                set pfx $top
                toplevel $top
+               set ::root_exists 1
        } else {
                set top .
                set pfx {}