4111 aspectList isEmpty ifTrue:[ |
4111 aspectList isEmpty ifTrue:[ |
4112 self information:'All aspect methods exist.'. |
4112 self information:'All aspect methods exist.'. |
4113 ^ self. |
4113 ^ self. |
4114 ]. |
4114 ]. |
4115 |
4115 |
|
4116 aspectList sort:[:a :b | a first < b first]. |
4116 displayedList := aspectList collect:[:entry | (((entry first) paddedTo:25) contractTo:25) , ' -> ' , entry second ]. |
4117 displayedList := aspectList collect:[:entry | (((entry first) paddedTo:25) contractTo:25) , ' -> ' , entry second ]. |
4117 aspectList := aspectList collect:[:each | each first]. |
4118 aspectList := aspectList collect:[:each | each first]. |
4118 |
4119 |
4119 doBrowse := false. |
4120 doBrowse := false. |
4120 selectorsToGenerateCode := Dialog |
4121 selectorsToGenerateCode := Dialog |
5010 self multipleSelectOk:true. |
5011 self multipleSelectOk:true. |
5011 cvsEventsDisabled := false. |
5012 cvsEventsDisabled := false. |
5012 self showDirectoryIndicator: true. |
5013 self showDirectoryIndicator: true. |
5013 self showDirectoryIndicatorForRoot: false. |
5014 self showDirectoryIndicatorForRoot: false. |
5014 |
5015 |
5015 self model iconAction: |
5016 self model |
5016 [:aNode| |
5017 iconAction: |
5017 |specClass| |
5018 [:aNode| |
5018 (specClass := aNode contents spec) isNil |
5019 |specClass| |
5019 ifTrue: [WindowSpec icon] |
5020 (specClass := aNode contents spec) isNil |
5020 ifFalse:[specClass class icon] |
5021 ifTrue: [WindowSpec icon] |
5021 ]. |
5022 ifFalse:[specClass class icon] |
5022 |
5023 ]. |
5023 self model labelAction: |
5024 |
5024 [:aNode| |
5025 self model |
5025 |spec| |
5026 labelAction: |
5026 (spec := aNode contents spec) notNil |
5027 [:aNode| |
5027 ifTrue: [self nameForSpecInList:spec] |
5028 |spec| |
5028 ifFalse:[aNode name] |
5029 (spec := aNode contents spec) notNil |
5029 ] |
5030 ifTrue: [self nameForSpecInList:spec] |
|
5031 ifFalse:[aNode name] |
|
5032 ] |
5030 ! ! |
5033 ! ! |
5031 |
5034 |
5032 !UIPainter::TreeView methodsFor:'private'! |
5035 !UIPainter::TreeView methodsFor:'private'! |
5033 |
5036 |
5034 nameForSpecInList:aSpec |
5037 nameForSpecInList:aSpec |
5035 "returns the tree item label for aSpec" |
5038 "returns the tree item label for aSpec" |
5036 |
5039 |
5037 ^ aSpec name asBoldText, ': [', aSpec viewClass name , ']' |
5040 |m| |
|
5041 |
|
5042 m := aSpec perform:#model ifNotUnderstood:nil. |
|
5043 m notNil ifTrue:[ |
|
5044 ^ '(',m allBold ,') ', aSpec name, ': [', aSpec viewClass name , ']' |
|
5045 ]. |
|
5046 ^ aSpec name allBold, ': [', aSpec viewClass name , ']' |
5038 ! |
5047 ! |
5039 |
5048 |
5040 selectionChangedFrom:oldSelection |
5049 selectionChangedFrom:oldSelection |
5041 "selection has changed. update master selection and raise notification |
5050 "selection has changed. update master selection and raise notification |
5042 to canvas in case of enabled cvs events |
5051 to canvas in case of enabled cvs events |