--- a/ArrButton.st Tue Feb 25 15:51:44 1997 +0100
+++ b/ArrButton.st Tue Feb 25 16:03:28 1997 +0100
@@ -11,7 +11,7 @@
"
Button subclass:#ArrowButton
- instanceVariableNames:'arrowStyle'
+ instanceVariableNames:'arrowStyle direction'
classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm
CachedStyle DefaultArrowStyle DefaultBackgroundColor
DefaultForegroundColor DefaultActiveBackgroundColor
@@ -184,6 +184,12 @@
"Modified: 22.1.1997 / 11:59:14 / cg"
!
+new
+ "return a new arrowButton - direction defaults to #up"
+
+ ^ super new direction:#up
+!
+
rightIn:aView
"create and return a new right-button in aView"
@@ -679,6 +685,12 @@
!ArrowButton methodsFor:'accessing'!
+direction
+ "return the buttons direction - a symbol"
+
+ ^ direction
+!
+
direction:aDirectionSymbol
"create and return a new arrow button in aView"
@@ -696,6 +708,7 @@
aDirectionSymbol == #right ifTrue:[
form := (self class rightArrowButtonForm:arrowStyle on:device).
].
+ direction := aDirectionSymbol.
self form:form
"Modified: 24.2.1997 / 21:19:59 / cg"
@@ -855,5 +868,5 @@
!ArrowButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.38 1997-02-24 20:20:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ArrButton.st,v 1.39 1997-02-25 15:03:28 cg Exp $'
! !
--- a/ArrowButton.st Tue Feb 25 15:51:44 1997 +0100
+++ b/ArrowButton.st Tue Feb 25 16:03:28 1997 +0100
@@ -11,7 +11,7 @@
"
Button subclass:#ArrowButton
- instanceVariableNames:'arrowStyle'
+ instanceVariableNames:'arrowStyle direction'
classVariableNames:'DownArrowForm UpArrowForm LeftArrowForm RightArrowForm
CachedStyle DefaultArrowStyle DefaultBackgroundColor
DefaultForegroundColor DefaultActiveBackgroundColor
@@ -184,6 +184,12 @@
"Modified: 22.1.1997 / 11:59:14 / cg"
!
+new
+ "return a new arrowButton - direction defaults to #up"
+
+ ^ super new direction:#up
+!
+
rightIn:aView
"create and return a new right-button in aView"
@@ -679,6 +685,12 @@
!ArrowButton methodsFor:'accessing'!
+direction
+ "return the buttons direction - a symbol"
+
+ ^ direction
+!
+
direction:aDirectionSymbol
"create and return a new arrow button in aView"
@@ -696,6 +708,7 @@
aDirectionSymbol == #right ifTrue:[
form := (self class rightArrowButtonForm:arrowStyle on:device).
].
+ direction := aDirectionSymbol.
self form:form
"Modified: 24.2.1997 / 21:19:59 / cg"
@@ -855,5 +868,5 @@
!ArrowButton class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.38 1997-02-24 20:20:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.39 1997-02-25 15:03:28 cg Exp $'
! !