equal
deleted
inserted
replaced
341 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
341 (specification respondsTo:#buildViewFor:in:) ifFalse:[ |
342 specification := nil. |
342 specification := nil. |
343 ^ self |
343 ^ self |
344 ]. |
344 ]. |
345 (builder := uiBuilder) isNil ifTrue:[ |
345 (builder := uiBuilder) isNil ifTrue:[ |
346 builder := UIBuilder new isEditing:true |
346 builder := UIBuilder new isEditing:true. |
|
347 builder showDefaults:true. |
347 ]. |
348 ]. |
348 |
349 |
349 specification buildViewFor:builder in:self. |
350 specification buildViewFor:builder in:self. |
350 |
351 |
351 subViews do:[:v| |
352 subViews do:[:v| |
433 ! |
434 ! |
434 |
435 |
435 startDragWithOffset:offs |
436 startDragWithOffset:offs |
436 "start drag of selection |
437 "start drag of selection |
437 " |
438 " |
438 |dragObj spec name o| |
439 |dragObj spec o| |
439 |
440 |
440 spec := self findSpecFor:selection. |
441 spec := self findSpecFor:selection. |
441 |
442 |
442 spec notNil ifTrue:[ |
443 spec notNil ifTrue:[ |
443 spec := self buildSpecFrom:spec. |
444 spec := self buildSpecFrom:spec. |
444 name := spec className asString. |
445 spec name:(spec copy userFriendlyName, $1). |
445 (name endsWith:'Spec') ifTrue:[ |
|
446 name := name copyFrom:1 to:(name size - 4). |
|
447 ] ifFalse:[ |
|
448 name := name copy |
|
449 ]. |
|
450 spec name:(name, $1). |
|
451 |
446 |
452 self showUnselected. |
447 self showUnselected. |
453 dragObj := DropSpec for:selection specification:spec. |
448 dragObj := DropSpec for:selection specification:spec. |
454 self showSelected. |
449 self showSelected. |
455 |
450 |