reorg widgets wip

[chiark-tcl-applet.git] / applet.tcl

diff --git a/applet.tcl b/applet.tcl
index e225f8d5d842d0ecaaa3018f3e88c265c709b934..04d5813bebc6042d481fb2b3941333a0e766119a 100644 (file)
--- a/applet.tcl
+++ b/applet.tcl
@@ -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