handloose display the text

projects/handloose/source/TypingState.kiss

@@ -1,7 +1,7 @@
 (var SPRITE_SPACING 20)
 (var SPRITE_SIZE 100)
 (var TEXT_SIZE 24)
-
+(prop &mut :FlxText docText null)
 (method &override :Void create []
     #|{
         super.create();
@@ -19,15 +19,22 @@
 		// Split the screen into text area and dance area:
 		var splitX = SPRITE_SPACING * 5 + SPRITE_SIZE * 4;
 		background.drawLine(splitX, 0, splitX, FlxG.height);
-		// Split the left side into upper/lower:
-		background.drawLine(0, FlxG.height - SPRITE_SIZE - SPRITE_SPACING * 2, splitX, FlxG.height - SPRITE_SIZE - SPRITE_SPACING * 2);
-
+		docText = new FlxText(splitX, 0, "", TEXT_SIZE);
+		docText.setFormat(null, null, FlxColor.WHITE);
+	
 		add(background);
+		add(docText);
 
+		// this is actually just distracting:
+		// Split the left side into upper/lower:
+		//background.drawLine(0, FlxG.height - SPRITE_SIZE - SPRITE_SPACING * 2, splitX, FlxG.height - SPRITE_SIZE - SPRITE_SPACING * 2);
+
+		/*
 		makeTriangleSprite(Left, "", y);
 		makeTriangleSprite(Down, "", y);
 		makeTriangleSprite(Up, "", y);
 		makeTriangleSprite(Right, "", y);
+		*/
 
 		add(actionSprites);
 
@@ -65,6 +72,7 @@
 												(set lowestMatching spr))))
 							(when lowestMatching
 								(lowestMatching.action)
+								(updateDocText)
 								(lowestMatching.kill))))
 				}
 			// Prompt to map the arrows
@@ -78,6 +86,8 @@
                     (dictSet inputCodes id nextToMap))
             })))
 
+(method updateDocText []
+	(set docText.text (StringTools.replace _model.content "\t" "    ")))
 
 (prop :FlxTypedGroup<ActionSprite> actionSprites (new FlxTypedGroup))
 (prop &mut :DocumentModel _model null)
@@ -85,11 +95,7 @@
 (var ARROW_DELAY 0.25)
 (method setModel [:DocumentModel m]
 	(set _model m)
-	(doFor i (range 100)
-		#|{
-			var stuff = m.generateArrowStuff();
-			makeTriangleSprite(DIR_ORDER[i % DIR_ORDER.length], stuff.text, -SPRITE_SIZE*i, stuff.action);
-		}|#))
+	(updateDocText))
 
 (method :FlxSprite makeTriangleSprite [:ArrowDir dir :String text :Int y &opt :Void->Void action]
     #|{