Merge branch 'jc/maint-reflog-expire-unreachable'
[gitweb.git] / git-gui / lib / class.tcl
index dc2141192a21e7416268cc94beda78d6ceb8f86f..c27b71476ac35dbad02b727f28aba5d7c0777e75 100644 (file)
@@ -134,6 +134,13 @@ 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]
+       pave_toplevel $pfx
+}
+
 proc make_toplevel {t w args} {
        upvar $t top $w pfx this this