From e40a4eaacb69511bc55f67b502b92db30c04ce90 Mon Sep 17 00:00:00 2001
From: "Joshua A. Horton" <joshua_horton@sil.org>
Date: Mon, 7 May 2018 14:12:11 +0700
Subject: [PATCH] Adds support for 'beep' in stores to KMW.  Nothing for
 Developer yet.

---
 web/source/kmwcallback.ts | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/web/source/kmwcallback.ts b/web/source/kmwcallback.ts
index 1466efe325..84057bab42 100644
--- a/web/source/kmwcallback.ts
+++ b/web/source/kmwcallback.ts
@@ -83,7 +83,13 @@ namespace com.keyman {
     ['t']: 'n';
   }
 
-  type ContextNonCharEntry = RuleDeadkey | ContextAny | RuleIndex | ContextEx | ContextNul;
+  class ContextBeep {
+    /** Discriminant field - 'b' for `beep`
+     */
+    ['t']: 'b';
+  }
+
+  type ContextNonCharEntry = RuleDeadkey | ContextAny | RuleIndex | ContextEx | ContextNul | ContextBeep ;
   type ContextEntry = RuleChar | ContextNonCharEntry;
 
   /**
@@ -507,6 +513,9 @@ namespace com.keyman {
                 mismatch = true;
               }
               break;
+            case 'b':
+              this.beep(Ptarg);
+              break;
             default:
               assertNever(r);
           }