2 lines
98 B
Smalltalk
2 lines
98 B
Smalltalk
|
someObject class allInstVarNames collect:[:nm | nm -> (someObject instVarNamed:nm)] as:Dictionary
|