Morbid fascination
It is late so I may completely off but
how many isKindOf: are executed in this method?
> ((aSymbol isKindOf: Array)
> and: [aSymbol size > 1 and: [aSymbol first == self
> nodeListSelector and: [
> aSymbol second == #openPath]]])
when [aSymbol second == #openPath] is not openPath
then we go to the next (not mentioning duplicated code inside the method ---- I
will vomit)
and we restart to execute isKindOf:
((aSymbol isKindOf: Array)
and: [aSymbol size > 1 and: [aSymbol first == self
nodeListSelector and: [
aSymbol second ==
#expandAllFromNode:]]])
Am'I right?
It looks so terrible.
Stef
> update: aSymbol
> aSymbol == #selection ifTrue: [^ self listManager
> updateSelectionFromModel].
> ((aSymbol isKindOf: Array) and: [aSymbol size > 1 and: [aSymbol
> first == #selectItems and: [aSymbol second isCollection]]])
> ifTrue: [^ self selectedItems: aSymbol second].
> aSymbol == self nodeListSelector ifTrue: [^ self updateList].
> aSymbol == #selectAll ifTrue: [^ self listManager selectAll].
> aSymbol == #deselectAll ifTrue: [^ self listManager deselectAll].
> ((aSymbol isKindOf: Array)
> and: [aSymbol size > 1 and: [aSymbol first == self
> nodeListSelector and: [
> aSymbol second == #openPath]]]) "allow
> directed path opening where multiple trees exist"
> ifTrue:
> [^(self allNodeMorphs at: 1 ifAbsent: [^self])
> openPath: (aSymbol allButFirst: 2)].
> ((aSymbol isKindOf: Array)
> and: [aSymbol size > 1 and: [aSymbol first == self
> nodeListSelector and: [
> aSymbol second == #openItemPath]]])
> "allow directed path opening where multiple trees exist"
> ifTrue:
> [^ (self allNodeMorphs at: 1 ifAbsent: [^self])
> openItemPath: (aSymbol allButFirst: 2)].
> ((aSymbol isKindOf: Array)
> and: [aSymbol size > 1 and: [aSymbol first == self
> nodeListSelector and: [
> aSymbol second ==
> #expandAllFromNode:]]])
> ifTrue:
> [^ self expandAllFromNode: aSymbol third].
> ((aSymbol isKindOf: Array)
> and: [aSymbol size > 1 and: [aSymbol first == self
> nodeListSelector and: [
> aSymbol second == #closeItemPath]]])
> "allow directed path closing where multiple trees exist"
> ifTrue:
> [^ (self allNodeMorphs at: 1 ifAbsent: [^self])
> closeItemPath: (aSymbol allButFirst:
> 2)].
> ((aSymbol isKindOf: Array)
> and: [aSymbol notEmpty and: [aSymbol first == #openPath]])
> ifTrue:
> [^(self allNodeMorphs at: 1 ifAbsent: [^self])
> openPath: aSymbol allButFirst].
> ((aSymbol isKindOf: Array)
> and: [aSymbol size = 2 and: [aSymbol first = self
> nodeListSelector and: [
> aSymbol second == #expandRoots]]])
> ifTrue:
> [^self expandRoots].
> ((aSymbol isKindOf: Array)
> and: [aSymbol size = 2 and: [aSymbol first = self
> nodeListSelector]])
> ifTrue: [aSymbol second = #expandAll ifTrue: [^ self expandAll].
> aSymbol second = #collapseAll ifTrue: [^ self
> collapseAll]]
