--- 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
]
].