added #new; gives a scrollableView with full scrollbars.
--- a/ScrView.st Wed Nov 11 16:23:20 1998 +0100
+++ b/ScrView.st Thu Nov 12 15:55:33 1998 +0100
@@ -896,6 +896,17 @@
in:nil
"Modified: 6.3.1997 / 18:34:16 / cg"
+!
+
+new
+ "return a new scrolling view.
+ There is no slave view now - this has to be set later via
+ the scrolledView: method.
+ The view will have full scrollbars."
+
+ ^ self in:nil
+
+ "Modified: / 12.11.1998 / 14:55:54 / cg"
! !
!ScrollableView class methodsFor:'defaults'!
@@ -2034,5 +2045,5 @@
!ScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.89 1998-09-28 11:50:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/Attic/ScrView.st,v 1.90 1998-11-12 14:55:33 cg Exp $'
! !
--- a/ScrollableView.st Wed Nov 11 16:23:20 1998 +0100
+++ b/ScrollableView.st Thu Nov 12 15:55:33 1998 +0100
@@ -896,6 +896,17 @@
in:nil
"Modified: 6.3.1997 / 18:34:16 / cg"
+!
+
+new
+ "return a new scrolling view.
+ There is no slave view now - this has to be set later via
+ the scrolledView: method.
+ The view will have full scrollbars."
+
+ ^ self in:nil
+
+ "Modified: / 12.11.1998 / 14:55:54 / cg"
! !
!ScrollableView class methodsFor:'defaults'!
@@ -2034,5 +2045,5 @@
!ScrollableView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.89 1998-09-28 11:50:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ScrollableView.st,v 1.90 1998-11-12 14:55:33 cg Exp $'
! !