The Trunk: Tools-cmm.548.mcz

> Chris Muller uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-cmm.548.mcz
>
> ==================== Summary ====================
>
> Name: Tools-cmm.548
> Author: cmm
> Time: 10 March 2015, 5:06:48.163 pm
> UUID: 3f13d433-cdc9-4b04-b7fb-ef4ffcb7bdc4
> Ancestors: Tools-mt.547
>
> - Support new "Filterable Lists by labels only".
> - Fix undeclared reference due to renamed inst-var in ObjectExplorer(?).
>
> =============== Diff against Tools-mt.547 ===============
>
> Item was changed:
>   ----- Method: IndentingListItemMorph>>matches:in: (in category 'filtering') -----
> + matches: pattern in: model
> +       ^ ((PluggableTreeMorph filterByLabelsOnly
> +               ifTrue: [ model itemName ]
> +               ifFalse: [ self getLabelFor: model ])
> +                       findString: pattern
> +                       startingAt: 1
> +                       caseSensitive: false) > 0!
> - matches: pattern in: model
> -
> -       ^ ((self getLabelFor: model) findString: pattern startingAt: 1 caseSensitive: false) > 0 !
>
> Item was changed:
>   ----- Method: ObjectExplorer>>chasePointers (in category 'menus - callbacks') -----
>   chasePointers
>         "Open a PointerFinder on the selected item"
>         | path sel savedRoot saved |
>         path := OrderedCollection new.
>         sel := currentSelection.
>         [ sel isNil ] whileFalse: [ path addFirst: sel asString. sel := sel parent ].
>         path addFirst: #openPath.
>         path := path asArray.
> +       savedRoot := root.
> -       savedRoot := rootObject.
>         saved := self object.
> +       [ root := nil.
> -       [ rootObject := nil.
>         self changed: #getList.
>         (Smalltalk includesKey: #PointerFinder)
>                 ifTrue: [PointerFinder on: saved]
>                 ifFalse: [self objectReferencesToSelection ]]
> +               ensure: [ root := savedRoot.
> -               ensure: [ rootObject := savedRoot.
>                         self changed: #getList.
>                         self changed: path.
>                 ]!
>
> Item was removed:
> - ----- Method: PreDebugWindow>>createImplementingMethod (in category '*Tools-Debugger') -----
> - createImplementingMethod
> -       model createImplementingMethod.!
>
> Item was removed:
> - ----- Method: PreDebugWindow>>createMethod (in category '*Tools-Debugger') -----
> - createMethod
> -       model createMethod!
>
> Item was removed:
> - ----- Method: PreDebugWindow>>createOverridingMethod (in category '*Tools-Debugger') -----
> - createOverridingMethod
> -       model createOverridingMethod!
>
>