From b7aaaf45fc24ca9278301160a77ce6436f63e211 Mon Sep 17 00:00:00 2001
From: Anupam Jain <ajnsit@gmail.com>
Date: Mon, 20 Jan 2020 12:21:24 +0530
Subject: [PATCH] Add an enable disable button to the virtual keypad example

---
 examples/src/Test/Keyboard.js   |  9 +++------
 examples/src/Test/Keyboard.purs | 16 +++++++++++++---
 2 files changed, 16 insertions(+), 9 deletions(-)

diff --git a/examples/src/Test/Keyboard.js b/examples/src/Test/Keyboard.js
index 95442a7..b07c20b 100644
--- a/examples/src/Test/Keyboard.js
+++ b/examples/src/Test/Keyboard.js
@@ -1,11 +1,10 @@
 "use strict";
 
-var counter = 0;
-var observers = [];
+var observer = null;
 
 function innerHandler(event) {
   event.preventDefault();
-  observers.forEach(function(o){o(event);});
+  if(observer) observer(event);
 }
 
 // Start listening for keys
@@ -23,10 +22,8 @@ exports.stopListening = function() {
 // Await a key
 // :: EffectFnAff KeyEvent
 exports._awaitKey = function (onError, onSuccess) {
-  var id = counter++;
-  observers[id] = onSuccess;
+  observer = onSuccess;
   return function (cancelError, onCancelerError, onCancelerSuccess) {
-    delete observers[id];
     onCancelerSuccess();
   };
 };
diff --git a/examples/src/Test/Keyboard.purs b/examples/src/Test/Keyboard.purs
index 80e2b23..d1f2dca 100644
--- a/examples/src/Test/Keyboard.purs
+++ b/examples/src/Test/Keyboard.purs
@@ -5,8 +5,9 @@ import Concur.React (HTML)
 import Concur.React.DOM as D
 import Concur.React.Props as P
 import Control.Alt ((<|>))
-import Control.Applicative (pure, (*>))
-import Control.Bind (bind)
+import Control.Applicative (pure)
+import Control.Bind (bind, discard)
+import Data.BooleanAlgebra (not)
 import Data.Eq (class Eq, (==))
 import Data.Function (($))
 import Data.Maybe (Maybe(..))
@@ -29,12 +30,21 @@ import React.SyntheticEvent as R
 -- A never-ending virtual keypad widget.
 -- Allows the user to navigate and select a key. Displays the selected key.
 keypadWidget :: forall a. Widget HTML a
-keypadWidget = liftEffect startListening *> go Enter ""
+keypadWidget = go Enter "" <|> toggleEvents
   where
   go focus msg = do
     keyPressed <- virtualKeyInput focus <|> D.div' [D.text msg]
     go keyPressed $ "You clicked: " <> show keyPressed
 
+-- On off button for key events
+toggleEvents :: forall a. Widget HTML a
+toggleEvents = go false
+  where
+  go enabled = do
+    _ <- D.button [P.onClick] [D.text $ if enabled then "stop listening" else "start listening"]
+    liftEffect (if enabled then stopListening else startListening)
+    go (not enabled)
+
 -- Displays a keypad with the supplied initial focus.
 -- Allows the user to navigate and select a key. Returns the selected key.
 virtualKeyInput :: Focus -> Widget HTML Key