TabListEditor.st
changeset 2828 c5afe7613f98
parent 2819 89d5ee9bc2d0
child 3036 a685cbe8ae60
equal deleted inserted replaced
2827:c99d2c520b28 2828:c5afe7613f98
  1676 
  1676 
  1677     code := code withCRs.
  1677     code := code withCRs.
  1678     (ReadStream on:code) fileIn.
  1678     (ReadStream on:code) fileIn.
  1679 
  1679 
  1680     (cls canUnderstand:specSelector) ifFalse:[
  1680     (cls canUnderstand:specSelector) ifFalse:[
  1681         (YesNoBox confirm:'Generate aspect method?') ifTrue:[
  1681         (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[
  1682             self doGenerateAspectMethod
  1682             self doGenerateAspectMethod
  1683         ]
  1683         ]
  1684     ].
  1684     ].
  1685 
  1685 
  1686     self addHistoryEntryForClass:cls selector:specSelector.
  1686     self addHistoryEntryForClass:cls selector:specSelector.