ProtoObjectObjectWAStringLibrary
| instance | class |
|---|---|
| as yet unclassified | no messages
|
| as yet unclassified |
|---|
| asString |
^ self class name |
| at: aSymbol |
^ self perform: aSymbol |
| at: aSymbol put: aString |
self class compile: aSymbol, ' ^ ', aString printString |
| do: aBlock |
self keys do: [:ea | aBlock value: (self at: ea)] |
| keys |
^ self class selectors select: [:ea | ea isUnary] |