The Inbox: Tools-ct.942.mcz

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.!