Fix Rubric tests

src/Rubric-Tests/RubTextFieldAreaTest.class.st

@@ -4,6 +4,37 @@ Class {
 	#category : #'Rubric-Tests-Editing-Core'
 }
 
+{ #category : #utilities }
+RubTextFieldAreaTest >> simulatedKeyDownFromChar: aCharacter [
+
+	^ self simulatedKeyDownFromChar: aCharacter alt: false ctrl: false command: false shift: false
+]
+
+{ #category : #utilities }
+RubTextFieldAreaTest >> simulatedKeyDownFromChar: aCharacter alt: useAlt ctrl: useCtrl command: useCommand shift: useShift [
+	| event modifier code |
+	event := KeyboardEvent new.
+	modifier := 0.
+	useShift
+		ifTrue: [ modifier := modifier + 8 ].
+	useCtrl
+		ifTrue: [ modifier := modifier + 16 ].
+	useAlt
+		ifTrue: [ modifier := modifier + 32 ].
+	useCommand
+		ifTrue: [ modifier := modifier + 64 ].
+	code := aCharacter asInteger.
+	event
+		setType: #keyDown
+		buttons: modifier
+		position: 0 @ 0
+		keyValue: code
+		charCode: code
+		hand: self currentWorld currentHand 
+		stamp: Time now.
+	^ event
+]
+
 { #category : #utilities }
 RubTextFieldAreaTest >> simulatedKeyStrokeFromChar: aCharacter [
 
@@ -65,7 +96,7 @@ RubTextFieldAreaTest >> testKeyStrokeBackSpaceWithMaxLength [
 	self assert: m string equals: 'a'.
 	m handleEvent: (self simulatedKeyStrokeFromChar: $b).
 	self assert: m string equals: 'ab'.
-	m handleEvent: (self simulatedKeyStrokeFromChar: Character backspace).
+	m handleEvent: (self simulatedKeyDownFromChar: Character backspace).
 	self assert: m string equals: 'a'.
 	m handleEvent: (self simulatedKeyStrokeFromChar: $c).
 	self assert: m string equals: 'ac'.