--- a/PopUpMenu.st	Fri Oct 23 17:22:39 2009 +0200
+++ b/PopUpMenu.st	Sat Oct 24 15:43:51 2009 +0200
@@ -1509,19 +1509,23 @@
 initStyle
     <resource: #style (#'popup.hideOnRelease'
                        #'popup.level'
-                       #'popup.borderWidth'
+"/                       #'popup.borderWidth'
+"/                       #'popup.borderColor'
                        )>
 
-    |lvl bw|
+    |lvl bw bc|
 
     super initStyle.
 
     (lvl := styleSheet at:#'popup.level') notNil ifTrue:[
         self level:lvl.
     ].
-    (bw := styleSheet at:#'popup.borderWidth') notNil ifTrue:[
-        self borderWidth:bw
-    ].
+"/    (bw := styleSheet at:#'popup.borderWidth') notNil ifTrue:[
+"/        self borderWidth:bw
+"/    ].
+"/    (bc := styleSheet at:#'popup.borderColor') notNil ifTrue:[
+"/        self borderColor:bc
+"/    ].
     defaultHideOnRelease := styleSheet at:#'popup.hideOnRelease' default:true.
 !
 
@@ -1637,9 +1641,9 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.105 2009-10-15 10:46:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.106 2009-10-24 13:43:51 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.105 2009-10-15 10:46:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.106 2009-10-24 13:43:51 cg Exp $'
 ! !