--- a/View.st	Wed Feb 22 12:08:08 1995 +0100
+++ b/View.st	Mon Feb 27 11:20:36 1995 +0100
@@ -45,7 +45,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/View.st,v 1.30 1995-02-22 11:08:08 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.31 1995-02-27 10:19:51 claus Exp $
 '!
 
 "this flag controls (globally) how views look - it will vanish"
@@ -70,7 +70,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/View.st,v 1.30 1995-02-22 11:08:08 claus Exp $
+$Header: /cvs/stx/stx/libview/View.st,v 1.31 1995-02-27 10:19:51 claus Exp $
 "
 !
 
@@ -587,7 +587,7 @@
     bitGravity := nil.
     viewGravity := nil.
 
-    controllerClass := self defaultController.
+    controllerClass := self defaultControllerClass.
     controllerClass notNil ifTrue:[
 	controller := controllerClass new.
 	controller view:self.
@@ -597,7 +597,7 @@
     ].
 !
 
-defaultController
+defaultControllerClass
     ^ nil "/ Controller
 !
 
@@ -806,6 +806,26 @@
     "Return the symbol sent to the model to aquire the menu"
 
     ^ menuSymbol
+!
+
+sendChangeMessageWith:arg
+    |n|
+
+    "/
+    "/ MVC way of doing it
+    "/
+    (model notNil and:[changeSymbol notNil]) ifTrue:[
+	n := changeSymbol numArgs.
+	n == 0 ifTrue:[
+	    model perform:changeSymbol
+	] ifFalse:[
+	    n == 1 ifTrue:[
+		model perform:changeSymbol with:arg
+	    ] ifFalse:[
+		model perform:changeSymbol with:arg with:self 
+	    ]
+	]
+    ]
 ! !
 
 !View methodsFor:'accessing-dimensions'!