X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=lib%2Fclass.tcl;h=dc2141192a21e7416268cc94beda78d6ceb8f86f;hb=66c75a5c9f7434d857d836440dc1c3046c59b5f3;hp=24e8cecea46d3da6d94b04917a2776e541c234f3;hpb=f31b6ff747afeb204299b7a67ce2ec59beb33b7d;p=git.git

diff --git a/lib/class.tcl b/lib/class.tcl
index 24e8cecea..dc2141192 100644
--- a/lib/class.tcl
+++ b/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 {}