tests: ensure that the hand is set when simulating events

hpi-swa · Apr 20, 2021 · d4c1340 · d4c1340
1 parent 3bac95f
commit d4c1340
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/packages/Sandblocks-Core/SBTest.class.st b/packages/Sandblocks-Core/SBTest.class.st
@@ -23,7 +23,13 @@ SBTest class >> keyboardEvent: aCharacter [
 { #category : #'as yet unclassified' }
 SBTest class >> keyboardEvent: aCharacter shift: aBoolean command: anotherBoolean [
 
-	^ KeyboardEvent new setType: #keystroke buttons: ((aBoolean ifTrue: [8] ifFalse: [0]) bitOr: (anotherBoolean ifTrue: [64] ifFalse: [0])) position: 0 @ 0 keyValue: aCharacter hand: nil stamp: nil
+	^ KeyboardEvent new
+		setType: #keystroke
+		buttons: ((aBoolean ifTrue: [8] ifFalse: [0]) bitOr: (anotherBoolean ifTrue: [64] ifFalse: [0]))
+		position: 0 @ 0
+		keyValue: aCharacter
+		hand: ActiveHand
+		stamp: nil
 ]
 
 { #category : #'as yet unclassified' }
@@ -57,7 +63,7 @@ SBTest class >> mouseEventAt: aPoint [
 		setType: #mouseDown
 		position: 0 @ 0
 		buttons: MouseEvent blueButton
-		hand: nil
+		hand: ActiveHand
 ]
 
 { #category : #'as yet unclassified' }