VariablePanelController.st
changeset 2512 57d79580ff7f
parent 2510 609971cc700d
child 2529 9501a63ce16c
--- a/VariablePanelController.st	Wed Feb 06 10:33:35 2002 +0100
+++ b/VariablePanelController.st	Mon Feb 11 10:30:55 2002 +0100
@@ -198,7 +198,13 @@
             handleView objectAttributeAt:#snapPart  put:(isMin ifTrue:[#left] ifFalse:[ isMax ifTrue:[#right] ifFalse:[#middle]]).
         ].
         view drawSnapAt:movedHandle
-    ]
+    ].
+
+    (UserPreferences current opaqueVariablePanelResizing == true)
+    ifFalse:[
+        self doInvertHandle.
+        resizeMode := #active.
+    ].
 
     "Modified: / 24.8.2001 / 15:35:27 / cg"
 !
@@ -526,7 +532,7 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.35 2002-02-02 12:57:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.36 2002-02-11 09:30:55 cg Exp $'
 
 
 ! !