equal
deleted
inserted
replaced
200 "set the backgroundColor" |
200 "set the backgroundColor" |
201 |
201 |
202 aColor ~~ upButton backgroundColor ifTrue:[ |
202 aColor ~~ upButton backgroundColor ifTrue:[ |
203 upButton backgroundColor:aColor. |
203 upButton backgroundColor:aColor. |
204 downButton backgroundColor:aColor. |
204 downButton backgroundColor:aColor. |
205 shown ifTrue:[ |
205 self invalidateRepairNow:true |
206 self invalidateRepairNow:true |
|
207 ] |
|
208 ] |
206 ] |
209 |
207 |
210 "Modified: / 6.6.1998 / 19:53:50 / cg" |
208 "Modified: / 6.6.1998 / 19:53:50 / cg" |
211 ! |
209 ! |
212 |
210 |
221 "set the foregroundColor" |
219 "set the foregroundColor" |
222 |
220 |
223 aColor ~~ upButton foregroundColor ifTrue:[ |
221 aColor ~~ upButton foregroundColor ifTrue:[ |
224 upButton foregroundColor:aColor. |
222 upButton foregroundColor:aColor. |
225 downButton foregroundColor:aColor. |
223 downButton foregroundColor:aColor. |
226 shown ifTrue:[ |
224 self invalidateRepairNow:true |
227 self invalidateRepairNow:true |
|
228 ] |
|
229 ] |
225 ] |
230 |
226 |
231 "Modified: / 6.6.1998 / 19:53:44 / cg" |
227 "Modified: / 6.6.1998 / 19:53:44 / cg" |
232 ! |
228 ! |
233 |
229 |
406 ! ! |
402 ! ! |
407 |
403 |
408 !UpDownButton class methodsFor:'documentation'! |
404 !UpDownButton class methodsFor:'documentation'! |
409 |
405 |
410 version |
406 version |
411 ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.20 2002-09-23 09:40:07 cg Exp $' |
407 ^ '$Header: /cvs/stx/stx/libwidg2/UpDownButton.st,v 1.21 2004-02-26 12:17:47 cg Exp $' |
412 ! ! |
408 ! ! |