--- a/ButtonController.st	Sat Jan 25 18:52:19 1997 +0100
+++ b/ButtonController.st	Mon Jan 27 16:00:15 1997 +0100
@@ -156,6 +156,17 @@
     "Modified: 5.9.1995 / 22:06:00 / claus"
 !
 
+beButton
+    "make the receiver act like a button; thats the default, anyway"
+
+    isTriggerOnDown := false.
+    isToggle := false.
+    isRadio := false.
+
+    "Modified: 15.7.1996 / 13:42:15 / cg"
+    "Created: 27.1.1997 / 13:30:11 / cg"
+!
+
 beRadioButton
     "make the receiver act like a radioButton;
      That is like a toggle, but do not allow turning myself off
@@ -629,5 +640,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.37 1997-01-24 14:39:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.38 1997-01-27 15:00:15 cg Exp $'
 ! !