6442 !UIPainter::TreeView methodsFor:'private'! |
6442 !UIPainter::TreeView methodsFor:'private'! |
6443 |
6443 |
6444 nameForSpecInList:aSpec |
6444 nameForSpecInList:aSpec |
6445 "returns the tree item label for aSpec" |
6445 "returns the tree item label for aSpec" |
6446 |
6446 |
6447 |aspect| |
6447 |aspect aspectPrefix nameString viewClassString| |
|
6448 |
|
6449 nameString := aSpec name ? ''. |
|
6450 viewClassString := '[',aSpec viewClass name,']' . |
6448 |
6451 |
6449 aspect := aSpec nameOfMainAspect. |
6452 aspect := aSpec nameOfMainAspect. |
6450 aspect notNil ifTrue:[ |
6453 aspect notNil ifTrue:[ |
6451 ^ '(',aspect allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' |
6454 aspectPrefix := '(',aspect allBold ,') ' |
6452 ]. |
6455 ] ifFalse:[ |
6453 ^ aSpec name "allBold", ': [', aSpec viewClass name , ']' |
6456 aspectPrefix := ''. |
|
6457 ]. |
|
6458 |
|
6459 ^ aspectPrefix, nameString, ': ', viewClassString |
|
6460 |
|
6461 "Modified: / 17-08-2011 / 09:10:31 / cg" |
6454 ! |
6462 ! |
6455 |
6463 |
6456 selectionChangedFrom:oldSelection |
6464 selectionChangedFrom:oldSelection |
6457 "selection has changed. update master selection and raise notification |
6465 "selection has changed. update master selection and raise notification |
6458 to canvas in case of enabled cvs events |
6466 to canvas in case of enabled cvs events |