--- a/ScrollableView.st	Sat Apr 20 14:39:32 1996 +0200
+++ b/ScrollableView.st	Sat Apr 20 15:52:21 1996 +0200
@@ -911,6 +911,18 @@
     scrolledView middleButtonMenu:aMenu
 !
 
+model
+    ^ scrolledView model
+
+    "Created: 20.4.1996 / 13:27:25 / cg"
+!
+
+model:aModel
+    ^ scrolledView model:aModel
+
+    "Created: 20.4.1996 / 13:27:33 / cg"
+!
+
 rightButtonMenu
     "return scrolledViews rightbuttonmenu"
 
@@ -927,5 +939,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.27 1996-04-18 12:33:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.28 1996-04-20 13:52:21 cg Exp $'
 ! !