equal
deleted
inserted
replaced
336 |
336 |
337 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
337 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
338 specification := nil. |
338 specification := nil. |
339 ^ self |
339 ^ self |
340 ]. |
340 ]. |
341 builder := uiBuilder ? UIBuilder new. |
341 (builder := uiBuilder) isNil ifTrue:[ |
|
342 builder := UIBuilder new isEditing:true |
|
343 ]. |
|
344 |
342 specification buildViewFor:builder in:self. |
345 specification buildViewFor:builder in:self. |
343 |
346 |
344 subViews do:[:v| |
347 subViews do:[:v| |
345 (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[ |
348 (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[ |
346 v borderWidth:1. |
349 v borderWidth:1. |