--- a/ScrollableView.st	Wed Jun 05 17:08:06 1996 +0200
+++ b/ScrollableView.st	Wed Jun 05 17:09:57 1996 +0200
@@ -950,15 +950,21 @@
 !
 
 model
+    "return my scrolledViews model"
+
     ^ scrolledView model
 
     "Created: 20.4.1996 / 13:27:25 / cg"
+    "Modified: 5.6.1996 / 14:17:04 / cg"
 !
 
 model:aModel
+    "forward model change to my scrolledViews"
+
     ^ scrolledView model:aModel
 
     "Created: 20.4.1996 / 13:27:33 / cg"
+    "Modified: 5.6.1996 / 17:09:50 / cg"
 !
 
 rightButtonMenu
@@ -977,5 +983,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.35 1996-05-29 10:20:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.36 1996-06-05 15:09:57 cg Exp $'
 ! !