From 32fafd26690dc83845f452c88ba17f77e837ea56 Mon Sep 17 00:00:00 2001
From: Hauke D <haukex@zero-g.net>
Date: Wed, 10 Oct 2018 16:00:28 +0200
Subject: [PATCH] Modals are no longer needed

---
 web/democode/demo.html       |  4 ++--
 web/democode/perleditor.html | 15 ++++++---------
 2 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/web/democode/demo.html b/web/democode/demo.html
index 08c0b4c..e7ef9ac 100644
--- a/web/democode/demo.html
+++ b/web/democode/demo.html
@@ -45,7 +45,7 @@ iframe.perleditor {
 
 <iframe name="perlrunner" sandbox="allow-scripts" src="perlrunner.html" style="display:none;"></iframe>
 
-<iframe id="perl1" sandbox="allow-scripts allow-modals" class="perleditor" style="height:10em;"></iframe>
+<iframe id="perl1" sandbox="allow-scripts" class="perleditor" style="height:10em;"></iframe>
 <script>
 document.getElementById('perl1').src =
 	"perleditor.html#" + encodeURIComponent(JSON.stringify( {
@@ -53,7 +53,7 @@ document.getElementById('perl1').src =
 	} ));
 </script>
 
-<iframe id="perl2" sandbox="allow-scripts allow-modals" class="perleditor" style="height:40em;"></iframe>
+<iframe id="perl2" sandbox="allow-scripts" class="perleditor" style="height:40em;"></iframe>
 <script>
 document.getElementById('perl2').src =
 	"perleditor.html#" + encodeURIComponent(JSON.stringify( {
diff --git a/web/democode/perleditor.html b/web/democode/perleditor.html
index f8ddf78..a03f896 100644
--- a/web/democode/perleditor.html
+++ b/web/democode/perleditor.html
@@ -92,18 +92,15 @@ function findPerlRunner () {
 	pollId = window.setInterval( function () {
 		if (perlRunner)
 			window.clearInterval(pollId);
-		else if ( Date.now()>pollUntil ) {
-			//TODO: alternative to confirm() if modals are not allowed
-			if (window.confirm("Perl does not appear to have loaded yet, keep waiting?\n"
-			    +"(If you are on a slow connection, click OK to keep waiting.)"))
-				pollUntil = Date.now() + 10*1000;
-			else
-				window.clearInterval(pollId);
-		}
-		else
+		else {
 			if (window.parent && window.parent.frames["perlrunner"])
 				window.parent.frames["perlrunner"].postMessage(
 					{perlRunnerDiscovery:1}, '*');
+			if ( Date.now()>pollUntil ) {
+				$('#runnererrors>pre').text("Perl does not appear to have loaded yet, still waiting...");
+				$('#runnererrors').show();
+			}
+		}
 	}, 100);
 }