git-gui: Detect full path when parsing arguments

diff --git a/lib/themed.tcl b/lib/themed.tcl
index 29a1696d9707ec588680053248b135bca7606220..8b88d3678b7ddd802260f47bcfeff8a895d93f3f 100644 (file)
--- a/lib/themed.tcl
+++ b/lib/themed.tcl
@@ -123,6 +123,7 @@ proc paddedlabel {w args} {
 # place a themed frame over the surface.
 proc Dialog {w args} {
        eval [linsert $args 0 toplevel $w -class Dialog]
+       catch {wm attributes $w -type dialog}   
        pave_toplevel $w
        return $w
 }