-proc pressed {b x y} {
- global posted
- if {$posted == $b} {
- puts "unpost $posted toggle"
- .m$posted unpost
- set posted 0
- } elseif {[winfo exists .m$b]} {
- if {$posted} {
- .m$posted unpost
- puts "unpost $posted other"
- }
- puts "post $b"
- set posted $b
- .m$b post $x $y
- }
+proc innerwindow {} {
+ puts "INNER"
+ catch { destroy .i.i.c }
+ if {![winfo exists .i.i]} return
+ destroy [frame .i.i.make-exist]
+# if {[catch {
+# .i.i configure -width [winfo width .i.i] -height [winfo height .i.i]
+# } emsg]} {
+# puts stderr $emsg...
+# return
+# }
+ frame .i.i.b -background darkblue -bd 1
+ pack .i.i.b -fill both -side left -expand 1
+ frame .i.i.b.c -container 1 -background orange ;# -width 35 -height 15
+ pack .i.i.b.c -fill both -side left -expand 1
+ puts "ID [winfo id .i.i.b.c]"
+# bind .i.i.b.c <Configure> iiconfigure
+iiconfigure