--- a/VarPanel.st	Mon Jul 05 13:21:52 1999 +0200
+++ b/VarPanel.st	Tue Jul 06 12:09:47 1999 +0200
@@ -845,6 +845,13 @@
     "Modified: 29.5.1996 / 16:22:24 / cg"
 !
 
+setBarHeight:nPixel
+    "set the height of the separating bar"
+
+    barHeight := nPixel.
+
+!
+
 style:styleSymbol
     "define the style of the handle;
      styleSymbol may be #motif to draw a little knob or
@@ -1675,5 +1682,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.47 1999-05-03 17:06:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.48 1999-07-06 10:09:47 cg Exp $'
 ! !

--- a/VariablePanel.st	Mon Jul 05 13:21:52 1999 +0200
+++ b/VariablePanel.st	Tue Jul 06 12:09:47 1999 +0200
@@ -845,6 +845,13 @@
     "Modified: 29.5.1996 / 16:22:24 / cg"
 !
 
+setBarHeight:nPixel
+    "set the height of the separating bar"
+
+    barHeight := nPixel.
+
+!
+
 style:styleSymbol
     "define the style of the handle;
      styleSymbol may be #motif to draw a little knob or
@@ -1675,5 +1682,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.47 1999-05-03 17:06:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.48 1999-07-06 10:09:47 cg Exp $'
 ! !