-}
-
-proc innerwindow-resetup-required {why} {
- variable innerwindow_after
-puts "IW-EVENT $why"
- if {[info exists innerwindow_after]} return
- set innerwindow_after [after idle innerwindow-resetup]
-}
-
-proc innerwindow-resetup {} {
- variable innerwindow_after
- unset innerwindow_after
-
-puts RESETUP
-
- innerwindow-destroying
-
- catch { destroy .i.i.c }
- if {![winfo exists .i.i]} return
- destroy [frame .i.i.make-exist]
- 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]
-# set w [winfo width .i.i]
-# set h [winfo height .i.i]
-
-# if {$w != $inner_lastw || $h != $inner_lasth} {
-# set inner_lastw $w
-# set inner_lasth $h
-# innerwindow-ph-dummy configure -width $w -height 2
- innerwindow-ready
-# }
-}
-
-proc setupinnerwindow {w} {
- global inner_lastw inner_lasth
- set inner_lastw -2
- set inner_lasth -2
-
- image create photo innerwindow-ph-dummy -width $w -height 2
- .i configure -image innerwindow-ph-dummy
-
- destroy [frame .i.make-exist]
- destroy [frame .i.i.make-exist]
- bind .i <<IconConfigure>> { innerwindow-resetup-required IconConfigure }
-}