fix GtTraitCreationFormExample

feenkcom · Oct 27, 2024 · 3cb74ba · 3cb74ba
1 parent 6f61fe8
commit 3cb74ba
Showing 1 changed file with 9 additions and 4 deletions.
diff --git a/src/GToolkit-Pharo-Coder-UI/GtTraitCreationFormExample.class.st b/src/GToolkit-Pharo-Coder-UI/GtTraitCreationFormExample.class.st
@@ -69,11 +69,10 @@ GtTraitCreationFormExample >> scripterWithSlotsFilled [
 		assertStep: [ :s | 
 			s
 				label: 'Check that slots are set';
-				satisfies: [ :aFrame | 
+				value: [ :aFrame | 
 					((aFrame userData at: #gtmemento) cache at: aDescription) valueOrNil
-						currentValue
-						= {'abc'.
-								'bcd'} ] ].
+						currentValue ] 
+					equals: {'abc'. 'bcd'} ].
 
 	^ scripter
 ]
@@ -92,6 +91,12 @@ GtTraitCreationFormExample >> scripterWithSlotsNavigated [
 				label: 'Tab to tag editor';
 				key: BlKeyboardKey tab ].
 
+	scripter
+		keyPressStep: [ :s | 
+			s
+				label: 'Tab to slots';
+				key: BlKeyboardKey tab ].
+
 	scripter
 		keyPressStep: [ :s | 
 			s