UIPainter.st
changeset 1360 555429506474
parent 1357 ba372586f899
child 1391 be99f3e9260e
equal deleted inserted replaced
1359:ea946edbf5fb 1360:555429506474
  3685          and:[(cls  := canvas resolveName:cls) notNil]
  3685          and:[(cls  := canvas resolveName:cls) notNil]
  3686         ) ifTrue:[
  3686         ) ifTrue:[
  3687             list := cls perform:#aspectSelectors ifNotUnderstood:nil.
  3687             list := cls perform:#aspectSelectors ifNotUnderstood:nil.
  3688         ].
  3688         ].
  3689         spec setExportedAspectsFrom:list.
  3689         spec setExportedAspectsFrom:list.
  3690         windowSpec exportedAspects:(spec exportedAspects).
  3690         windowSpec notNil ifTrue:[
       
  3691             windowSpec exportedAspects:(spec exportedAspects).
       
  3692         ]
  3691     ].
  3693     ].
  3692 
  3694 
  3693     self propertiesDo:[:aProp| |aspect entry|
  3695     self propertiesDo:[:aProp| |aspect entry|
  3694         spec exportedAspectsAddKey:(aProp model) type:nil.
  3696         spec exportedAspectsAddKey:(aProp model) type:nil.
  3695         aProp spec aspectSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:nil].
  3697         aProp spec aspectSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:nil].