--- a/SubCanvas.st	Thu Jul 24 14:43:30 2008 +0200
+++ b/SubCanvas.st	Thu Jul 24 14:43:39 2008 +0200
@@ -117,6 +117,14 @@
     ^ clientView
 !
 
+clientViewIsScrolled
+    ^ clientViewIsScrolled
+!
+
+isScrollWrapper
+    ^ clientViewIsScrolled
+!
+
 makeClientViewScrollable:shouldBeScrollable
     |vs|
 
@@ -522,5 +530,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.62 2008-07-18 09:44:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.63 2008-07-24 12:43:39 cg Exp $'
 ! !