--- a/PopUpView.st Fri Oct 23 17:20:26 2009 +0200
+++ b/PopUpView.st Fri Oct 23 17:20:28 2009 +0200
@@ -282,9 +282,9 @@
self borderColor:(DefaultBorderColor onDevice:device).
].
DefaultBorderWidth isNil ifTrue:[
- borderWidth := styleSheet is3D ifTrue:[0] ifFalse:[1].
+ self setBorderWidth:(styleSheet is3D ifTrue:[0] ifFalse:[1]).
] ifFalse:[
- borderWidth := DefaultBorderWidth.
+ self setBorderWidth:DefaultBorderWidth.
].
DefaultLevel isNil ifTrue:[
l := styleSheet is3D ifTrue:[1] ifFalse:[0].
@@ -460,5 +460,9 @@
!PopUpView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.57 2007-03-12 08:24:24 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.58 2009-10-23 15:20:28 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.58 2009-10-23 15:20:28 cg Exp $'
! !