chiark / gitweb /
reorg widgets wip
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 9 Jun 2012 20:06:47 +0000 (21:06 +0100)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Sat, 9 Jun 2012 20:06:47 +0000 (21:06 +0100)
applet.tcl

index e225f8d..04d5813 100644 (file)
@@ -210,17 +210,17 @@ proc innerwindow-resetup {} {
 
 puts RESETUP
 
-    uplevel #0 $subwindow_on_destroying
 
-    catch { destroy .i.i.c }
     if {![winfo exists .i.i]} return
     destroy [frame .i.i.make-exist]
+
+    uplevel #0 $subwindow_on_destroying
     catch { destroy .i.i.b.c }
+
     catch { destroy .i.i.b }
+
     frame .i.i.b
     pack .i.i.b -fill both -side left -expand 1
-    frame .i.i.b.c -container 1 -background orange
-    pack .i.i.b.c -fill both -side left -expand 1
 #
     global inner_lastw inner_lasth
     #set w [winfo width .i.i]
@@ -278,6 +278,10 @@ proc subproc-destroying {} {
 proc subproc-ready {} {
     variable subproc
     puts "READY $subproc"
+
+    frame .i.i.b.c -container 1 -background orange
+    pack .i.i.b.c -fill both -side left -expand 1
+
     switch -exact $subproc {
        none {
            run-child