+ variable tray_width
+ variable tray_height
+ debug::debug "IW-EVENT $evtype $why [winfo reqwidth .i] [winfo reqheight .i] [winfo width .i] [winfo height .i] $orientation"
+ switch -exact $orientation {
+ horizontal { set szv height }
+ vertical { set szv width }
+ unknown { return }
+ }
+ set new_sz [winfo req$szv .i]
+ if {![string compare $new_sz [set tray_$szv]]} {
+ return
+ }
+ set tray_$szv $new_sz
+# switch -exact -- $evtype 35 { return }