UIPainter.st
changeset 2544 62e390e651a3
parent 2541 6241ec9e6a6f
child 2547 80cb3ae254fa
equal deleted inserted replaced
2543:7ad308542625 2544:62e390e651a3
  3605     "Modified: / 31-08-2006 / 10:12:03 / cg"
  3605     "Modified: / 31-08-2006 / 10:12:03 / cg"
  3606 ! !
  3606 ! !
  3607 
  3607 
  3608 !UIPainter methodsFor:'help specs'!
  3608 !UIPainter methodsFor:'help specs'!
  3609 
  3609 
       
  3610 basicHelpTextFromSpecification:specification forKey:aKey
       
  3611     "redefinable, to allow for subclasses to overwrite the helpTexts of the ui-spec"
       
  3612 
       
  3613     ^ specification helpSpec at:aKey ifAbsent:nil
       
  3614 !
       
  3615 
  3610 flyByHelpSpec
  3616 flyByHelpSpec
  3611     |spec|
  3617     |spec|
  3612 
  3618 
  3613     spec := self class flyByHelpSpec.
  3619     spec := self class flyByHelpSpec.
  3614     spec at:#editUndo put:(resources string:'Undo (%1)' 
  3620     spec at:#editUndo put:(resources string:'Undo (%1)'