--- a/ArrowButton.st	Mon Feb 06 01:52:01 1995 +0100
+++ b/ArrowButton.st	Mon Feb 06 01:53:30 1995 +0100
@@ -28,7 +28,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.10 1995-01-26 18:17:37 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.11 1995-02-06 00:51:51 claus Exp $
 '!
 
 !ArrowButton class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.10 1995-01-26 18:17:37 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ArrowButton.st,v 1.11 1995-02-06 00:51:51 claus Exp $
 "
 !
 
@@ -529,7 +529,7 @@
 
 initialize
     super initialize.
-    actionWhenPressed := true.
+    controller beTriggerOnDown.
 !
 
 initStyle
@@ -588,7 +588,7 @@
 	shadowColor := shadowColor on:device.
 	lightColor := lightColor on:device.
 
-	pressed ifTrue:[
+	controller pressed ifTrue:[
 	    topLeft := shadowColor.
 	    botRight := lightColor
 	] ifFalse:[