--- a/VariablePanel.st	Thu Jan 09 12:50:41 1997 +0100
+++ b/VariablePanel.st	Thu Jan 09 13:42:40 1997 +0100
@@ -1012,6 +1012,8 @@
 !VariablePanel methodsFor:'initializing'!
 
 computeBarHeight
+    <resource: #style (#variablePanelBarHeight)>
+
     |bH h|
 
     shadowForm notNil ifTrue:[
@@ -1022,7 +1024,10 @@
         ] ifFalse:[
             h := 2
         ].
-        bH := (h * device verticalPixelPerMillimeter) rounded.
+        bH := styleSheet at:#variablePanelBarHeight.
+        bH isNil ifTrue:[
+            bH := (h * device verticalPixelPerMillimeter) rounded.
+        ].
     ].
     self barHeight:bH.
     knobHeight := bH.
@@ -1041,7 +1046,7 @@
 
     self barHeight:bH.
 
-    "Modified: 7.11.1996 / 20:27:13 / cg"
+    "Modified: 9.1.1997 / 13:39:29 / cg"
 !
 
 defaultControllerClass
@@ -1391,5 +1396,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.18 1996-12-19 13:52:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.19 1997-01-09 12:42:40 cg Exp $'
 ! !