--- a/VariablePanelController.st	Sat Sep 04 12:52:08 1999 +0200
+++ b/VariablePanelController.st	Mon Sep 06 14:57:31 1999 +0200
@@ -12,7 +12,7 @@
 
 Controller subclass:#VariablePanelController
 	instanceVariableNames:'movedHandle prevPos startPos clickPos'
-	classVariableNames:'OpaqueResize'
+	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Support-Controllers'
 !
@@ -55,9 +55,8 @@
      If on, the resizing is syncronous with the move.
      On slow machines, it may make sense to leave it off."
 
-    ^ OpaqueResize
-
-    "Created: / 19.11.1998 / 12:35:26 / cg"
+    self obsoleteMethodWarning.
+    ^ UserPreferences current opaqueVariablePanelResizing
 !
 
 opaqueResize:aBoolean
@@ -67,7 +66,8 @@
      If on, the resizing is syncronous with the move.
      On slow machines, it may make sense to leave it off."
 
-    OpaqueResize := aBoolean.
+    self obsoleteMethodWarning.
+    ^ UserPreferences current opaqueVariablePanelResizing:aBoolean
 
     "
      self opaqueResize:true
@@ -84,7 +84,7 @@
      clear prev handleBar and draw handle bar at new position" 
 
     |pos limitMin limitMax subViews barHeight
-     oldHx oldHy newHx newHy|
+     oldHx oldHy newHx newHy opaque|
 
     movedHandle isNil ifTrue: [^ self].          "should not happen"
 
@@ -159,13 +159,14 @@
         oldHx := newHx := 0.
     ].
 
-    OpaqueResize ~~ true ifTrue:[
+    opaque := UserPreferences current opaqueVariablePanelResizing.
+    opaque ~~ true ifTrue:[
         view invertHandleBarAtX:oldHx y:oldHy. 
         view invertHandleBarAtX:newHx y:newHy.
     ].
     prevPos := pos.
 
-    OpaqueResize == true ifTrue:[
+    opaque == true ifTrue:[
         self doResizeForX:bx y:by.
     ]
 
@@ -212,11 +213,9 @@
             thatsTheHandle ifTrue:[
                 movedHandle := handle.
 
-                OpaqueResize == true ifTrue:[
+                UserPreferences current opaqueVariablePanelResizing == true ifTrue:[
                     view grabPointerWithCursor:view cursor.
-                ].
-
-                OpaqueResize ~~ true ifTrue:[
+                ] ifFalse:[
                     view invertHandleBarAtX:hx y:hy.
                     (group := view windowGroup) notNil ifTrue:[
                         group showCursor:view cursor
@@ -246,7 +245,7 @@
         movedHandle isNil ifTrue:[^ self].
 
         view ungrabPointer.
-        OpaqueResize ~~ true ifTrue:[
+        UserPreferences current opaqueVariablePanelResizing ~~ true ifTrue:[
             (group := view windowGroup) notNil ifTrue:[
                 group restoreCursors
             ]
@@ -279,7 +278,7 @@
     ] ifFalse:[
         hX := 0. hY := prevPos. 
     ].
-    OpaqueResize ~~ true ifTrue:[
+    UserPreferences current opaqueVariablePanelResizing ~~ true ifTrue:[
         view invertHandleBarAtX:hX y:hY. 
     ].
 
@@ -339,5 +338,5 @@
 !VariablePanelController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.22 1999-04-24 15:47:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanelController.st,v 1.23 1999-09-06 12:57:31 cg Exp $'
 ! !