equal
deleted
inserted
replaced
204 ^ DownArrowForm |
204 ^ DownArrowForm |
205 ]. |
205 ]. |
206 |
206 |
207 DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil. |
207 DownArrowForm := StyleSheet at:'arrowButtonDownForm' default:nil. |
208 DownArrowForm notNil ifTrue:[ |
208 DownArrowForm notNil ifTrue:[ |
209 DownArrowForm := DownArrowForm on:Display. |
209 ^ DownArrowForm |
210 ^ DownArrowForm on:aDevice |
|
211 ]. |
210 ]. |
212 |
211 |
213 " |
212 " |
214 special treatment for st80 arrows |
213 special treatment for st80 arrows |
215 - they do not really fit into the general (bitmap) scheme ... |
214 - they do not really fit into the general (bitmap) scheme ... |
274 DownArrowForm := form |
273 DownArrowForm := form |
275 ]. |
274 ]. |
276 |
275 |
277 ^ form |
276 ^ form |
278 |
277 |
279 "Modified: 9.1.1997 / 10:58:36 / cg" |
278 "Modified: 9.1.1997 / 14:04:11 / cg" |
280 ! |
279 ! |
281 |
280 |
282 leftArrowButtonForm:style on:aDevice |
281 leftArrowButtonForm:style on:aDevice |
283 "retun the form used for the scrollLeft Button" |
282 "retun the form used for the scrollLeft Button" |
284 |
283 |
481 ^ UpArrowForm |
480 ^ UpArrowForm |
482 ]. |
481 ]. |
483 |
482 |
484 UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil. |
483 UpArrowForm := StyleSheet at:'arrowButtonUpForm' default:nil. |
485 UpArrowForm notNil ifTrue:[ |
484 UpArrowForm notNil ifTrue:[ |
486 UpArrowForm := UpArrowForm on:Display. |
485 ^ UpArrowForm |
487 ^ UpArrowForm on:aDevice |
|
488 ]. |
486 ]. |
489 |
487 |
490 " |
488 " |
491 special treatment for st80 arrows |
489 special treatment for st80 arrows |
492 - they do not really fit into the general (bitmap) scheme ... |
490 - they do not really fit into the general (bitmap) scheme ... |
551 UpArrowForm := form |
549 UpArrowForm := form |
552 ]. |
550 ]. |
553 |
551 |
554 ^ form |
552 ^ form |
555 |
553 |
556 "Modified: 9.1.1997 / 10:59:28 / cg" |
554 "Modified: 9.1.1997 / 14:03:45 / cg" |
557 ! |
555 ! |
558 |
556 |
559 updateStyleCache |
557 updateStyleCache |
560 "extract values from the styleSheet and cache them in class variables" |
558 "extract values from the styleSheet and cache them in class variables" |
561 |
559 |
783 ! ! |
781 ! ! |
784 |
782 |
785 !ArrowButton class methodsFor:'documentation'! |
783 !ArrowButton class methodsFor:'documentation'! |
786 |
784 |
787 version |
785 version |
788 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.31 1997-01-09 11:50:41 cg Exp $' |
786 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.32 1997-01-09 13:04:26 cg Exp $' |
789 ! ! |
787 ! ! |