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