--- a/ScrollableView.st	Mon Sep 25 17:24:50 2006 +0200
+++ b/ScrollableView.st	Fri Oct 06 14:31:45 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libwidg' }"
 
 SimpleView subclass:#ScrollableView
@@ -828,6 +827,16 @@
     "Modified: 6.3.1997 / 18:32:58 / cg"
 !
 
+forView:scrolledView miniScrollerH:miniH miniScrollerV:miniV
+    "return a new scrolling view, scrolling aView.
+     The view will have full scrollbars if the corresponding miniH/miniV
+     is false, miniscrollers if true."
+
+    ^ self forView:scrolledView miniScrollerH:miniH miniScrollerV:miniV in:nil
+
+    "Created: / 06-10-2006 / 14:30:30 / cg"
+!
+
 forView:scrolledView miniScrollerH:miniH miniScrollerV:miniV in:aView
     "return a new scrolling view, scrolling aView.
      The view will have full scrollbars if the corresponding miniH/miniV
@@ -2361,5 +2370,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.140 2006-09-18 18:55:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.141 2006-10-06 12:31:45 cg Exp $'
 ! !