--- a/PopUpView.st	Wed Aug 18 16:35:26 1999 +0200
+++ b/PopUpView.st	Wed Aug 18 16:39:00 1999 +0200
@@ -195,7 +195,7 @@
     super initStyle.
 
     DefaultBorderColor notNil ifTrue:[
-        self borderColor:(DefaultBorderColor on:device).
+        self borderColor:(DefaultBorderColor onDevice:device).
     ].
     DefaultBorderWidth isNil ifTrue:[
         borderWidth := styleSheet is3D ifTrue:[0] ifFalse:[1].
@@ -366,5 +366,5 @@
 !PopUpView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.40 1999-04-23 17:39:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/PopUpView.st,v 1.41 1999-08-18 14:39:00 cg Exp $'
 ! !