--- a/ComboView.st	Wed Apr 28 12:08:22 1999 +0200
+++ b/ComboView.st	Wed Apr 28 13:27:02 1999 +0200
@@ -65,7 +65,8 @@
 buttonForm
     "return the pull-buttons image"
 
-    <resource: #style (#'comboView.downForm' #'comboView.downFormFile')>
+    <resource: #style (#'comboView.downForm' 
+                       #'comboView.downFormFile')>
 
     |fileName form|
 
@@ -102,7 +103,7 @@
     ].
     ^ nil
 
-    "Modified: / 3.11.1997 / 15:32:17 / cg"
+    "Modified: / 28.4.1999 / 12:49:42 / cg"
 !
 
 defaultFont
@@ -423,9 +424,26 @@
 !
 
 initializeButton
+    <resource: #style (#'comboView.disabledDownForm' 
+                       #'comboView.disabledDownFormFile')>
+
+    |l1 l2|
+
     pullDownButton := ComboBoxButton in:self.
     pullDownButton controller beTriggerOnDown.
-    pullDownButton label:(self class buttonForm).
+    pullDownButton logo:(l1 := self class buttonForm).
+
+    l2 := styleSheet at:#'comboView.disabledDownFormFile'.
+    l2 notNil ifTrue:[
+        l2 := Image fromFile:l2.
+    ] ifFalse:[
+        l2 := styleSheet at:#'comboView.disabledDownForm'.
+    ].    
+    l2 notNil ifTrue:[
+        pullDownButton passiveLogo:l1.
+        pullDownButton activeLogo:l1.
+        pullDownButton disabledLogo:l2.
+    ].
     pullDownButton showLamp:false.
     pullDownButton activeLevel == pullDownButton passiveLevel ifTrue:[
         pullDownButton activeLevel:0.
@@ -433,7 +451,7 @@
     pullDownButton disable.
     pullDownButton pressAction:[self pullMenu].
 
-    "Modified: 30.8.1997 / 02:39:45 / cg"
+    "Modified: / 28.4.1999 / 13:09:42 / cg"
 !
 
 initializeField
@@ -576,5 +594,5 @@
 !ComboView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.52 1999-04-24 14:41:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.53 1999-04-28 11:27:02 cg Exp $'
 ! !