--- a/VariablePanelController.st	Thu Aug 15 10:51:09 2002 +0200
+++ b/VariablePanelController.st	Mon Aug 19 18:12:22 2002 +0200
@@ -14,7 +14,8 @@
 "{ Package: 'stx:libwidg' }"
 
 Controller subclass:#VariablePanelController
-	instanceVariableNames:'movedHandle prevPos clickPos saveCursor startResizing resizeMode'
+	instanceVariableNames:'movedHandle prevPos clickPos saveCursor startResizing resizeMode
+		opaqueResizing'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-Controllers'
@@ -58,7 +59,7 @@
     "mouse-button was moved while pressed;
      clear prev handleBar and draw handle bar at new position
     "
-    |nextPos layout entered hindex opaqueResizing|
+    |nextPos layout entered hindex|
 
     state == 0 ifTrue:[
         view snapMode isNil ifTrue:[^ self].
@@ -110,8 +111,6 @@
 "/        ^ self
 "/    ].
 
-    opaqueResizing := UserPreferences current opaqueVariablePanelResizing == true.
-
     resizeMode == #active ifTrue:[
         "check position changed ..."
 "/        nextPos > 10 ifTrue:[
@@ -187,6 +186,9 @@
 
     self pointerEnter:0 x:bx y:by.
 
+
+    opaqueResizing := self sensor shiftDown or:[UserPreferences current opaqueVariablePanelResizing == true].
+
     self isSnapEntered ifTrue:[
         "there is a snap under the cursor; redraw selected"
         view snapMode == #both ifTrue:[
@@ -202,8 +204,7 @@
         ].
         view drawSnapAt:movedHandle.
     ] ifFalse:[
-        (UserPreferences current opaqueVariablePanelResizing == true)
-        ifFalse:[
+        opaqueResizing ifFalse:[
             self doInvertHandle.
             resizeMode := #active.
         ].
@@ -235,7 +236,7 @@
                 aboveView := view subViews at:movedHandle.
                 aboveView objectAttributeAt:#vpext put:(aboveView relativeCorner).
             ].
-            (UserPreferences current opaqueVariablePanelResizing == true) ifFalse:[
+            opaqueResizing ifFalse:[
                 self doResize
             ].
         ] ifFalse:[
@@ -397,9 +398,7 @@
     "perform the resize
     "
     |aboveView belowView aboveIndex belowIndex newRelPos subViews isVertical 
-     opaqueResizing newCorner newOrigin halfBarHg|
-
-    opaqueResizing := UserPreferences current opaqueVariablePanelResizing == true.
+     newCorner newOrigin halfBarHg|
 
     "undo the last invert"
     (resizeMode == #active and:[opaqueResizing not]) ifTrue:[
@@ -539,7 +538,7 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.37 2002-05-02 09:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.38 2002-08-19 16:12:22 cg Exp $'
 
 
 ! !