# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 931885051 -7200
# Node ID 32bb9f029ad232023eeaa174aa4312b3b9b048b7
# Parent  237c82b3b0fca5be04b188a479c075f0c50f7d1f
care for wrapped views

diff -r 237c82b3b0fc -r 32bb9f029ad2 UIPainterView.st
--- a/UIPainterView.st	Tue Jul 13 17:49:25 1999 +0200
+++ b/UIPainterView.st	Tue Jul 13 18:57:31 1999 +0200
@@ -1118,8 +1118,20 @@
     spec := OrderedCollection new.
 
     self subViews do:[:aView|
+        |vSpec|
+
         aView ~~ inputView ifTrue:[
-            spec add:(self fullSpecFor:aView)
+            "/ care for wrapped views ...
+            vSpec := self fullSpecFor:aView.
+            vSpec isNil ifTrue:[
+                aView subViews size == 1 ifTrue:[
+                    vSpec := self fullSpecFor:(aView subViews first).
+                ]
+            ].
+            vSpec isNil ifTrue:[
+                self warn:'Oops - could not create spec for some view'
+            ].
+            spec add:vSpec
         ]
     ].