--- a/ComboBoxButton.st	Fri Feb 22 13:30:51 2013 +0100
+++ b/ComboBoxButton.st	Fri Feb 22 13:31:10 2013 +0100
@@ -13,7 +13,7 @@
 
 Toggle subclass:#ComboBoxButton
 	instanceVariableNames:''
-	classVariableNames:''
+	classVariableNames:'DefaultBorderWidth'
 	poolDictionaries:''
 	category:'Views-Interactors'
 !
@@ -42,6 +42,21 @@
 "
 ! !
 
+!ComboBoxButton class methodsFor:'defaults'!
+
+updateStyleCache
+    <resource: #style (#'comboView.button.borderWidth' 
+                      )>
+
+    DefaultBorderWidth := StyleSheet at:#'comboView.button.borderWidth'.
+
+    "
+     self updateStyleCache
+    "
+
+    "Modified: / 28.4.1999 / 13:59:00 / cg"
+! !
+
 !ComboBoxButton methodsFor:'accessing'!
 
 lastSelection:selectionIndex
@@ -59,8 +74,19 @@
 "/    ^ false
 ! !
 
+!ComboBoxButton methodsFor:'initialization'!
+
+initStyle
+    "setup viewStyle specifics"
+
+    super initStyle.
+
+    DefaultBorderWidth notNil ifTrue:[self borderWidth: DefaultBorderWidth].
+! !
+
 !ComboBoxButton class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxButton.st,v 1.5 2008-07-22 20:50:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboBoxButton.st,v 1.6 2013-02-22 12:31:10 cg Exp $'
 ! !
+