23 COPYRIGHT (c) 1993 by Claus Gittinger |
23 COPYRIGHT (c) 1993 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 Buttons of scrollbars - show arrows. |
26 Buttons of scrollbars - show arrows. |
27 |
27 |
28 $Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.3 1994-01-08 17:22:45 claus Exp $ |
28 $Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.4 1994-01-13 00:14:23 claus Exp $ |
29 |
29 |
30 written summer 93 by claus |
30 written summer 93 by claus |
31 '! |
31 '! |
32 |
32 |
33 !ArrowButton class methodsFor:'defaults'! |
33 !ArrowButton class methodsFor:'defaults'! |
236 ]. |
236 ]. |
237 self paint:bg. |
237 self paint:bg. |
238 self clear. |
238 self clear. |
239 |
239 |
240 self foreground:(Color noColor) background:(Color allColor) function:#and. |
240 self foreground:(Color noColor) background:(Color allColor) function:#and. |
241 self drawOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1 . |
241 self displayOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1 . |
242 self foreground:topLeft background:(Color noColor) function:#or. |
242 self foreground:topLeft background:(Color noColor) function:#or. |
243 self drawOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1. |
243 self displayOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1. |
244 |
244 |
245 self foreground:(Color noColor) background:(Color allColor) function:#and. |
245 self foreground:(Color noColor) background:(Color allColor) function:#and. |
246 self drawOpaqueForm:logo x:labelOriginX y:labelOriginY - 1 . |
246 self displayOpaqueForm:logo x:labelOriginX y:labelOriginY - 1 . |
247 self foreground:topLeft background:(Color noColor) function:#or. |
247 self foreground:topLeft background:(Color noColor) function:#or. |
248 self drawOpaqueForm:logo x:labelOriginX y:labelOriginY - 1. |
248 self displayOpaqueForm:logo x:labelOriginX y:labelOriginY - 1. |
249 |
249 |
250 self foreground:(Color noColor) background:(Color allColor) function:#and. |
250 self foreground:(Color noColor) background:(Color allColor) function:#and. |
251 self drawOpaqueForm:logo x:labelOriginX -1 y:labelOriginY . |
251 self displayOpaqueForm:logo x:labelOriginX -1 y:labelOriginY . |
252 self foreground:topLeft background:(Color noColor) function:#or. |
252 self foreground:topLeft background:(Color noColor) function:#or. |
253 self drawOpaqueForm:logo x:labelOriginX -1 y:labelOriginY . |
253 self displayOpaqueForm:logo x:labelOriginX -1 y:labelOriginY . |
254 |
254 |
255 self foreground:(Color noColor) background:(Color allColor) function:#and. |
255 self foreground:(Color noColor) background:(Color allColor) function:#and. |
256 self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY . |
256 self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY . |
257 self foreground:botRight background:(Color noColor) function:#or. |
257 self foreground:botRight background:(Color noColor) function:#or. |
258 self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY . |
258 self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY . |
259 |
259 |
260 self foreground:(Color noColor) background:(Color allColor) function:#and. |
260 self foreground:(Color noColor) background:(Color allColor) function:#and. |
261 self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1 . |
261 self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1 . |
262 self foreground:botRight background:(Color noColor) function:#or. |
262 self foreground:botRight background:(Color noColor) function:#or. |
263 self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1. |
263 self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1. |
264 |
264 |
265 self foreground:(Color noColor) background:(Color allColor) function:#and. |
265 self foreground:(Color noColor) background:(Color allColor) function:#and. |
266 self drawOpaqueForm:logo x:labelOriginX y:labelOriginY . |
266 self displayOpaqueForm:logo x:labelOriginX y:labelOriginY . |
267 self foreground:bg background:(Color noColor) function:#or. |
267 self foreground:bg background:(Color noColor) function:#or. |
268 self drawOpaqueForm:logo x:labelOriginX y:labelOriginY . |
268 self displayOpaqueForm:logo x:labelOriginX y:labelOriginY . |
269 |
269 |
270 self function:#copy |
270 self function:#copy |
271 |
271 |
272 ] |
272 ] |
273 ! ! |
273 ! ! |