--- a/SubCanvas.st	Tue Feb 01 11:15:28 2000 +0100
+++ b/SubCanvas.st	Tue Feb 01 13:15:45 2000 +0100
@@ -308,9 +308,9 @@
                 builder window:savedView.
             ]
         ].
-"/        clientViewIsScrolled ifTrue:[
+        clientViewIsScrolled ifTrue:[
             clientView extent:((subSpec window layout) ? (subSpec window bounds)) extent.
-"/        ].
+        ].
 
         self realized ifTrue:[
             clientView realizeAllSubViews
@@ -415,5 +415,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.21 2000-01-31 15:47:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.22 2000-02-01 12:15:45 cg Exp $'
 ! !