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]
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