--- a/SubCanvas.st	Tue Feb 12 10:24:21 2008 +0100
+++ b/SubCanvas.st	Mon Feb 18 09:33:17 2008 +0100
@@ -116,6 +116,10 @@
     ^ builder
 !
 
+clientView
+    ^ clientView
+!
+
 makeClientViewScrollable:aBoolean
     |vs|
 
@@ -360,7 +364,8 @@
             ]
         ].
         subSpec isArray ifTrue:[
-            subSpec := subSpec decodeAsLiteralArray
+            subSpec := subSpec decodeAsLiteralArray.
+            subSpec isArray ifTrue:[self halt].
         ].
 
         builder isNil ifTrue:[
@@ -438,7 +443,14 @@
         ].
 
         clientViewIsScrolled ifTrue:[
-            clientView extent:((subSpec window layout) ? (subSpec window bounds)) extent.
+            subSpec window layout notNil ifTrue:[
+                "/ mhmh - what should we base the size computation on ?
+                "/ (I dont see any reason to look at the windows spec at all;
+                "/  isn't the user of the spec the only one to control the size).
+                clientView extent:(subSpec window bounds extent)
+            ] ifFalse:[
+                clientView extent:(subSpec window bounds extent)
+            ].
         ].
 
         self realized ifTrue:[
@@ -581,5 +593,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.56 2007-11-08 11:51:11 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.57 2008-02-18 08:33:17 cg Exp $'
 ! !