--- a/ScrView.st	Sat Dec 09 23:12:30 1995 +0100
+++ b/ScrView.st	Sun Dec 10 17:53:46 1995 +0100
@@ -12,7 +12,7 @@
 
 SimpleView subclass:#ScrollableView
 	 instanceVariableNames:'scrolledView scrollBar helpView innerMargin scrollBarPosition
-                lockUpdates'
+		lockUpdates'
 	 classVariableNames:'DefaultScrolledViewLevel'
 	 poolDictionaries:''
 	 category:'Views-Basic'
@@ -366,6 +366,16 @@
     ^ self forView:aView miniScrollerH:false miniScrollerV:false in:nil
 !
 
+forView:aView miniScrollerH:mini
+    "return a new scrolling view scrolling aView.
+     The view will have a full vertical scrollbar and a horizontal
+     miniScroller if mini is true."
+
+    ^ self forView:aView miniScrollerH:mini miniScrollerV:false in:nil
+
+    "Created: 10.12.1995 / 17:26:16 / 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
@@ -845,5 +855,5 @@
 !ScrollableView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.22 1995-11-27 22:30:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.23 1995-12-10 16:53:46 cg Exp $'
 ! !