Input handling

Author: jostja

source/GM-TE/GMTEEditor.class.st

@@ -373,7 +373,7 @@ GMTEEditor >> brushButtons: anObject [
 
 {
 	#category : #building,
-	#'squeak_changestamp' : 'TW 7/9/2024 18:15'
+	#'squeak_changestamp' : 'mcjj 7/10/2024 16:51'
 }
 GMTEEditor >> buildWith: builder [
 	"builds the editor with ToolBuilder"
@@ -393,7 +393,7 @@ GMTEEditor >> buildWith: builder [
 			self createInspectorSpecWithBuilder: builder};
 		closeAction: #onClose;
 		minimumExtent: GMTEEditor editorMinimumExtent).
-			
+	
 	self commandBar: (newMorph submorphNamed: 'command bar').
 	"self commandBar vResizing: #rigid."
 	self tileStore: (newMorph submorphNamed: 'tile store').
@@ -422,7 +422,8 @@ GMTEEditor >> buildWith: builder [
 
 	self 
 		initializeDefaultTileMapMatrix;
-		associatedMorph: newMorph.
+		associatedMorph: newMorph;
+		setupInputHandlingFor: newMorph.
 
 	^ newMorph
 ]
@@ -967,6 +968,15 @@ GMTEEditor >> disableSingleLayerButtons [
 	GMTEEditor singleLayerActionNames do: [:aString | (self associatedMorph submorphNamed: aString) enabled: false ]
 ]
 
+{
+	#category : #'input handling',
+	#'squeak_changestamp' : 'mcjj 7/10/2024 16:47'
+}
+GMTEEditor >> dropKeyboardFocus: anEvent [
+	
+	anEvent hand releaseKeyboardFocus: self associatedMorph
+]
+
 {
 	#category : #'as yet unclassified',
 	#'squeak_changestamp' : 'TW 6/25/2024 17:51'
@@ -1096,6 +1106,15 @@ GMTEEditor >> getGridWidthAsString [
 	^ self getGridWidth asString
 ]
 
+{
+	#category : #'input handling',
+	#'squeak_changestamp' : 'mcjj 7/10/2024 16:46'
+}
+GMTEEditor >> getKeyboardFocus: anEvent [
+	
+	anEvent hand newKeyboardFocus: self associatedMorph
+]
+
 {
 	#category : #'layer manipulation',
 	#'squeak_changestamp' : 'TW 6/23/2024 21:50'
@@ -1163,6 +1182,18 @@ GMTEEditor >> getTileRatioAsString [
 	^ self getTileRatio asString
 ]
 
+{
+	#category : #'input handling',
+	#'squeak_changestamp' : 'mcjj 7/10/2024 16:49'
+}
+GMTEEditor >> handleKeyStroke: anEvent [
+
+	| keyValue |
+	keyValue := anEvent key.
+	Transcript show: keyValue
+	"keyValue = $A"
+]
+
 {
 	#category : #'menu button functions',
 	#'squeak_changestamp' : 'TW 6/23/2024 20:09'
@@ -1985,6 +2016,20 @@ GMTEEditor >> settingsMenu [
 	builder open: aMenuSpec
 ]
 
+{
+	#category : #'input handling',
+	#'squeak_changestamp' : 'mcjj 7/10/2024 16:49'
+}
+GMTEEditor >> setupInputHandlingFor: aMorph [
+
+	aMorph 
+		on: #mouseMove send: #getKeyboardFocus: to: self;
+		on: #mouseLeave send: #dropKeyboardFocus: to: self;
+		on: #keyStroke send: #handleKeyStroke: to: self.
+		
+	aMorph eventHandler wantsEveryMouseMove: true
+]
+
 {
 	#category : #'layer manipulation',
 	#'squeak_changestamp' : 'jj 6/22/2024 21:43'