--- a/SubCanvas.st	Thu Jun 17 10:36:45 1999 +0200
+++ b/SubCanvas.st	Thu Jun 17 10:51:17 1999 +0200
@@ -46,6 +46,20 @@
 
 ! !
 
+!SubCanvas class methodsFor:'defaults'!
+
+defaultHorizontalScrollable
+    ^ false
+
+
+!
+
+defaultVerticalScrollable
+    ^ false
+
+
+! !
+
 !SubCanvas methodsFor:'accessing'!
 
 builder
@@ -310,5 +324,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.12 1999-06-16 12:22:08 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.13 1999-06-17 08:51:17 tm Exp $'
 ! !