UIPainter.st
changeset 2397 07ab2bdac066
parent 2393 f86eef5db779
child 2399 1ae184ce9595
equal deleted inserted replaced
2396:042e31fded4f 2397:07ab2bdac066
  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:'