X-Git-Url: https://asedeno.scripts.mit.edu/gitweb/?a=blobdiff_plain;f=git-gui%2Flib%2Fclass.tcl;h=c27b71476ac35dbad02b727f28aba5d7c0777e75;hb=48c250a121a425a1860226b6a7061aecfbab5246;hp=dc2141192a21e7416268cc94beda78d6ceb8f86f;hpb=a0c0447b8eda07529eec2ae8fbc6bf68e1ff2d67;p=git.git

diff --git a/git-gui/lib/class.tcl b/git-gui/lib/class.tcl
index dc2141192..c27b71476 100644
--- a/git-gui/lib/class.tcl
+++ b/git-gui/lib/class.tcl
@@ -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