112 ^ nil |
112 ^ nil |
113 |
113 |
114 "Modified: / 28.4.1999 / 12:49:42 / cg" |
114 "Modified: / 28.4.1999 / 12:49:42 / cg" |
115 ! |
115 ! |
116 |
116 |
117 comboButtonFor:anInstance |
117 comboButtonFor:aComboView |
118 <resource: #style (#'comboView.disabledDownForm' |
118 <resource: #style (#'comboView.disabledDownForm' |
119 #'comboView.disabledDownFormFile' |
119 #'comboView.disabledDownFormFile' |
120 #'comboView.activeDownFormFile' |
120 #'comboView.activeDownFormFile' |
121 #'comboView.button.activeForegroundColor' |
121 #'comboView.button.activeForegroundColor' |
122 #'comboView.button.activeBackgroundColor' |
122 #'comboView.button.activeBackgroundColor' |
123 #'comboView.button.activeLevel' |
123 #'comboView.button.activeLevel' |
124 #'comboView.button.passiveLevel' )> |
124 #'comboView.button.passiveLevel' )> |
125 |
125 |
126 |pullDownButton fn logo disabledLogo activeLogo enteredLogo lvl clr| |
126 |pullDownButton fn logo disabledLogo activeLogo enteredLogo lvl clr| |
127 |
127 |
128 pullDownButton := ComboBoxButton in:anInstance. |
128 pullDownButton := ComboBoxButton in:aComboView. |
129 pullDownButton controller beTriggerOnDown. |
129 pullDownButton controller beTriggerOnDown. |
130 pullDownButton label:(logo := self buttonForm). |
130 pullDownButton label:(logo := self buttonForm). |
131 |
131 |
132 ComboButtonForms isNil ifTrue:[ |
132 ComboButtonForms isNil ifTrue:[ |
133 ComboButtonForms := IdentityDictionary new. |
133 ComboButtonForms := IdentityDictionary new. |