equal
deleted
inserted
replaced
327 ] |
327 ] |
328 ]. |
328 ]. |
329 |
329 |
330 aSpecOrSpecArray notNil ifTrue:[ |
330 aSpecOrSpecArray notNil ifTrue:[ |
331 specification := UISpecification from:aSpecOrSpecArray. |
331 specification := UISpecification from:aSpecOrSpecArray. |
|
332 |
|
333 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
|
334 specification := nil. |
|
335 ^ self |
|
336 ]. |
332 builder := uiBuilder ? UIBuilder new. |
337 builder := uiBuilder ? UIBuilder new. |
333 specification buildViewFor:builder in:self. |
338 specification buildViewFor:builder in:self. |
334 |
339 |
335 subViews do:[:v| |
340 subViews do:[:v| |
336 (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[ |
341 (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[ |