equal
deleted
inserted
replaced
332 " |
332 " |
333 |builder| |
333 |builder| |
334 |
334 |
335 self selection:nil. |
335 self selection:nil. |
336 |
336 |
337 self subViews copy do:[:aSubView| |
337 subViews copy do:[:aSubView| |
338 aSubView ~~ inputView ifTrue:[ |
338 aSubView ~~ inputView ifTrue:[ |
339 aSubView destroy |
339 aSubView destroy |
340 ] |
340 ] |
341 ]. |
341 ]. |
342 |
342 |
343 aSpecOrSpecArray notNil ifTrue:[ |
343 aSpecOrSpecArray notNil ifTrue:[ |
344 specification := UISpecification from:aSpecOrSpecArray. |
344 specification := UISpecification from:aSpecOrSpecArray. |
345 |
345 |
346 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
346 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
347 specification := nil. |
347 specification := nil. |
348 ^ self |
348 ^ self |
349 ]. |
349 ]. |
350 (builder := uiBuilder) isNil ifTrue:[ |
350 (builder := uiBuilder) isNil ifTrue:[ |
351 builder := UIBuilder new isEditing:true. |
351 builder := UIBuilder new isEditing:true. |
352 builder showDefaults:true. |
352 builder showDefaults:true. |
353 ]. |
353 ]. |
354 |
354 |
355 specification buildViewFor:builder in:self. |
355 specification buildViewFor:builder in:self. |
356 |
356 |
357 subViews do:[:v| |
357 subViews do:[:v| |
358 (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[ |
358 (v ~~ inputView and:[(self findSpecFor:v) notNil]) ifTrue:[ |
359 v borderWidth:1. |
359 v borderWidth:1. |
360 ] |
360 ] |
361 ]. |
361 ]. |
362 self shown ifTrue:[ |
362 self shown ifTrue:[ |
363 self realizeAllSubViews. |
363 self realizeAllSubViews. |
364 inputView raise |
364 inputView raise |
365 ] |
365 ] |
366 ] ifFalse:[ |
366 ] ifFalse:[ |
367 specification := nil |
367 specification := nil |
368 ] |
368 ] |
369 |
|
370 |
|
371 |
|
372 ! ! |
369 ! ! |
373 |
370 |
374 !UIGalleryView::Canvas methodsFor:'building'! |
371 !UIGalleryView::Canvas methodsFor:'building'! |
375 |
372 |
376 buildSpecFrom:aSpec |
373 buildSpecFrom:aSpec |