Christoph Thiede uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.942.mcz

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

Name: Tools-ct.942
Author: ct
Time: 16 February 2020, 5:38:24.495 pm
UUID: eb3185a2-3a62-ed49-a8ac-21a5468e2407
Ancestors: Tools-mt.939

Small refactoring of ObjectExplorer menu keys and a little bit documentation.

=============== Diff against Tools-mt.939 ===============

Item was changed:
  ----- Method: Inspector>>expression (in category 'accessing') -----
  expression
+ 	"The code string in the code pane. Recorded for Inspector/Explorer switching. See #exploreObject."
  
  	^ expression ifNil: ['']!

Item was changed:
  ----- Method: Inspector>>expression: (in category 'accessing') -----
+ expression: aStringOrText
+ 	"The code string in the code pane. Recorded for Inspector/Explorer switching. See #exploreObject."
- expression: aString
  
+ 	expression := aStringOrText.!
- 	expression := aString.!

Item was changed:
+ ----- Method: Inspector>>setExpression: (in category 'accessing') -----
- ----- Method: Inspector>>setExpression: (in category 'code') -----
  setExpression: aString
+ 	"Set the code string in the code pane after switching between Inspector/Explorer. See #inspectObject."
  
  	self expression: aString.
  	self changed: #expression.!

Item was changed:
  ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') -----
  explorerKey: aChar from: view event: event
  
  	event anyModifierKeyPressed ifFalse: [^ false].
  
+ 	self object ifNil: [^ false].
+ 	aChar
+ 		caseOf: {
+ 			[$i] -> [self inspectSelection].
+ 			[$I] -> [self exploreSelection].
+ 			
+ 			[$b] -> [self browseFull].
+ 			[$h] -> [self browseClassHierarchy].
+ 			[$c] -> [self copyName].
+ 			[$p] -> [self browseFullProtocol].
+ 			[$N] -> [self browseClassRefs].
+ 			[$v] -> [self viewerForValue] }
+ 		otherwise: [^ false].
+ 	^ true!
- 	self object ifNotNil: [
- 		aChar == $i ifTrue: [self inspectSelection. ^ true].
- 		aChar == $I ifTrue: [self exploreSelection. ^ true].
- 
- 		aChar == $b ifTrue:	[self browseFull. ^ true].
- 		aChar == $h ifTrue:	[self browseClassHierarchy. ^ true].
- 		aChar == $c ifTrue: [self copyName. ^ true].
- 		aChar == $p ifTrue: [self browseFullProtocol. ^ true].
- 		aChar == $N ifTrue: [self browseClassRefs. ^ true].
- 		aChar == $v ifTrue: [self viewerForValue. ^ true]].
- 
- 	^ false!

Item was changed:
  ----- Method: ObjectExplorer>>expression (in category 'accessing') -----
  expression
+ 	"The code string in the code pane. Recorded for Inspector/Explorer switching. See #inspectObject."
  
  	^ expression!

Item was changed:
  ----- Method: ObjectExplorer>>expression: (in category 'accessing') -----
+ expression: aStringOrText
+ 	"The code string in the code pane. Recorded for Inspector/Explorer switching. See #inspectObject."
- expression: aString
  
+ 	expression := aStringOrText.!
- 	expression := aString.!

Item was changed:
  ----- Method: ObjectExplorer>>setExpression: (in category 'accessing - other') -----
  setExpression: aString
+ 	"Set the code string in the code pane after switching between Inspector/Explorer. See #exploreObject."
  
  	self expression: aString.
  	self changed: #expression.!