UIPainter.st
changeset 2629 61f3f3a13b9e
parent 2615 347a0b26e210
child 2655 b1fb14b65b57
equal deleted inserted replaced
2628:57b363325368 2629:61f3f3a13b9e
  4975                                 string:'Please enter an action method name for "%1" first.'
  4975                                 string:'Please enter an action method name for "%1" first.'
  4976                                 with:(resources string:aspectNameShown) allBold).
  4976                                 with:(resources string:aspectNameShown) allBold).
  4977         ^ self
  4977         ^ self
  4978     ].
  4978     ].
  4979         
  4979         
  4980     (cls implements:aspect asSymbol) ifFalse:[
  4980     (cls includesSelector:aspect asSymbol) ifFalse:[
  4981         (Dialog confirm:(resources 
  4981         (Dialog confirm:(resources 
  4982                             stringWithCRs:'%1 does not implement %2.\\Create ?'
  4982                             stringWithCRs:'%1 does not implement %2.\\Create ?'
  4983                             with:(cls name allBold)
  4983                             with:(cls name allBold)
  4984                             with:aspect allBold)) 
  4984                             with:aspect allBold)) 
  4985         ifFalse:[
  4985         ifFalse:[