--- a/ButtonController.st	Fri May 12 20:25:18 1995 +0200
+++ b/ButtonController.st	Wed May 17 14:26:27 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.9 1995-05-10 02:29:13 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.10 1995-05-17 12:24:35 claus Exp $
 "
 !
 
@@ -98,7 +98,7 @@
     ^ 0.2
 ! !
 
-!ButtonController methodsFor:'accessing'!
+!ButtonController methodsFor:'accessing-state'!
 
 pressed
     "return true, if I am pressed"
@@ -126,14 +126,38 @@
     ^ entered
 !
 
+entered:aBoolean
+    entered := aBoolean
+!
+
+active:aBoolean
+    active := aBoolean
+!
+
+pressed:aBoolean
+    pressed := aBoolean
+! !
+
+!ButtonController methodsFor:'accessing-behavior'!
+
 beTriggerOnDown
     "make the receiver act on button press"
 
     isTriggerOnDown := true
 !
 
-active:aBoolean
-    active := aBoolean
+beTriggerOnUp
+    "make the receiver act on button release"
+
+    isTriggerOnDown := false
+!
+
+triggerOnDown:aBoolean
+    "set/clear the flag which controls if the action block is to be evaluated
+     on press or on release. 
+     (see also ST-80 compatibility methods beTriggerOn*)"
+
+    isTriggerOnDown := aBoolean
 !
 
 isTriggerOnDown
@@ -143,8 +167,18 @@
     ^ isTriggerOnDown
 !
 
-pressed:aBoolean
-    pressed := aBoolean
+beToggle
+    "make the receiver act like a toggle"
+
+    isTriggerOnDown := true.
+    isToggle := true
+!
+
+autoRepeat
+    "turn on autorepeat"
+
+    autoRepeat := true.
+    repeatBlock := [self repeat]
 !
 
 action:aBlock
@@ -161,13 +195,6 @@
     ]
 !
 
-beToggle
-    "make the receiver act like a toggle"
-
-    isTriggerOnDown := true.
-    isToggle := true
-!
-
 pressAction:aBlock
     "define the action to be performed on press"
 
@@ -180,32 +207,6 @@
     releaseActionBlock := aBlock
 !
 
-autoRepeat
-    "turn on autorepeat"
-
-    autoRepeat := true.
-    repeatBlock := [self repeat]
-!
-
-entered:aBoolean
-    entered := aBoolean
-!
-
-beTriggerOnUp
-    "make the receiver act on button release"
-
-    isTriggerOnDown := false
-!
-
-enable
-    "enable the button"
-
-    enabled ifFalse:[
-	enabled := true.
-	view redraw
-    ]
-!
-
 toggleNoAction
     "toggle, but do NOT perform any action"
 
@@ -218,14 +219,6 @@
     ].
 !
 
-triggerOnDown:aBoolean
-    "set/clear the flag which controls if the action block is to be evaluated
-     on press or on release. 
-     (see also ST-80 compatibility methods beTriggerOn*)"
-
-    isTriggerOnDown := aBoolean
-!
-
 toggle
     "toggle and perform the action"
 
@@ -250,6 +243,15 @@
     ^ releaseActionBlock
 !
 
+enable
+    "enable the button"
+
+    enabled ifFalse:[
+	enabled := true.
+	view redraw
+    ]
+!
+
 disable
     "disable the button"