Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.526.mcz
==================== Summary ====================
Name: Tools-eem.526 Author: eem Time: 30 July 2014, 7:46:31.551 pm UUID: 458dab1f-dc91-4197-88d2-076aa9c7317b Ancestors: Tools-eem.525
Allow extending selection via shift in ChangeList>>selectMethodsForThisClass. Allow a class to specify its own integer base preference in the inspector and debugger.
=============== Diff against Tools-eem.525 ===============
Item was changed: ----- Method: ChangeList>>selectMethodsForThisClass (in category 'menu actions') ----- selectMethodsForThisClass - | name | self currentChange ifNil: [ ^self ]. + self currentChange methodClassName ifNotNil: + [:name| + self selectSuchThat: + (Sensor leftShiftDown + ifTrue: [[:change :index| (listSelections at: index) or: [change methodClassName = name]]] + ifFalse: [[:change| change methodClassName = name]])]! - name := self currentChange methodClassName. - name ifNil: [ ^self ]. - ^self selectSuchThat: [ :change | - change methodClassName = name ].!
Item was changed: ----- Method: ChangeList>>selectSuchThat: (in category 'menu actions') ----- selectSuchThat: aBlock "select all changes for which block returns true" + listSelections := aBlock numArgs = 2 + ifTrue: [changeList withIndexCollect: aBlock] + ifFalse: [changeList collect: aBlock]. - listSelections := changeList collect: aBlock. self changed: #allSelections!
Item was added: + ----- Method: ContextVariablesInspector>>defaultIntegerBase (in category 'selecting') ----- + defaultIntegerBase + "Answer the default base in which to print integers. + Defer to the class the code is compiled in." + ^[object method methodClass defaultIntegerBaseInDebugger] + on: MessageNotUnderstood + do: [:ex| 10]!
Item was added: + ----- Method: Inspector>>defaultIntegerBase (in category 'selecting') ----- + defaultIntegerBase + "Answer the default base in which to print integers. + Defer to the class of the instance." + ^[object class defaultIntegerBaseInDebugger] + on: MessageNotUnderstood + do: [:ex| 10]!
Item was changed: ----- Method: Inspector>>selectionPrintString (in category 'selecting') ----- selectionPrintString | text | + selectionUpdateTime := [text := [self selection isInteger + ifTrue: [self selection storeStringBase: self defaultIntegerBase] + ifFalse: [self selection printStringLimitedTo: 5000]] - selectionUpdateTime := [text := [(self selection printStringLimitedTo: 5000) asText] on: Error do: [text := self printStringErrorText. text addAttribute: TextColor red from: 1 to: text size. text]] timeToRun. ^ text!