# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 845375536 -7200
# Node ID 49710cf2dd473378a70167700c6993ddb7545d79
# Parent  94a8d188b52d4729656b47537ee5f82d7a0bb4b4
now is the time - for a scroller to come in the classList ...

diff -r 94a8d188b52d -r 49710cf2dd47 BrowserView.st
--- a/BrowserView.st	Mon Oct 14 22:20:06 1996 +0200
+++ b/BrowserView.st	Tue Oct 15 12:32:16 1996 +0200
@@ -4117,17 +4117,20 @@
 "/    classListView := v scrolledView
 
     panel := VariableVerticalPanel
-		    origin:(0.0 @ 0.0)
-		    corner:[frame width
-			    @
-			    (frame height
-			      - ViewSpacing
-			      - instanceToggle height
-			      "-" "+ instanceToggle borderWidth "
-			      + v borderWidth)]
-			in:frame.
-
-    v := ScrollableView for:SelectionInListView in:panel.
+                    origin:(0.0 @ 0.0)
+                    corner:[frame width
+                            @
+                            (frame height
+                              - ViewSpacing
+                              - instanceToggle height
+                              "-" "+ instanceToggle borderWidth "
+                              + v borderWidth)]
+                        in:frame.
+
+    v := HVScrollableView 
+                for:SelectionInListView 
+                miniScrollerH:true miniScrollerV:false
+                in:panel.
     v origin:(0.0 @ 0.0) corner:(1.0 @ 0.7).
     classListView := v scrolledView.
 
@@ -4136,6 +4139,8 @@
     v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0).
 
     variableListView := v scrolledView.
+
+    "Modified: 15.10.1996 / 11:30:22 / cg"
 !
 
 createCodeViewIn:aView
@@ -7899,6 +7904,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.181 1996-10-14 19:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.182 1996-10-15 10:32:16 cg Exp $'
 ! !
 BrowserView initialize!
diff -r 94a8d188b52d -r 49710cf2dd47 BrwsrView.st
--- a/BrwsrView.st	Mon Oct 14 22:20:06 1996 +0200
+++ b/BrwsrView.st	Tue Oct 15 12:32:16 1996 +0200
@@ -4117,17 +4117,20 @@
 "/    classListView := v scrolledView
 
     panel := VariableVerticalPanel
-		    origin:(0.0 @ 0.0)
-		    corner:[frame width
-			    @
-			    (frame height
-			      - ViewSpacing
-			      - instanceToggle height
-			      "-" "+ instanceToggle borderWidth "
-			      + v borderWidth)]
-			in:frame.
-
-    v := ScrollableView for:SelectionInListView in:panel.
+                    origin:(0.0 @ 0.0)
+                    corner:[frame width
+                            @
+                            (frame height
+                              - ViewSpacing
+                              - instanceToggle height
+                              "-" "+ instanceToggle borderWidth "
+                              + v borderWidth)]
+                        in:frame.
+
+    v := HVScrollableView 
+                for:SelectionInListView 
+                miniScrollerH:true miniScrollerV:false
+                in:panel.
     v origin:(0.0 @ 0.0) corner:(1.0 @ 0.7).
     classListView := v scrolledView.
 
@@ -4136,6 +4139,8 @@
     v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0).
 
     variableListView := v scrolledView.
+
+    "Modified: 15.10.1996 / 11:30:22 / cg"
 !
 
 createCodeViewIn:aView
@@ -7899,6 +7904,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.181 1996-10-14 19:24:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.182 1996-10-15 10:32:16 cg Exp $'
 ! !
 BrowserView initialize!