# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1431356657 -7200
# Node ID a2b284cfe6c382ffbfcbe6944b3da7e76fc83df6
# Parent  bd5cf96b87fd8d05ee2966758e00fe4e50482e0f
class: VariablePanel
changed: #barHeight:

diff -r bd5cf96b87fd -r a2b284cfe6c3 VariablePanel.st
--- a/VariablePanel.st	Sun May 10 01:05:46 2015 +0200
+++ b/VariablePanel.st	Mon May 11 17:04:17 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -975,12 +977,8 @@
 
     |bH|
 
-    bH := nPixel.
-
-    "make certain bar is visible and catchable"
-    (bH < 4) ifTrue:[
-        bH := 4
-    ].
+    "make certain bar is visible and catchable (not smaller than 4 pixels)"
+    bH := nPixel max:4.
 
     "make it even, so spacing is equally spreadable among subviews"
     bH odd ifTrue:[
@@ -2678,10 +2676,10 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.105 2015-02-19 17:40:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.106 2015-05-11 15:04:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.105 2015-02-19 17:40:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.106 2015-05-11 15:04:17 cg Exp $'
 ! !