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 at 0 corner: 1 at 0.85).
  	windowSpec children add: treeSpec.
  
  	textSpec := builder pluggableTextSpec new.
  	textSpec
  		model: self;
  		menu: #codePaneMenu:shifted:;
  		frame: (0 at 0.85 corner: 1 at 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!