added #new; gives a scrollableView with full scrollbars.
authorClaus Gittinger <cg@exept.de>
Thu, 12 Nov 1998 15:55:33 +0100
changeset 1719 3d4adf98c079
parent 1718 a472f4a57562
child 1720 896886032334
added #new; gives a scrollableView with full scrollbars.
ScrView.st
ScrollableView.st
--- 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 $'
 ! !