equal
deleted
inserted
replaced
4093 "set the default windowSpecClass" |
4093 "set the default windowSpecClass" |
4094 |
4094 |
4095 ^ windowSpecClass := aClass |
4095 ^ windowSpecClass := aClass |
4096 ! ! |
4096 ! ! |
4097 |
4097 |
4098 !UIPainter::TreeView methodsFor:'accessing property'! |
4098 !UIPainter::TreeView methodsFor:'accessing-property'! |
4099 |
4099 |
4100 propertiesDo:aOneArgBlock |
4100 propertiesDo:aOneArgBlock |
4101 "evaluates the argument a block on each property" |
4101 "evaluates the argument a block on each property" |
4102 |
4102 |
4103 self allItemsDo:[:anItem| aOneArgBlock value:(anItem contents)] |
4103 self allItemsDo:[:anItem| aOneArgBlock value:(anItem contents)] |