From 0b64e5b1982c4ce09b48c2ac927ace7505d7f3a7 Mon Sep 17 00:00:00 2001
From: Wohlstand <admin@wohlnet.ru>
Date: Fri, 10 Nov 2017 02:40:38 +0300
Subject: Ability to quit from Classic ADLMIDI under DOS by ESC key hit

---
 src/adlmidi.cpp | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/adlmidi.cpp')

diff --git a/src/adlmidi.cpp b/src/adlmidi.cpp
index 7c08287..2add51a 100644
--- a/src/adlmidi.cpp
+++ b/src/adlmidi.cpp
@@ -696,3 +696,13 @@ ADLMIDI_EXPORT int adl_atEnd(ADL_MIDIPlayer *device)
         return 1;
     return (int)player->atEnd;
 }
+
+ADLMIDI_EXPORT void adl_panic(ADL_MIDIPlayer *device)
+{
+    if(!device)
+        return;
+    MIDIplay *player = reinterpret_cast<MIDIplay *>(device->adl_midiPlayer);
+    if(!player)
+        return;
+    player->realTime_panic();
+}
-- 
cgit v1.2.3