set status none
-proc innerwindow-destroying {} {
+proc destroying {} {
global status
puts "DESTROYING $status"
switch -exact $status {
}
}
-proc innerwindow-ready {} {
+proc ready {} {
global status
puts "READY $status"
switch -exact $status {
}
}
-setupinnerwindow 40
+applet::setup-subwindow 40 destroying ready