--- 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 $'
! !