From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 9 Jun 2012 20:06:47 +0000 (+0100)
Subject: reorg widgets wip
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl-applet.git;a=commitdiff_plain;h=3b3dad48b2bd8f43a76cf3633e0bf2ca6e6ef14d;hp=8bb8186db142691bfb06753a00f2fb0ddc199e29

reorg widgets wip
---

diff --git a/applet.tcl b/applet.tcl
index e225f8d..04d5813 100644
--- 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