equal
deleted
inserted
replaced
124 |
124 |
125 |pullDownButton fn logo disabledLogo activeLogo enteredLogo lvl clr| |
125 |pullDownButton fn logo disabledLogo activeLogo enteredLogo lvl clr| |
126 |
126 |
127 pullDownButton := ComboBoxButton in:anInstance. |
127 pullDownButton := ComboBoxButton in:anInstance. |
128 pullDownButton controller beTriggerOnDown. |
128 pullDownButton controller beTriggerOnDown. |
129 pullDownButton logo:(logo := self buttonForm). |
129 pullDownButton label:(logo := self buttonForm). |
130 |
130 |
131 disabledLogo := StyleSheet at:#'comboView.disabledDownForm'. |
131 disabledLogo := StyleSheet at:#'comboView.disabledDownForm'. |
132 disabledLogo isNil ifTrue:[ |
132 disabledLogo isNil ifTrue:[ |
133 fn := StyleSheet at:#'comboView.disabledDownFormFile'. |
133 fn := StyleSheet at:#'comboView.disabledDownFormFile'. |
134 fn notNil ifTrue:[ |
134 fn notNil ifTrue:[ |
156 ] |
156 ] |
157 ]. |
157 ]. |
158 activeLogo notNil ifTrue:[ |
158 activeLogo notNil ifTrue:[ |
159 pullDownButton activeLogo:activeLogo. |
159 pullDownButton activeLogo:activeLogo. |
160 pullDownButton passiveLogo:logo. |
160 pullDownButton passiveLogo:logo. |
161 pullDownButton logo:logo. |
161 pullDownButton label:logo. |
162 ]. |
162 ]. |
163 |
163 |
164 enteredLogo := StyleSheet at:#'comboView.enteredDownForm'. |
164 enteredLogo := StyleSheet at:#'comboView.enteredDownForm'. |
165 enteredLogo isNil ifTrue:[ |
165 enteredLogo isNil ifTrue:[ |
166 fn := StyleSheet at:#'comboView.enteredDownFormFile'. |
166 fn := StyleSheet at:#'comboView.enteredDownFormFile'. |
693 ! ! |
693 ! ! |
694 |
694 |
695 !ComboView class methodsFor:'documentation'! |
695 !ComboView class methodsFor:'documentation'! |
696 |
696 |
697 version |
697 version |
698 ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.76 2004-10-14 11:02:01 cg Exp $' |
698 ^ '$Header: /cvs/stx/stx/libwidg2/ComboView.st,v 1.77 2005-01-28 11:28:38 stefan Exp $' |
699 ! ! |
699 ! ! |