UIPainterView.st
changeset 3249 a322cc9c9193
parent 3244 6b83ffb461b5
child 3262 3168fe296011
equal deleted inserted replaced
3248:e92c9691ef33 3249:a322cc9c9193
   486         view := self addSpec:eachSpec builder:builder in:containerToPasteInto beforeIndex:beforeIndex.
   486         view := self addSpec:eachSpec builder:builder in:containerToPasteInto beforeIndex:beforeIndex.
   487         beforeIndex notNil ifTrue:[
   487         beforeIndex notNil ifTrue:[
   488             beforeIndex := beforeIndex + 1
   488             beforeIndex := beforeIndex + 1
   489         ].
   489         ].
   490         (keepLayout or:[eachSpec keepUILayout]) ifTrue:[
   490         (keepLayout or:[eachSpec keepUILayout]) ifTrue:[
   491             view layout:eachSpec layout.
   491             eachSpec layout isAssociation ifTrue:[
       
   492                 eachSpec layout key == #extent ifTrue:[
       
   493                     view pixelExtent:eachSpec layout value
       
   494                 ] ifFalse:[
       
   495                     "/ self halt.
       
   496                     view geometryLayout:eachSpec layout value
       
   497                 ].
       
   498             ] ifFalse:[    
       
   499                 view geometryLayout:eachSpec layout.
       
   500             ]
   492         ] ifFalse:[
   501         ] ifFalse:[
   493             (keepPosition and:[ uiPainterAttributes notNil ]) ifTrue:[
   502             (keepPosition and:[ uiPainterAttributes notNil ]) ifTrue:[
   494                 aPointOrNilOrKeep == #keep ifTrue:[
   503                 aPointOrNilOrKeep == #keep ifTrue:[
   495                     newOrigin := uiPainterAttributes at:#origin.
   504                     newOrigin := uiPainterAttributes at:#origin.
   496                 ] ifFalse:[
   505                 ] ifFalse:[