Model.st
changeset 35 f13cdd0b44c7
parent 28 8daff0234d2e
child 48 5c69e5bd56d4
--- a/Model.st	Mon Feb 06 01:36:28 1995 +0100
+++ b/Model.st	Mon Feb 06 01:37:58 1995 +0100
@@ -1,6 +1,6 @@
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -19,9 +19,9 @@
 
 Model comment:'
 COPYRIGHT (c) 1992 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Model.st,v 1.7 1994-10-10 02:32:42 claus Exp $
+$Header: /cvs/stx/stx/libview2/Model.st,v 1.8 1995-02-06 00:37:34 claus Exp $
 '!
 
 !Model class methodsFor:'documentation'!
@@ -29,7 +29,7 @@
 copyright
 "
  COPYRIGHT (c) 1992 by Claus Gittinger
-              All Rights Reserved
+	      All Rights Reserved
 
  This software is furnished under a license and may be used
  only in accordance with the terms of that license and with the
@@ -42,19 +42,23 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Model.st,v 1.7 1994-10-10 02:32:42 claus Exp $
+$Header: /cvs/stx/stx/libview2/Model.st,v 1.8 1995-02-06 00:37:34 claus Exp $
 "
 !
 
 documentation
 "
     Models are things that are presented in views. Instances keep track of 
-    which views are dependeent of them and inform them of any changes.
+    which views are dependent of them and inform them of any changes.
+    Actually the Model class is not really needed - you can take any object 
+    as a model - however instances of Model (and subclasses) keep the dependents
+    in an instance variable; thus speeding up access a bit.
+
     They should know how to display myself in a GraphicsContext.
     This was written to be more ST-80 conform.
 
     Instance variables:
-        dependentViews      Collection      the views knowing me
+	dependents      WeakCollection      the views depending on me
 "
 ! !
 
@@ -92,5 +96,4 @@
     "display myself in aGraphicsContext"
 
     ^ self subclassResponsibility
-
 ! !