--- a/ToggleController.st	Thu Nov 23 11:37:10 1995 +0100
+++ b/ToggleController.st	Thu Nov 23 11:42:48 1995 +0100
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg/ToggleController.st,v 1.8 1995-11-11 16:23:28 cg Exp $'
-!
-
 documentation
 "
     ToggleControllers redefine some of ButtonControllers behavior;
@@ -52,13 +48,19 @@
     Other than that, all model relations are inherited - i.e. if the view has a model,
     that one gets change-messages and the toggle updates on aspect changes.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libwidg/ToggleController.st,v 1.9 1995-11-23 10:40:33 cg Exp $'
 ! !
 
-!ToggleController methodsFor:'initialization'!
+!ToggleController methodsFor:'accessing'!
 
-initialize
-    super initialize.
-    self beToggle
+action:aBlock
+    "set the action to be performed. This is called
+     with the toggles state as argument."
+
+    action := aBlock
 ! !
 
 !ToggleController methodsFor:'events'!
@@ -76,11 +78,10 @@
     super performAction
 ! !
 
-!ToggleController methodsFor:'accessing'!
+!ToggleController methodsFor:'initialization'!
 
-action:aBlock
-    "set the action to be performed. This is called
-     with the toggles state as argument."
+initialize
+    super initialize.
+    self beToggle
+! !
 
-    action := aBlock
-! !