Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
clear view when resizing
authorClaus Gittinger <cg@exept.de>
Thu, 04 Jun 1998 18:41:02 +0200
changeset 1550 f0297a144983
parent 1549 b64b2dd7d5df
child 1551 1b9a8a925fe7
clear view when resizing
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg