--- a/ButtonController.st	Tue Feb 28 22:52:21 1995 +0100
+++ b/ButtonController.st	Mon Mar 06 20:29:54 1995 +0100
@@ -37,7 +37,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.4 1995-02-27 10:38:07 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.5 1995-03-06 19:27:54 claus Exp $
 "
 !
 
@@ -256,7 +256,9 @@
 
 	    triggerOnDown ifTrue:[
 		"the ST-80 way of doing things"
-		view sendChangeMessageWith:true
+		view notNil ifTrue:[
+		    view sendChangeMessageWith:true
+		]
 	    ].
 
 	    active := false.
@@ -306,7 +308,9 @@
 		].
 		triggerOnDown ifFalse:[
 		    "the ST-80 way of doing things"
-		    view sendChangeMessageWith:false.
+		    view notNil ifTrue:[
+			view sendChangeMessageWith:false.
+		    ].
 		].
 
 		active := false.
@@ -404,4 +408,3 @@
 	]
     ]
 ! !
-