The Trunk: Tools-mt.552.mcz

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

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

Name: Tools-mt.552
Author: mt
Time: 13 March 2015, 9:47:55.046 am
UUID: bae0184d-17d8-844e-b43b-be880504cbbf
Ancestors: Tools-ul.551

Inspect/explore/browse/... shortcuts work again in object explorer BUT with modifier key (e.g. CMD) pressed.

=============== Diff against Tools-ul.551 ===============

Item was changed:
  ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
 
  | windowSpec treeSpec textSpec |
  windowSpec := builder pluggableWindowSpec new.
  windowSpec
  model: self;
  children: OrderedCollection new;
  label: #label.
 
  treeSpec := builder pluggableTreeSpec new.
  treeSpec
  model: self;
  nodeClass: self class nodeClass;
  roots: #getList;
+ keyPress: #explorerKey:from:event:;
- keyPress: #explorerKey:from:;
  getSelected: #currentSelection;
  setSelected: #currentSelection:;
  setSelectedParent: #currentParent:;
  menu: #genericMenu:;
  autoDeselect: false;
  columns: (ObjectExplorerWrapper showContentsInColumns
  ifTrue: [{
  [:listMorph | (listMorph scroller submorphs collect: [:item |
  item preferredWidthOfColumn: 1]) max].
  nil "take all the space"}]
  ifFalse: []);
  frame: (0@0 corner: 1@0.85).
  windowSpec children add: treeSpec.
 
  textSpec := builder pluggableTextSpec new.
  textSpec
  model: self;
  menu: #codePaneMenu:shifted:;
  frame: (0@0.85 corner: 1@1).
  windowSpec children add: textSpec.
 
  ^ builder build: windowSpec!

Item was removed:
- ----- Method: ObjectExplorer>>explorerKey:from: (in category 'menus') -----
- explorerKey: aChar from: view
-
- PluggableListMorph filterableLists
- ifTrue: [^ false].
-
- currentSelection ifNotNil: [
- inspector ifNil: [inspector := Inspector new].
- inspector
- inspect: self parentObject;
- object: self object.
-
- aChar == $i ifTrue: [self inspectSelection. ^ true].
- aChar == $I ifTrue: [self exploreSelection. ^ true].
-
- aChar == $b ifTrue: [inspector browseMethodFull. ^ true].
- aChar == $h ifTrue: [inspector classHierarchy. ^ true].
- aChar == $c ifTrue: [Clipboard clipboardText: self currentSelection key. ^ true].
- aChar == $p ifTrue: [inspector browseFullProtocol. ^ true].
- aChar == $N ifTrue: [inspector browseClassRefs. ^ true].
- aChar == $t ifTrue: [inspector tearOffTile. ^ true].
- aChar == $v ifTrue: [inspector viewerForValue. ^ true]].
-
- ^ false!

Item was added:
+ ----- Method: ObjectExplorer>>explorerKey:from:event: (in category 'menus') -----
+ explorerKey: aChar from: view event: event
+
+ event anyModifierKeyPressed ifFalse: [^ false].
+
+ currentSelection ifNotNil: [
+ inspector ifNil: [inspector := Inspector new].
+ inspector
+ inspect: self parentObject;
+ object: self object.
+
+ aChar == $i ifTrue: [self inspectSelection. ^ true].
+ aChar == $I ifTrue: [self exploreSelection. ^ true].
+
+ aChar == $b ifTrue: [inspector browseMethodFull. ^ true].
+ aChar == $h ifTrue: [inspector classHierarchy. ^ true].
+ aChar == $c ifTrue: [Clipboard clipboardText: self currentSelection key. ^ true].
+ aChar == $p ifTrue: [inspector browseFullProtocol. ^ true].
+ aChar == $N ifTrue: [inspector browseClassRefs. ^ true].
+ aChar == $t ifTrue: [inspector tearOffTile. ^ true].
+ aChar == $v ifTrue: [inspector viewerForValue. ^ true]].
+
+ ^ false!