--- a/ArrowButton.st Sat Jan 08 18:31:31 1994 +0100
+++ b/ArrowButton.st Thu Jan 13 01:18:51 1994 +0100
@@ -25,7 +25,7 @@
Buttons of scrollbars - show arrows.
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.3 1994-01-08 17:22:45 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.4 1994-01-13 00:14:23 claus Exp $
written summer 93 by claus
'!
@@ -238,34 +238,34 @@
self clear.
self foreground:(Color noColor) background:(Color allColor) function:#and.
- self drawOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1 .
+ self displayOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1 .
self foreground:topLeft background:(Color noColor) function:#or.
- self drawOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1.
+ self displayOpaqueForm:logo x:labelOriginX-1 y:labelOriginY - 1.
self foreground:(Color noColor) background:(Color allColor) function:#and.
- self drawOpaqueForm:logo x:labelOriginX y:labelOriginY - 1 .
+ self displayOpaqueForm:logo x:labelOriginX y:labelOriginY - 1 .
self foreground:topLeft background:(Color noColor) function:#or.
- self drawOpaqueForm:logo x:labelOriginX y:labelOriginY - 1.
+ self displayOpaqueForm:logo x:labelOriginX y:labelOriginY - 1.
self foreground:(Color noColor) background:(Color allColor) function:#and.
- self drawOpaqueForm:logo x:labelOriginX -1 y:labelOriginY .
+ self displayOpaqueForm:logo x:labelOriginX -1 y:labelOriginY .
self foreground:topLeft background:(Color noColor) function:#or.
- self drawOpaqueForm:logo x:labelOriginX -1 y:labelOriginY .
+ self displayOpaqueForm:logo x:labelOriginX -1 y:labelOriginY .
self foreground:(Color noColor) background:(Color allColor) function:#and.
- self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY .
+ self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY .
self foreground:botRight background:(Color noColor) function:#or.
- self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY .
+ self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY .
self foreground:(Color noColor) background:(Color allColor) function:#and.
- self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1 .
+ self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1 .
self foreground:botRight background:(Color noColor) function:#or.
- self drawOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1.
+ self displayOpaqueForm:logo x:labelOriginX + 1 y:labelOriginY + 1.
self foreground:(Color noColor) background:(Color allColor) function:#and.
- self drawOpaqueForm:logo x:labelOriginX y:labelOriginY .
+ self displayOpaqueForm:logo x:labelOriginX y:labelOriginY .
self foreground:bg background:(Color noColor) function:#or.
- self drawOpaqueForm:logo x:labelOriginX y:labelOriginY .
+ self displayOpaqueForm:logo x:labelOriginX y:labelOriginY .
self function:#copy