equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libwidg' }" |
12 |
14 |
13 Button subclass:#ArrowButton |
15 Button subclass:#ArrowButton |
14 instanceVariableNames:'arrowStyle direction' |
16 instanceVariableNames:'arrowStyle direction' |
15 classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm |
17 classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm |
16 CachedStyle DefaultArrowStyle DefaultBackgroundColor |
18 CachedStyle DefaultArrowStyle DefaultBackgroundColor |
230 |
232 |
231 defaultDownArrowButtonForm |
233 defaultDownArrowButtonForm |
232 "return the default form used for the scrollDown Button |
234 "return the default form used for the scrollDown Button |
233 (if no styleSheet value is defined, and no form can be constructed)" |
235 (if no styleSheet value is defined, and no form can be constructed)" |
234 |
236 |
235 <resource: #image> |
237 <resource: #programImage> |
236 <resource: #style (#'name')> |
238 <resource: #style (#'name')> |
237 |
239 |
238 (StyleSheet name startsWith:#win9) ifTrue:[ |
240 (StyleSheet name startsWith:#win9) ifTrue:[ |
239 ^ Form |
241 ^ Form |
240 width:11 height:11 |
242 width:11 height:11 |
280 |
282 |
281 defaultLeftArrowButtonForm |
283 defaultLeftArrowButtonForm |
282 "return the default form used for the scrollLeft Button |
284 "return the default form used for the scrollLeft Button |
283 (if no styleSheet value is defined, and no form can be constructed)" |
285 (if no styleSheet value is defined, and no form can be constructed)" |
284 |
286 |
285 <resource: #image> |
287 <resource: #programImage> |
286 <resource: #style (#'name')> |
288 <resource: #style (#'name')> |
287 |
289 |
288 (StyleSheet name startsWith:#win9) ifTrue:[ |
290 (StyleSheet name startsWith:#win9) ifTrue:[ |
289 ^ Form |
291 ^ Form |
290 width:11 height:11 |
292 width:11 height:11 |
330 |
332 |
331 defaultRightArrowButtonForm |
333 defaultRightArrowButtonForm |
332 "return the default form used for the scrollRight Button |
334 "return the default form used for the scrollRight Button |
333 (if no styleSheet value is defined, and no form can be constructed)" |
335 (if no styleSheet value is defined, and no form can be constructed)" |
334 |
336 |
335 <resource: #image> |
337 <resource: #programImage> |
336 <resource: #style (#'name')> |
338 <resource: #style (#'name')> |
337 |
339 |
338 (StyleSheet name startsWith:#win9) ifTrue:[ |
340 (StyleSheet name startsWith:#win9) ifTrue:[ |
339 ^ Form |
341 ^ Form |
340 width:11 height:11 |
342 width:11 height:11 |
379 |
381 |
380 defaultUpArrowButtonForm |
382 defaultUpArrowButtonForm |
381 "return the default form used for the scrollUp Button |
383 "return the default form used for the scrollUp Button |
382 (if no styleSheet value is defined, and no form can be constructed)" |
384 (if no styleSheet value is defined, and no form can be constructed)" |
383 |
385 |
384 <resource: #image> |
386 <resource: #programImage> |
385 <resource: #style (#'name')> |
387 <resource: #style (#'name')> |
386 |
388 |
387 (StyleSheet name startsWith:#win9) ifTrue:[ |
389 (StyleSheet name startsWith:#win9) ifTrue:[ |
388 ^ Form |
390 ^ Form |
389 width:11 height:11 |
391 width:11 height:11 |
984 ! ! |
986 ! ! |
985 |
987 |
986 !ArrowButton class methodsFor:'documentation'! |
988 !ArrowButton class methodsFor:'documentation'! |
987 |
989 |
988 version |
990 version |
989 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.59 2000-02-11 14:57:10 cg Exp $' |
991 ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.60 2000-08-30 21:22:14 cg Exp $' |
990 ! ! |
992 ! ! |