Merge branch 'jh/fast-import-notes'
[gitweb.git] / git-gui / lib / class.tcl
index 24e8cecea46d3da6d94b04917a2776e541c234f3..f08506f3834a1ec821390190b920146d83078997 100644 (file)
@@ -134,6 +134,14 @@ proc delete_this {{t {}}} {
        if {[namespace exists $t]} {namespace delete $t}
 }
 
+proc make_dialog {t w args} {
+       upvar $t top $w pfx this this
+       global use_ttk
+       uplevel [linsert $args 0 make_toplevel $t $w]
+       catch {wm attributes $top -type dialog}
+       pave_toplevel $pfx
+}
+
 proc make_toplevel {t w args} {
        upvar $t top $w pfx this this
 
@@ -148,11 +156,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 {}