Set the word with query parameter (for testing purposes)

src/LiveWeb-Examples/LWExampleMain.class.st

@@ -38,7 +38,7 @@ LWExampleMain >> renderOn: h [
 
 { #category : #accessing }
 LWExampleMain >> state: aDictionary [
-	| ex |
+	| ex component |
 	state := aDictionary.
 
 	"check push state for example to use"
@@ -50,8 +50,12 @@ LWExampleMain >> state: aDictionary [
 		'crud' -> LWCrudExample.
 		'typeahead' -> LWTypeAheadExample.
 		'tree' -> LWTreeExample } asDictionary at: (state at: 'example').
-
-	"set the child component to a new instance and change active item for menu"
-	example child: ex new.
+	"create new instance of example component"
+	component := ex new.
+	ex = LWWordle ifTrue: [ component configure: (state at: 'query') ]. "for tests"
+
+	"set the child component to the example instance"
+	example child: component.
+
 	menu active: (state at: 'example').
 ]

src/LiveWeb-Examples/LWExamplePage.class.st

@@ -32,7 +32,7 @@ LWExamplePage >> initialPushState [
 	| example |
 	example := args uri segments last.
 	LWLogEvent debug: 'we got the args: ', example asString.
-	^ { #example -> example } asDictionary 
+	^ { #example -> example. #query -> args uri query } asDictionary 
 ]
 
 { #category : #'as yet unclassified' }

src/LiveWeb-Examples/LWWordle.class.st

@@ -42,6 +42,13 @@ LWWordle >> children [
 		]
 ]
 
+{ #category : #configuring }
+LWWordle >> configure: queryParams [
+	(queryParams includesKey: 'cheat') ifFalse: [ ^ self ].
+	word := queryParams at: 'cheat'.
+	guesses do: [ :g | g word: word ]
+]
+
 { #category : #'instance creation' }
 LWWordle >> enter [ 
 	"enter the current guess"

src/LiveWeb-Examples/LWWordleGuess.class.st

@@ -39,11 +39,14 @@ LWWordleGuess >> renderOn: h [
 	h div: { self style wordleGuess }
 		with: [ 
 			1 to: 5 do: [ :i | 
-				| ch inWord inPosition |
+				| ch inWord inPosition cls |
 				ch := guess at: i ifAbsent: Character space.
 				inWord := committed & (word includes: ch).
 				inPosition := committed & ((word at: i) = ch).
-				h div: { self style wordleGuessCharacter: inPosition word: inWord }
+				cls := String streamContents: [ :c |
+					inPosition ifTrue: [ c nextPutAll: 'in-position ' ].
+					inWord ifTrue: [ c nextPutAll: 'in-word' ] ]. 
+				h div: { (self style wordleGuessCharacter: inPosition word: inWord), (#class -> cls) }
 				  with: ch.
 			]
 	 	]