I'm adding

act: aBlock iconName: aSymbol entitled: aString
    self act: aBlock icon: (self iconNamed: aSymbol) entitled: aString

and

act: aBlock iconName: aSymbol on: aCharacter entitled: aString
self act: aBlock icon: (self iconNamed: aSymbol) on: aCharacter entitled: aString

and others ....

Reply via email to