Fix Finder shortcuts to use keydown

pharo-project · Dec 18, 2020 · 21c7df7 · 21c7df7
1 parent c686f2c
commit 21c7df7
Show file tree

Hide file tree

Showing 5 changed files with 12 additions and 13 deletions.
diff --git a/src/Tool-Finder/FinderClassNode.class.st b/src/Tool-Finder/FinderClassNode.class.st
@@ -47,11 +47,11 @@ FinderClassNode >> childrenItems [
 ]
 
 { #category : #'event handling' }
-FinderClassNode >> keyStroke: anEvent [
+FinderClassNode >> keyDown: anEvent [
 	(anEvent controlKeyPressed or: [ anEvent commandKeyPressed ]) ifFalse: [ ^ false ].
 	anEvent keyCharacter == $h ifTrue: [ ^ self browseHierarchy ].
 	anEvent keyCharacter == $N ifTrue: [ ^ self browseReferences ].
-	^ super keyStroke: anEvent
+	^ super keyDown: anEvent
 ]
 
 { #category : #'event handling' }

diff --git a/src/Tool-Finder/FinderMethodNode.class.st b/src/Tool-Finder/FinderMethodNode.class.st
@@ -67,11 +67,11 @@ FinderMethodNode >> isSingle [
 ]
 
 { #category : #'event handling' }
-FinderMethodNode >> keyStroke: anEvent [
+FinderMethodNode >> keyDown: anEvent [
 	(anEvent controlKeyPressed or: [ anEvent commandKeyPressed ]) ifFalse: [ ^ false ].
 	anEvent keyCharacter == $n ifTrue: [ ^ self browseSenders ].
 	anEvent keyCharacter == $m ifTrue: [ ^ self browseImplementors ].
-	^ super keyStroke: anEvent
+	^ super keyDown: anEvent
 ]
 
 { #category : #'event handling' }

diff --git a/src/Tool-Finder/FinderNode.class.st b/src/Tool-Finder/FinderNode.class.st
@@ -50,7 +50,7 @@ FinderNode >> inspectItem [
 ]
 
 { #category : #'event handling' }
-FinderNode >> keyStroke: anEvent [
+FinderNode >> keyDown: anEvent [
 	(anEvent controlKeyPressed or: [ anEvent commandKeyPressed ]) ifFalse: [ ^ false ].
 	anEvent keyCharacter == $b ifTrue: [ ^ self browse ].
 	anEvent keyCharacter == $i ifTrue: [ ^ self inspectItem ]

diff --git a/src/Tool-Finder/FinderPragmaNode.class.st b/src/Tool-Finder/FinderPragmaNode.class.st
@@ -50,11 +50,11 @@ FinderPragmaNode >> inspectItem [
 ]
 
 { #category : #'event handling' }
-FinderPragmaNode >> keyStroke: anEvent [
+FinderPragmaNode >> keyDown: anEvent [
 	(anEvent controlKeyPressed or: [ anEvent commandKeyPressed ]) ifFalse: [ ^ false ].
 	anEvent keyCharacter == $h ifTrue: [ ^ self browseHierarchy ].
 	anEvent keyCharacter == $N ifTrue: [ ^ self browseReferences ].
-	^ super keyStroke: anEvent
+	^ super keyDown: anEvent
 ]
 
 { #category : #'event handling' }

diff --git a/src/Tool-Finder/FinderUI.class.st b/src/Tool-Finder/FinderUI.class.st
@@ -552,10 +552,9 @@ FinderUI >> defaultTreeMorph [
 			hResizing: #spaceFill;
 			vResizing: #spaceFill;
 			resizerWidth: 0;
-			columnInset: 0; 
+			columnInset: 0;
 			rowInset: 2; 
-			keystrokeActionSelector: #keyStroke:;
-			"preferedPaneColor: Color white;"
+			keyDownActionSelector: #keyDown:;
 			multiSelection: self multiSelection;
 			autoMultiSelection: self autoMultiSelection;
 			isCheckList: self isCheckList;
@@ -754,9 +753,9 @@ FinderUI >> isSourceSymbol [
 	^self finder isSourceSymbol
 ]
 
-{ #category : #'events handling' }
-FinderUI >> keyStroke: event [
-	self selectedNode ifNotNil: [:node | node keyStroke: event]
+{ #category : #private }
+FinderUI >> keyDown: event [
+	self selectedNode ifNotNil: [:node | node keyDown: event]
 ]
 
 { #category : #private }