remove some obsolete code

diff --git a/applet.tcl b/applet.tcl
index e3a27eda42fd2d464ee88854b929ee48adf00b3c..777a45d4dc7cb207b7cee31539b433fdaffb63ef 100644 (file)
--- a/applet.tcl
+++ b/applet.tcl
@@ -234,19 +234,8 @@ proc innerwindow-resetup {} {
 
     frame .i.i.b -background darkblue -bd 1
     pack .i.i.b -fill both -side left -expand 1
 
     frame .i.i.b -background darkblue -bd 1
     pack .i.i.b -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

 
     uplevel #0 $subwindow_on_ready
 
     uplevel #0 $subwindow_on_ready

-#    }

 }
 
 proc setup-subwindow {w border_colour border_width on_destroying on_ready} {
 }
 
 proc setup-subwindow {w border_colour border_width on_destroying on_ready} {


@@ -254,10 +243,6 @@ proc setup-subwindow {w border_colour border_width on_destroying on_ready} {
        variable subwindow_$v [set $v]
     }
 
        variable subwindow_$v [set $v]
     }
 

-    global inner_lastw inner_lasth
-    set inner_lastw -2
-    set inner_lasth -2
-

     image create photo applet::innerwindow-ph-dummy -width $w -height 2
     .i configure -image applet::innerwindow-ph-dummy
 
     image create photo applet::innerwindow-ph-dummy -width $w -height 2
     .i configure -image applet::innerwindow-ph-dummy