1709cd1302
* NEW: Mouse and keyboard support. * NEW: TTF fonts support. git-svn-id: svn://localhost/gambas/trunk@6773 867c0c6c-44f3-4631-809d-bfa615b0a4ec
256 lines
6.8 KiB
C
256 lines
6.8 KiB
C
/***************************************************************************
|
|
|
|
c_key.c
|
|
|
|
(c) 2014 Benoît Minisini <gambas@users.sourceforge.net>
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
|
|
MA 02110-1301, USA.
|
|
|
|
***************************************************************************/
|
|
|
|
#define __C_KEY_C
|
|
|
|
#include "c_window.h"
|
|
#include "c_key.h"
|
|
|
|
static SDL_Event *_current = NULL;
|
|
static bool _text_event = FALSE;
|
|
|
|
//-------------------------------------------------------------------------
|
|
|
|
static void update_event()
|
|
{
|
|
if (!_current)
|
|
return;
|
|
|
|
_text_event = _current->type == SDL_TEXTINPUT;
|
|
}
|
|
|
|
SDL_Event *KEY_enter_event(SDL_Event *event)
|
|
{
|
|
SDL_Event *old = _current;
|
|
_current = event;
|
|
update_event();
|
|
return old;
|
|
}
|
|
|
|
void KEY_leave_event(SDL_Event *event)
|
|
{
|
|
_current = event;
|
|
update_event();
|
|
}
|
|
|
|
static bool check_event(void)
|
|
{
|
|
if (!_current)
|
|
{
|
|
GB.Error("No keyboard event");
|
|
return TRUE;
|
|
}
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
#define CHECK_EVENT() if (check_event()) return
|
|
|
|
//-------------------------------------------------------------------------
|
|
|
|
BEGIN_METHOD(Key_get, GB_STRING key)
|
|
|
|
char *key = GB.ToZeroString(ARG(key));
|
|
int code = 0;
|
|
|
|
if (*key)
|
|
{
|
|
if (!key[1] && ((uchar)key[0] < 127))
|
|
{
|
|
GB.ReturnInteger(key[0]);
|
|
return;
|
|
}
|
|
else
|
|
{
|
|
for (code = 127; code <= 255; code++)
|
|
{
|
|
if (!strcasecmp(SDL_GetKeyName((SDL_Keycode)code), key))
|
|
{
|
|
GB.ReturnInteger(code);
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
GB.ReturnInteger(0);
|
|
|
|
END_METHOD
|
|
|
|
BEGIN_PROPERTY(Key_Code)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnInteger(_text_event ? 0 : _current->key.keysym.sym);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Shift)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean((_text_event ? SDL_GetModState() : _current->key.keysym.mod) & KMOD_SHIFT);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Control)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean((_text_event ? SDL_GetModState() : _current->key.keysym.mod) & KMOD_CTRL);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Alt)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean((_text_event ? SDL_GetModState() : _current->key.keysym.mod) & KMOD_ALT);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_AltGr)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean((_text_event ? SDL_GetModState() : _current->key.keysym.mod) & KMOD_MODE);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Meta)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean((_text_event ? SDL_GetModState() : _current->key.keysym.mod) & KMOD_GUI);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Normal)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean(((_text_event ? SDL_GetModState() : _current->key.keysym.mod) & (KMOD_CTRL | KMOD_ALT | KMOD_MODE | KMOD_GUI)) == 0);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Text)
|
|
|
|
CHECK_EVENT();
|
|
if (!_text_event)
|
|
GB.ReturnNull();
|
|
else
|
|
GB.ReturnNewZeroString(_current->text.text);
|
|
|
|
END_PROPERTY
|
|
|
|
BEGIN_PROPERTY(Key_Repeat)
|
|
|
|
CHECK_EVENT();
|
|
GB.ReturnBoolean(_text_event ? FALSE : _current->key.repeat);
|
|
|
|
END_PROPERTY
|
|
|
|
//-------------------------------------------------------------------------
|
|
|
|
GB_DESC KeyDesc[] =
|
|
{
|
|
GB_DECLARE_STATIC("Key"),
|
|
|
|
GB_STATIC_METHOD("_get", "i", Key_get, "(Key)s"),
|
|
|
|
GB_STATIC_PROPERTY_READ("Code", "i", Key_Code),
|
|
GB_STATIC_PROPERTY_READ("Shift", "b", Key_Shift),
|
|
GB_STATIC_PROPERTY_READ("Control", "b", Key_Control),
|
|
GB_STATIC_PROPERTY_READ("Alt", "b", Key_Alt),
|
|
GB_STATIC_PROPERTY_READ("AltGr", "b", Key_AltGr),
|
|
GB_STATIC_PROPERTY_READ("Meta", "b", Key_Meta),
|
|
GB_STATIC_PROPERTY_READ("Normal", "b", Key_Normal),
|
|
GB_STATIC_PROPERTY_READ("Text", "s", Key_Text),
|
|
GB_STATIC_PROPERTY("Repeat", "b", Key_Repeat),
|
|
|
|
GB_CONSTANT("Backspace", "i", SDLK_BACKSPACE),
|
|
GB_CONSTANT("Tab", "i", SDLK_TAB),
|
|
GB_CONSTANT("Return", "i", SDLK_RETURN),
|
|
GB_CONSTANT("Pause", "i", SDLK_PAUSE),
|
|
GB_CONSTANT("Escape", "i", SDLK_ESCAPE),
|
|
GB_CONSTANT("Esc", "i", SDLK_ESCAPE),
|
|
GB_CONSTANT("Space", "i", SDLK_SPACE),
|
|
GB_CONSTANT("Delete", "i", SDLK_DELETE),
|
|
GB_CONSTANT("Num0", "i", SDLK_KP_0),
|
|
GB_CONSTANT("Num1", "i", SDLK_KP_1),
|
|
GB_CONSTANT("Num2", "i", SDLK_KP_2),
|
|
GB_CONSTANT("Num3", "i", SDLK_KP_3),
|
|
GB_CONSTANT("Num4", "i", SDLK_KP_4),
|
|
GB_CONSTANT("Num5", "i", SDLK_KP_5),
|
|
GB_CONSTANT("Num6", "i", SDLK_KP_6),
|
|
GB_CONSTANT("Num7", "i", SDLK_KP_7),
|
|
GB_CONSTANT("Num8", "i", SDLK_KP_8),
|
|
GB_CONSTANT("Num9", "i", SDLK_KP_9),
|
|
GB_CONSTANT("NumPeriod", "i", SDLK_KP_PERIOD),
|
|
GB_CONSTANT("NumDivide", "i", SDLK_KP_DIVIDE),
|
|
GB_CONSTANT("NumMultiply", "i", SDLK_KP_MULTIPLY),
|
|
GB_CONSTANT("NumMinus", "i", SDLK_KP_MINUS),
|
|
GB_CONSTANT("NumPlus", "i", SDLK_KP_PLUS),
|
|
GB_CONSTANT("NumEnter", "i", SDLK_KP_ENTER),
|
|
//GB_CONSTANT("NumEquals", "i", SDLK_KP_EQUALS),
|
|
GB_CONSTANT("Up", "i", SDLK_UP),
|
|
GB_CONSTANT("Down", "i", SDLK_DOWN),
|
|
GB_CONSTANT("Right", "i", SDLK_RIGHT),
|
|
GB_CONSTANT("Left", "i", SDLK_LEFT),
|
|
GB_CONSTANT("Insert", "i", SDLK_INSERT),
|
|
GB_CONSTANT("Home", "i", SDLK_HOME),
|
|
GB_CONSTANT("End", "i", SDLK_END),
|
|
GB_CONSTANT("PageUp", "i", SDLK_PAGEUP),
|
|
GB_CONSTANT("PageDown", "i", SDLK_PAGEDOWN),
|
|
GB_CONSTANT("F1", "i", SDLK_F1),
|
|
GB_CONSTANT("F2", "i", SDLK_F2),
|
|
GB_CONSTANT("F3", "i", SDLK_F3),
|
|
GB_CONSTANT("F4", "i", SDLK_F4),
|
|
GB_CONSTANT("F5", "i", SDLK_F5),
|
|
GB_CONSTANT("F6", "i", SDLK_F6),
|
|
GB_CONSTANT("F7", "i", SDLK_F7),
|
|
GB_CONSTANT("F8", "i", SDLK_F8),
|
|
GB_CONSTANT("F9", "i", SDLK_F9),
|
|
GB_CONSTANT("F10", "i", SDLK_F10),
|
|
GB_CONSTANT("F11", "i", SDLK_F11),
|
|
GB_CONSTANT("F12", "i", SDLK_F12),
|
|
GB_CONSTANT("F13", "i", SDLK_F13),
|
|
GB_CONSTANT("F14", "i", SDLK_F14),
|
|
GB_CONSTANT("F15", "i", SDLK_F15),
|
|
GB_CONSTANT("NumLock", "i", SDLK_NUMLOCKCLEAR),
|
|
GB_CONSTANT("CapsLock", "i", SDLK_CAPSLOCK),
|
|
GB_CONSTANT("ScrollLock", "i", SDLK_SCROLLLOCK),
|
|
GB_CONSTANT("RightShift", "i", SDLK_RSHIFT),
|
|
GB_CONSTANT("LeftShift", "i", SDLK_LSHIFT),
|
|
GB_CONSTANT("RightControl", "i", SDLK_RCTRL),
|
|
GB_CONSTANT("LeftControl", "i", SDLK_LCTRL),
|
|
GB_CONSTANT("RightAlt", "i", SDLK_RALT),
|
|
GB_CONSTANT("LeftAlt", "i", SDLK_LALT),
|
|
GB_CONSTANT("RightMeta", "i", SDLK_RGUI),
|
|
GB_CONSTANT("LeftMeta", "i", SDLK_LGUI),
|
|
GB_CONSTANT("AltGrKey", "i", SDLK_MODE),
|
|
//GB_CONSTANT("Compose", "i", SDLK_COMPOSE),
|
|
//GB_CONSTANT("Help", "i", SDLK_HELP),
|
|
//GB_CONSTANT("Print", "i", SDLK_PRINT),
|
|
GB_CONSTANT("SysReq", "i", SDLK_SYSREQ),
|
|
//GB_CONSTANT("Break", "i", SDLK_BREAK),
|
|
GB_CONSTANT("Menu", "i", SDLK_MENU),
|
|
//GB_CONSTANT("Power", "i", SDLK_POWER),
|
|
//GB_CONSTANT("Euro", "i", SDLK_EURO),
|
|
//GB_CONSTANT("Undo", "i", SDLK_UNDO),
|
|
|
|
GB_END_DECLARE
|
|
};
|