Wake up before posting
childrenFor: anObject
| col name |
^ApplicationTreeModelAdapter sharedInstance childrenFor: anObject
ApplicationTreeModelAdapter>>childrenFor: anObject
^mapping at: anObject
ApplicationTreeModelAdapter>>register: aOneParameterBlock at: aClass
mapping at: aClass put: aOneParameterBlock
ApplicationTreeModelAdapter>>childrenFor: anObject
^(mapping at: anObject class) value: anObject
DMMindMap class>>registerChildren
ApplicationTreeModelAdapter sharedInstance
register: [:parent| ^OrderedCollection new] at: self
