now is the time - for a scroller to come in the classList ...
--- 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!
--- 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!