X-Git-Url: https://git.ucc.asn.au/?p=ipdf%2Fcode.git;a=blobdiff_plain;f=src%2Fdebugscript.cpp;fp=src%2Fdebugscript.cpp;h=3d132453bfe922ac4e21e0d54af6b423c18c5fa4;hp=9bb5ea640c69e7f395b20bf6a794345b6c146781;hb=67539822c80c8057d850b542abc142c189bd3f05;hpb=6b7e92069596a3f19fbe068b14a9c5ef59c22061

diff --git a/src/debugscript.cpp b/src/debugscript.cpp
index 9bb5ea6..3d13245 100644
--- a/src/debugscript.cpp
+++ b/src/debugscript.cpp
@@ -113,6 +113,12 @@ void DebugScript::ParseAction()
 	{
 		currentAction.type = AT_RecordPerformance;
 	}
+	else if (actionType == "debugfont")
+	{
+		currentAction.type = AT_DebugFont;
+		inp >> currentAction.textargs;
+	}
+
 }
 
 bool DebugScript::Execute(View *view, Screen *scr)
@@ -207,6 +213,10 @@ bool DebugScript::Execute(View *view, Screen *scr)
 	case AT_RecordPerformance:
 		PrintPerformance(view, scr);
 		break;
+	case AT_DebugFont:
+		scr->ShowDebugFont(currentAction.textargs == "1" || currentAction.textargs == "on");
+		currentAction.loops = 1;
+		break;
 	default:
 		Fatal("Unknown script command in queue.");
 	}