5054 !UIPainter::TreeView methodsFor:'private'! |
5054 !UIPainter::TreeView methodsFor:'private'! |
5055 |
5055 |
5056 nameForSpecInList:aSpec |
5056 nameForSpecInList:aSpec |
5057 "returns the tree item label for aSpec" |
5057 "returns the tree item label for aSpec" |
5058 |
5058 |
5059 |m| |
5059 |aspect| |
5060 |
5060 |
5061 m := aSpec perform:#model ifNotUnderstood:nil. |
5061 aspect := aSpec nameOfMainAspect. |
5062 m notNil ifTrue:[ |
5062 aspect notNil ifTrue:[ |
5063 ^ '(',m allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' |
5063 ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' |
5064 ]. |
5064 ]. |
5065 ^ aSpec name allBold, ': [', aSpec viewClass name , ']' |
5065 ^ aSpec name "allBold", ': [', aSpec viewClass name , ']' |
5066 ! |
5066 ! |
5067 |
5067 |
5068 selectionChangedFrom:oldSelection |
5068 selectionChangedFrom:oldSelection |
5069 "selection has changed. update master selection and raise notification |
5069 "selection has changed. update master selection and raise notification |
5070 to canvas in case of enabled cvs events |
5070 to canvas in case of enabled cvs events |