--- a/View.st	Thu Sep 12 15:53:43 2002 +0200
+++ b/View.st	Thu Sep 12 15:57:30 2002 +0200
@@ -680,10 +680,18 @@
         self foregroundColor:(foregroundChannel value).
         ^ self
     ].
+    changedObject == model ifTrue:[
+        self updateFromModel.
+        ^ self
+    ].
     super update:something with:aParameter from:changedObject
 
     "Created: / 14.1.1998 / 17:10:11 / stefan"
     "Modified: / 30.3.1999 / 13:52:31 / stefan"
+!
+
+updateFromModel
+    "to be redefined in subclasses"
 ! !
 
 !View methodsFor:'drawing'!
@@ -757,5 +765,5 @@
 !View class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.74 2002-08-22 16:56:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/View.st,v 1.75 2002-09-12 13:57:30 cg Exp $'
 ! !