gistfile1.diff

index b2b032c..ce89fb3 100644
--- a/extras/tk.jl
+++ b/extras/tk.jl
@@ -92,11 +92,10 @@ type TkWidget
     global Window
     function Window(title, w, h)
         wpath = ".jl_win$ID"; ID += 1
-        tcl_eval("frame $wpath -width $w -height $h")
-        tcl_eval("wm manage $wpath")
+        tcl_eval("toplevel $wpath -width $w -height $h")
         tcl_eval("wm title $wpath \"$title\"")
         tcl_doevent()
-        new(wpath, "frame", nothing)
+        new(wpath, "toplevel", nothing)
     end
 end