equal
deleted
inserted
replaced
4220 list := slices collect:[:eachSlice | eachSlice first asString]. |
4220 list := slices collect:[:eachSlice | eachSlice first asString]. |
4221 self treeView isCanvasSelected ifFalse:[ |
4221 self treeView isCanvasSelected ifFalse:[ |
4222 list := list copyWith:(UIHelpTool label) |
4222 list := list copyWith:(UIHelpTool label) |
4223 ]. |
4223 ]. |
4224 view notNil ifTrue:[ |
4224 view notNil ifTrue:[ |
4225 list := list copyWith:UILayoutTool label. |
4225 spec hasLayout ifTrue:[ |
|
4226 list := list copyWith:UILayoutTool label. |
|
4227 ] |
4226 ]. |
4228 ]. |
4227 |
4229 |
4228 "/ size := slices size. |
4230 "/ size := slices size. |
4229 "/ view notNil ifTrue:[ |
4231 "/ view notNil ifTrue:[ |
4230 "/ self treeView isCanvasSelected ifFalse:[ |
4232 "/ self treeView isCanvasSelected ifFalse:[ |
6195 ] |
6197 ] |
6196 ! ! |
6198 ! ! |
6197 |
6199 |
6198 !UIPainter::TreeView methodsFor:'initialization'! |
6200 !UIPainter::TreeView methodsFor:'initialization'! |
6199 |
6201 |
|
6202 iconForNode:aNode |
|
6203 |spec| |
|
6204 |
|
6205 spec := aNode contents spec. |
|
6206 spec isNil ifTrue: [ |
|
6207 ^ WindowSpec icon |
|
6208 ] ifFalse:[ |
|
6209 ^ spec icon |
|
6210 ] |
|
6211 ! |
|
6212 |
6200 initialize |
6213 initialize |
6201 "initialize the tree view; multiple select and tree item actions" |
6214 "initialize the tree view; multiple select and tree item actions" |
6202 |
6215 |
6203 super initialize. |
6216 super initialize. |
6204 |
6217 |
6206 canvasEventsDisabled := false. |
6219 canvasEventsDisabled := false. |
6207 self showDirectoryIndicator: true. |
6220 self showDirectoryIndicator: true. |
6208 self showDirectoryIndicatorForRoot: false. |
6221 self showDirectoryIndicatorForRoot: false. |
6209 |
6222 |
6210 self model |
6223 self model |
6211 iconAction: |
6224 iconAction:[:aNode| self iconForNode:aNode]; |
6212 [:aNode| |
6225 labelAction: [:aNode | self labelForNode:aNode]. |
6213 |specClass| |
6226 ! |
6214 (specClass := aNode contents spec) isNil |
6227 |
6215 ifTrue: [WindowSpec icon] |
6228 labelForNode:aNode |
6216 ifFalse:[specClass class icon] |
6229 |spec| |
6217 ]. |
6230 |
6218 |
6231 spec := aNode contents spec. |
6219 self model |
6232 spec notNil ifTrue: [ |
6220 labelAction: |
6233 ^ self nameForSpecInList:spec |
6221 [:aNode| |
6234 ] ifFalse:[ |
6222 |spec| |
6235 ^ aNode name |
6223 (spec := aNode contents spec) notNil |
6236 ] |
6224 ifTrue: [self nameForSpecInList:spec] |
|
6225 ifFalse:[aNode name] |
|
6226 ] |
|
6227 ! ! |
6237 ! ! |
6228 |
6238 |
6229 !UIPainter::TreeView methodsFor:'private'! |
6239 !UIPainter::TreeView methodsFor:'private'! |
6230 |
6240 |
6231 nameForSpecInList:aSpec |
6241 nameForSpecInList:aSpec |