I'm adding
act: aBlock iconName: aSymbol entitled: aString
self act: aBlock icon: (self iconNamed: aSymbol) entitled: aStringand act: aBlock iconName: aSymbol on: aCharacter entitled: aStringself act: aBlock icon: (self iconNamed: aSymbol) on: aCharacter entitled: aString
and others ....
