author | Claus Gittinger <cg@exept.de> |
Thu, 17 Feb 2000 16:00:43 +0100 | |
changeset 1360 | 555429506474 |
parent 1359 | ea946edbf5fb |
child 1361 | 9020214f03e6 |
UIPainter.st | file | annotate | diff | comparison | revisions |
--- a/UIPainter.st Thu Feb 17 16:00:12 2000 +0100 +++ b/UIPainter.st Thu Feb 17 16:00:43 2000 +0100 @@ -3687,7 +3687,9 @@ list := cls perform:#aspectSelectors ifNotUnderstood:nil. ]. spec setExportedAspectsFrom:list. - windowSpec exportedAspects:(spec exportedAspects). + windowSpec notNil ifTrue:[ + windowSpec exportedAspects:(spec exportedAspects). + ] ]. self propertiesDo:[:aProp| |aspect entry|