--- a/AppModel.st	Sun Jul 23 04:29:14 1995 +0200
+++ b/AppModel.st	Thu Aug 03 03:32:15 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.12 1995-07-23 02:25:11 claus Exp $
+$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.13 1995-08-03 01:31:23 claus Exp $
 "
 !
 
@@ -468,13 +468,15 @@
 !ApplicationModel methodsFor:'misc'!
 
 withCursor:aCursor do:aBlock
-    "evaluate aBlock, showing aCursor in my topView and all of its subviews"
+    "evaluate aBlock, showing aCursor in my topView and all of its subviews.
+     Return the value of aBlock."
 
-    self window withCursor:aCursor do:aBlock
+    ^ self window withCursor:aCursor do:aBlock
 !
 
 withWaitCursorDo:aBlock
-    "evaluate aBlock, showing a waitCursor in my topView and all of its subviews"
+    "evaluate aBlock, showing a waitCursor in my topView and all of its subviews.
+     Return the value of aBlock."
 
-    self withCursor:Cursor wait do:aBlock
+    ^ self withCursor:Cursor wait do:aBlock
 ! !

--- a/ApplicationModel.st	Sun Jul 23 04:29:14 1995 +0200
+++ b/ApplicationModel.st	Thu Aug 03 03:32:15 1995 +0200
@@ -39,7 +39,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.12 1995-07-23 02:25:11 claus Exp $
+$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.13 1995-08-03 01:31:23 claus Exp $
 "
 !
 
@@ -468,13 +468,15 @@
 !ApplicationModel methodsFor:'misc'!
 
 withCursor:aCursor do:aBlock
-    "evaluate aBlock, showing aCursor in my topView and all of its subviews"
+    "evaluate aBlock, showing aCursor in my topView and all of its subviews.
+     Return the value of aBlock."
 
-    self window withCursor:aCursor do:aBlock
+    ^ self window withCursor:aCursor do:aBlock
 !
 
 withWaitCursorDo:aBlock
-    "evaluate aBlock, showing a waitCursor in my topView and all of its subviews"
+    "evaluate aBlock, showing a waitCursor in my topView and all of its subviews.
+     Return the value of aBlock."
 
-    self withCursor:Cursor wait do:aBlock
+    ^ self withCursor:Cursor wait do:aBlock
 ! !

--- a/Model.st	Sun Jul 23 04:29:14 1995 +0200
+++ b/Model.st	Thu Aug 03 03:32:15 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview2/Model.st,v 1.11 1995-07-02 16:16:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/Model.st,v 1.12 1995-08-03 01:32:15 claus Exp $
 '!
 
 !Model class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview2/Model.st,v 1.11 1995-07-02 16:16:44 claus Exp $
+$Header: /cvs/stx/stx/libview2/Model.st,v 1.12 1995-08-03 01:32:15 claus Exp $
 "
 !
 
@@ -50,15 +50,17 @@
 "
     Models are things that are presented in views. Instances keep track of 
     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
+    Actually the Model class is not really needed; since the dependency
+    mechanism is inherited by Object, you can take any object as a model.
+    However, instances of Model (and subclasses) keep the dependents locally
     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:
-	dependents      WeakCollection      the views depending on me
+	dependents      Collection      those objects which depend on me.
+					To save some storage, the dependent is
+					kept directly here, IFF there os only one.
+					Otherwise, a collection of dependents is
+					held here.
 "
 ! !