--- a/VisualComponent.st	Wed Jun 05 17:28:29 1996 +0200
+++ b/VisualComponent.st	Wed Jun 05 17:31:20 1996 +0200
@@ -170,6 +170,16 @@
     "Modified: 9.5.1996 / 00:13:39 / cg"
 ! !
 
+!VisualComponent methodsFor:'accessing-mvc'!
+
+model
+    "return nil - generic components have no model"
+
+    ^ nil
+
+    "Created: 5.6.1996 / 14:18:16 / cg"
+! !
+
 !VisualComponent methodsFor:'displaying'!
 
 displayOn:aGC x:x y:y
@@ -290,5 +300,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.9 1996-06-05 15:22:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.10 1996-06-05 15:30:54 cg Exp $'
 ! !