1 files changed, 79 insertions, 0 deletions
diff --git a/tvision/classes/alcon/alconkey.cc b/tvision/classes/alcon/alconkey.cc
new file mode 100644
index 0000000..c434c34
--- /dev/null
+++ b/tvision/classes/alcon/alconkey.cc
@@ -0,0 +1,79 @@
+/*****************************************************************************
+
+  Copyright (c) 2003-2004 by Grzegorz Adam Hankiewicz
+  Copyright (c) 2004-2009 by Salvador E. Tropea (SET) <set@ieee.org>
+  
+  TGKeyAlcon
+  AlCon driver for Turbo Vision. It uses the conio.h emulation library on top
+  of Allegro.
+
+  Contributed by Grzegorz Adam Hankiewicz <gradha@hankiewicz.datanet.co.uk>
+
+  This is part of Turbo Vision ditribution and covered by the same license.
+
+*****************************************************************************/
+
+#include <tv/configtv.h>
+
+#define Uses_TScreen
+#define Uses_TEvent
+#define Uses_TGKey
+#include <tv.h>
+
+#include <tv/alcon/key.h>
+#define Uses_AlCon_conio
+#include <tv/alcon/alcon.h>
+
+#ifdef HAVE_ALLEGRO
+
+/*****************************************************************************
+
+  TGKeyAlcon keyboard stuff.
+
+*****************************************************************************/
+
+unsigned TGKeyAlcon::Symbol;
+uchar    TGKeyAlcon::Scan;
+unsigned TGKeyAlcon::Flags;
+
+void TGKeyAlcon::Init()
+{
+    TGKey::kbhit = KbHit;
+    TGKey::clear = Clear;
+    TGKey::gkey = GKey;
+    TGKey::fillTEvent = FillTEvent;
+//  TGKey::getShiftState=GetShiftState;
+}
+
+int TGKeyAlcon::KbHit()
+{
+    return AlCon_KbHit();
+}
+
+void TGKeyAlcon::Clear()
+{
+    AlCon_ClearKeyBuf();
+}
+
+ushort TGKeyAlcon::GKey()
+{
+    return AlCon_GetKey(&Symbol, &Scan, &Flags);
+}
+
+void TGKeyAlcon::FillTEvent(TEvent &e)
+{
+    ushort Abstract=GKey();
+    e.keyDown.charScan.charCode=((Flags & kbAltLCode) && (Symbol<128)) ? 0 : Symbol;
+    e.keyDown.charScan.scanCode=Scan;
+    e.keyDown.raw_scanCode=Scan;
+    e.keyDown.keyCode=Abstract;
+    e.keyDown.shiftState=0;
+    // TODO: fill the shiftState correctly.
+    //e.keyDown.shiftState=kbFlags;
+
+    // TODO: Unicode? Yeah right.
+    //e.keyDown.charCode=Unicode; // Should I do the same as with Symbol?
+    e.what=evKeyDown;
+}
+
+#endif // HAVE_ALLEGRO