The Trunk: Tools-mt.979.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.979.mcz

==================== Summary ====================

Name: Tools-mt.979
Author: mt
Time: 13 June 2020, 12:51:14.17003 pm
UUID: fb7f5dec-3bab-fe4f-85ab-46727f2ec91b
Ancestors: Tools-mt.978

In the deps browser, auto-select the string that most like represents the class dependency. Selects the wrong thing in the text when the name is also part of some other identifier.

=============== Diff against Tools-mt.978 ===============

Item was changed:
  CodeHolder subclass: #DependencyBrowser
+ instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex autoSelectString'
- instanceVariableNames: 'packageList packageDeps packageDepsList classDeps classDepsList classList messageList packageListIndex packageDepsIndex classDepsIndex classListIndex messageListIndex'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Tools-Browser'!
 
  !DependencyBrowser commentStamp: 'fbs 5/6/2011 11:29' prior: 0!
  A simple dependency browser showing five panes:
  [1]: Packages: The list of available packages in the system.
  [2]: Package Dependencies: The dependent packages of the currently selected package.
  [3]: Class Dependencies: The classes causing the dependencies.
  [4]: Class List: The classes introducing the dependencies.
  [5]: Messages: The messages introducing the dependencies.!

Item was added:
+ ----- Method: DependencyBrowser>>autoSelectString (in category 'accessing') -----
+ autoSelectString
+ ^ autoSelectString!

Item was added:
+ ----- Method: DependencyBrowser>>autoSelectString: (in category 'accessing') -----
+ autoSelectString: aString
+ autoSelectString := aString.
+ self changed: #contentsSelection.!

Item was added:
+ ----- Method: DependencyBrowser>>contentsSelection (in category 'accessing') -----
+ contentsSelection
+
+ ^ self autoSelectString
+ ifNil: [super contentsSelection]
+ ifNotNil: [:term | | index |
+ (index := self contents asString findString: term) > 0
+ ifTrue: [index to: index + term size - 1]
+ ifFalse: [super contentsSelection]]!

Item was changed:
  ----- Method: DependencyBrowser>>messageListIndex: (in category 'message list') -----
  messageListIndex: idx
  "Message list selection"
  messageListIndex := idx.
  self changed: #messageListIndex.
  self changed: #contents.
+ self changed: #annotation.
+
+ self autoSelectString: self classDepsSelection.!
- self changed: #annotation.!