equal
deleted
inserted
replaced
4430 self clearModified. |
4430 self clearModified. |
4431 ] |
4431 ] |
4432 ! |
4432 ! |
4433 |
4433 |
4434 doAskAndReplaceWidgetBy |
4434 doAskAndReplaceWidgetBy |
4435 |widgetClass list common| |
4435 |widgetClass list common selectedSpec| |
|
4436 |
|
4437 selectedSpec := self selectedSpec. |
|
4438 selectedSpec isNil ifTrue:[^ self]. |
4436 |
4439 |
4437 list := UISpecification allSubclasses |
4440 list := UISpecification allSubclasses |
4438 select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]]. |
4441 select:[:cls | Error handle:[ false ] do:[ cls viewClass notNil]]. |
4439 list sort:[:a :b | a name < b name]. |
4442 list sort:[:a :b | a name < b name]. |
4440 |
4443 |
4441 common := self selectedSpec class commonReplacementClasses. |
4444 common := selectedSpec class commonReplacementClasses. |
4442 common notEmpty ifTrue:[ |
4445 common notEmpty ifTrue:[ |
4443 list addAllFirst:(common , (Array with:'-')). |
4446 list addAllFirst:(common , (Array with:'-')). |
4444 ]. |
4447 ]. |
4445 widgetClass := Dialog |
4448 widgetClass := Dialog |
4446 requestClass:'Spec- or View-Class:' |
4449 requestClass:'Spec- or View-Class:' |