--- a/Button.st	Tue Nov 14 21:29:41 1995 +0100
+++ b/Button.st	Tue Nov 14 22:44:34 1995 +0100
@@ -52,7 +52,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.34 1995-11-11 16:19:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.35 1995-11-14 21:44:19 cg Exp $'
 !
 
 documentation
@@ -1428,6 +1428,27 @@
 
 !Button methodsFor:'changing state'!
 
+turnOffNoAction
+    "turn the button off (if not already off)"
+
+    controller pressed ifTrue:[
+	offLevel ~~ level ifTrue:[
+	    self level:offLevel.
+	].
+	(passiveLogo notNil and:[passiveLogo ~~ logo]) ifTrue:[
+	    self logo:passiveLogo
+	].
+	controller setPressed:false.
+	controller active:false.
+	level := offLevel.
+	margin := level abs.
+	self redraw
+    ]
+
+    "Created: 14.11.1995 / 22:00:09 / cg"
+    "Modified: 14.11.1995 / 22:00:37 / cg"
+!
+
 turnOffWithoutRedraw
     "turn the button off - no redraw"
 
@@ -1456,6 +1477,27 @@
     ]
 !
 
+turnOnNoAction
+    "turn the button on (if not already on)"
+
+    controller pressed ifFalse:[
+	onLevel ~~ level ifTrue:[
+	    self level:onLevel.
+	].
+	(activeLogo notNil and:[activeLogo ~~ logo]) ifTrue:[
+	    self logo:activeLogo
+	].
+	controller setPressed:true.
+	level := onLevel.
+	margin := level abs.
+
+	self redraw
+    ]
+
+    "Created: 14.11.1995 / 22:00:45 / cg"
+    "Modified: 14.11.1995 / 22:01:02 / cg"
+!
+
 turnOnWithoutRedraw
     "turn the button on - no redraw"