Merge branch 'master' of git://localhost/acess2
[tpg/acess2.git] / Usermode / Applications / axwin3_src / libaxwin3.so_src / r_richtext.c
index 9fed544..1ac98fe 100644 (file)
@@ -26,13 +26,20 @@ int AxWin3_RichText_MessageHandler(tHWND Window, int MessageID, int Size, void *
 {
        tRichText_Window        *info = AxWin3_int_GetDataPtr(Window);
        struct sWndMsg_KeyAction        *keyaction = Data;
-       _SysDebug("MessageID = %i", MessageID);
        switch(MessageID)
        {
        case WNDMSG_KEYFIRE:
                if(Size < sizeof(*keyaction))   return -1;
                info->KeyCallback(Window, 2, keyaction->KeySym, keyaction->UCS32);
                return 1;
+       case WNDMSG_KEYDOWN:
+               if(Size < sizeof(*keyaction))   return -1;
+               info->KeyCallback(Window, 1, keyaction->KeySym, keyaction->UCS32);
+               return 1;
+       case WNDMSG_KEYUP:
+               if(Size < sizeof(*keyaction))   return -1;
+               info->KeyCallback(Window, 0, keyaction->KeySym, 0);
+               return 1;
        }
        return 0;
 }

UCC git Repository :: git.ucc.asn.au