# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 896978462 -7200
# Node ID f0297a144983380e69aa24901d86733deb06d770
# Parent  b64b2dd7d5df2c88951cd338cd2c60aa8029d4e6
clear view when resizing

diff -r b64b2dd7d5df -r f0297a144983 VarPanel.st
--- a/VarPanel.st	Mon May 25 15:04:31 1998 +0200
+++ b/VarPanel.st	Thu Jun 04 18:41:02 1998 +0200
@@ -1170,21 +1170,17 @@
     "compute the height if the separating bar from either the
      form or an explicit height given in the styleSheet"
 
-    <resource: #style (#'variablePanel.barHeight')>
+    <resource: #style (#'variablePanel.barHeight'
+                       #'variablePanel.barHeightMM')>
 
     |bH h|
 
     shadowForm notNil ifTrue:[
         bH := shadowForm height + 2.
     ] ifFalse:[
-        self is3D ifTrue:[
-            h := 2
-        ] ifFalse:[
-            h := 2
-        ].
         bH := styleSheet at:'variablePanel.barHeight'.
         bH isNil ifTrue:[
-            h := styleSheet at:'variablePanel.barHeightMM' default:h.
+            h := styleSheet at:'variablePanel.barHeightMM' default:2.
             bH := (h * device verticalPixelPerMillimeter) rounded.
         ].
     ].
@@ -1433,7 +1429,10 @@
                 ]
             ].
             view pixelOrigin:newOrg extent:newExt.
-        ]
+        ].
+        "/ must clear, since handles are copied automatically (by bitGravity)
+        self clear.
+        self invalidate.
     ]
 
     "Modified: 28.1.1997 / 17:55:03 / cg"
@@ -1530,5 +1529,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.39 1998-05-19 14:21:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.40 1998-06-04 16:41:02 cg Exp $'
 ! !
diff -r b64b2dd7d5df -r f0297a144983 VariablePanel.st
--- a/VariablePanel.st	Mon May 25 15:04:31 1998 +0200
+++ b/VariablePanel.st	Thu Jun 04 18:41:02 1998 +0200
@@ -1170,21 +1170,17 @@
     "compute the height if the separating bar from either the
      form or an explicit height given in the styleSheet"
 
-    <resource: #style (#'variablePanel.barHeight')>
+    <resource: #style (#'variablePanel.barHeight'
+                       #'variablePanel.barHeightMM')>
 
     |bH h|
 
     shadowForm notNil ifTrue:[
         bH := shadowForm height + 2.
     ] ifFalse:[
-        self is3D ifTrue:[
-            h := 2
-        ] ifFalse:[
-            h := 2
-        ].
         bH := styleSheet at:'variablePanel.barHeight'.
         bH isNil ifTrue:[
-            h := styleSheet at:'variablePanel.barHeightMM' default:h.
+            h := styleSheet at:'variablePanel.barHeightMM' default:2.
             bH := (h * device verticalPixelPerMillimeter) rounded.
         ].
     ].
@@ -1433,7 +1429,10 @@
                 ]
             ].
             view pixelOrigin:newOrg extent:newExt.
-        ]
+        ].
+        "/ must clear, since handles are copied automatically (by bitGravity)
+        self clear.
+        self invalidate.
     ]
 
     "Modified: 28.1.1997 / 17:55:03 / cg"
@@ -1530,5 +1529,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.39 1998-05-19 14:21:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.40 1998-06-04 16:41:02 cg Exp $'
 ! !