special_input_device 0.1.0 → 0.2.0

data/ext/special_input_device/window.c

@@ -6,49 +6,49 @@
 
 #define MAXIMUM_WINDOW_NAME_LENGTH 256
 
-#define FLAT_CONTROL 0x0001
-#define FLAT_CONTROL_LEFT 0x0002
-#define FLAT_CONTROL_RIGHT 0x0004
-#define FLAT_CONTROLS (FLAT_CONTROL | FLAT_CONTROL_LEFT | FLAT_CONTROL_RIGHT)
-#define FLAT_SHIFT 0x0008
-#define FLAT_SHIFT_LEFT 0x0010
-#define FLAT_SHIFT_RIGHT 0x0020
-#define FLAT_SHIFTS (FLAT_SHIFT | FLAT_SHIFT_LEFT | FLAT_SHIFT_RIGHT)
-#define FLAT_ALTERNATE 0x0040
-#define FLAT_ALTERNATE_LEFT 0x0080
-#define FLAT_ALTERNATE_RIGHT 0x0100
-#define FLAT_MOUSE_LEFT 0x0800
-#define FLAT_MOUSE_MIDDLE 0x1000
-#define FLAT_MOUSE_RIGHT 0x2000
-#define FLAT_MOUSE_X1 0x4000
-#define FLAT_MOUSE_X2 0x8000
+#define FLAG_CONTROL 0x0001
+#define FLAG_CONTROL_LEFT 0x0002
+#define FLAG_CONTROL_RIGHT 0x0004
+#define FLAG_CONTROLS (FLAG_CONTROL | FLAG_CONTROL_LEFT | FLAG_CONTROL_RIGHT)
+#define FLAG_SHIFT 0x0008
+#define FLAG_SHIFT_LEFT 0x0010
+#define FLAG_SHIFT_RIGHT 0x0020
+#define FLAG_SHIFTS (FLAG_SHIFT | FLAG_SHIFT_LEFT | FLAG_SHIFT_RIGHT)
+#define FLAG_ALTERNATE 0x0040
+#define FLAG_ALTERNATE_LEFT 0x0080
+#define FLAG_ALTERNATE_RIGHT 0x0100
+#define FLAG_MOUSE_LEFT 0x0800
+#define FLAG_MOUSE_MIDDLE 0x1000
+#define FLAG_MOUSE_RIGHT 0x2000
+#define FLAG_MOUSE_X1 0x4000
+#define FLAG_MOUSE_X2 0x8000
 
 typedef struct {
-	WORD      flats;
+	WORD      flags;
 	SHORT     x;
 	SHORT     y;
-	ULONGLONG leftClick;
-	ULONGLONG middleClick;
-	ULONGLONG rightClick;
-	ULONGLONG x1Click;
-	ULONGLONG x2Click;
+	ULONGLONG leftClickTime;
+	ULONGLONG middleClickTime;
+	ULONGLONG rightClickTime;
+	ULONGLONG x1ClickTime;
+	ULONGLONG x2ClickTime;
 } SID_WINDOW_DATA;
 
 static WPARAM createMouseMessageWParam(SID_WINDOW_DATA *cData) {
 	WPARAM cWParam = 0;
-	if (cData->flats & FLAT_CONTROLS)
+	if (cData->flags & FLAG_CONTROLS)
 		cWParam |= MK_CONTROL;
-	if (cData->flats & FLAT_SHIFTS)
+	if (cData->flags & FLAG_SHIFTS)
 		cWParam |= MK_SHIFT;
-	if (cData->flats & FLAT_MOUSE_LEFT)
+	if (cData->flags & FLAG_MOUSE_LEFT)
 		cWParam |= MK_LBUTTON;
-	if (cData->flats & FLAT_MOUSE_MIDDLE)
+	if (cData->flags & FLAG_MOUSE_MIDDLE)
 		cWParam |= MK_MBUTTON;
-	if (cData->flats & FLAT_MOUSE_RIGHT)
+	if (cData->flags & FLAG_MOUSE_RIGHT)
 		cWParam |= MK_RBUTTON;
-	if (cData->flats & FLAT_MOUSE_X1)
+	if (cData->flags & FLAG_MOUSE_X1)
 		cWParam |= MK_XBUTTON1;
-	if (cData->flats & FLAT_MOUSE_X2)
+	if (cData->flags & FLAG_MOUSE_X2)
 		cWParam |= MK_XBUTTON2;
 	return cWParam;
 }
@@ -230,9 +230,9 @@ static VALUE ruby_find_child(VARIABLE_ARGUMENTS_C) {
 	cClassName  = className == Qnil ? NULL : RUBY_VALUE_TO_LPCTSTR(className);
 	cAfter      = after == Qnil ? NULL : ruby___window_get_handle_code(after);
 	cHWND       = FindWindowEx(ruby___window_get_handle_code(self), cAfter, cClassName, cWindowName);
-	if (!cHWND)
+	if (GetLastError())
 		RAISE_WIN32_ERROR();
-	return ruby___window_new(cHWND);
+	return cHWND ? ruby___window_new(cHWND) : Qnil;
 }
 
 /*
@@ -246,8 +246,7 @@ static VALUE ruby_parent(VARIABLE_ARGUMENTS_C) {
 	HWND  cHWND;
 	SCAN_ARGUMENTS("01", &includeOwner);
 	cHWND = ruby___window_get_handle_code(self);
-	return ruby___window_new(
-			includeOwner && includeOwner != Qnil ? GetAncestor(cHWND, GA_PARENT) : GetParent(cHWND));
+	return ruby___window_new(includeOwner && includeOwner != Qnil ? GetAncestor(cHWND, GA_PARENT) : GetParent(cHWND));
 }
 
 /*
@@ -336,6 +335,17 @@ static VALUE ruby_hide(VALUE self) {
 	return self;
 }
 
+/*
+ * Restores the window.
+ * @return [SpecialInputDevice::Window] self
+ * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms633548.aspx Windows Dev Center - ShowWindow function
+ */
+static VALUE ruby_restore(VALUE self) {
+	if (!ShowWindow(ruby___window_get_handle_code(self), SW_SHOWNORMAL))
+		RAISE_WIN32_ERROR();
+	return self;
+}
+
 /*
  * Maximizes the window.
  * @return [SpecialInputDevice::Window] self
@@ -392,17 +402,6 @@ static VALUE ruby_resize_to(VALUE self, VALUE width, VALUE height) {
 	return self;
 }
 
-/*
- * Restores the window.
- * @return [SpecialInputDevice::Window] self
- * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms633548.aspx Windows Dev Center - ShowWindow function
- */
-static VALUE ruby_restore(VALUE self) {
-	if (!ShowWindow(ruby___window_get_handle_code(self), SW_SHOWNORMAL))
-		RAISE_WIN32_ERROR();
-	return self;
-}
-
 //endregion control
 
 //region display
@@ -416,11 +415,11 @@ static VALUE ruby_restore(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/dd144909.aspx Windows Dev Center - GetPixel function
  */
 static VALUE ruby_color_at(VALUE self, VALUE x, VALUE y) {
-	HWND  cWindow = ruby___window_get_handle_code(self);
+	HWND     cWindow = ruby___window_get_handle_code(self);
 	COLORREF cColor;
-	HDC   cWindowDC;
-	POINT cPoint;
-	RECT  cWindowRectangle;
+	HDC      cWindowDC;
+	POINT    cPoint;
+	RECT     cWindowRectangle;
 	cPoint.x = NUM2LONG(x);
 	cPoint.y = NUM2LONG(y);
 	if (!ClientToScreen(cWindow, &cPoint))
@@ -428,7 +427,7 @@ static VALUE ruby_color_at(VALUE self, VALUE x, VALUE y) {
 	if (!GetWindowRect(cWindow, &cWindowRectangle))
 		RAISE_WIN32_ERROR();
 	cWindowDC = GetWindowDC(cWindow);
-	cColor = GetPixel(cWindowDC, cPoint.x - cWindowRectangle.left, cPoint.y - cWindowRectangle.top);
+	cColor    = GetPixel(cWindowDC, cPoint.x - cWindowRectangle.left, cPoint.y - cWindowRectangle.top);
 	ReleaseDC(cWindow, cWindowDC);
 	return ruby___color_new_from_color_ref(cColor);
 }
@@ -573,156 +572,103 @@ static VALUE ruby_find_image(VARIABLE_ARGUMENTS_C) {
 
 //region keyboard
 
+#define RUBY___KEY_HOLD_RELEASE(upDown, lParamFlags, flagsUpdateOperator, additionalLine) \
+        SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();\
+        HWND            cHWnd  = ruby___window_get_handle_code(self);\
+        WPARAM          cWParam[cCount];\
+        LPARAM          cLParam[cCount];\
+        INT             cT;\
+        SCAN_ARGUMENTS("1*", NULL, NULL);\
+        for (cT = 0; cT < cCount; cT++) {\
+            cWParam[cT] = NUM2USHORT(cArguments[cT]);\
+            cLParam[cT] = (LPARAM) (lParamFlags | (WORD) MapVirtualKeyA(cWParam[cT], MAPVK_VK_TO_VSC) << 16);\
+        }\
+        for (cT = 0; cT < cCount; cT++) {\
+            PostMessage(cHWnd, WM_KEY ## upDown, cWParam[cT], cLParam[cT]);\
+            additionalLine\
+            switch (cWParam[cT]) {\
+                case VK_CONTROL:\
+                    cData->flags flagsUpdateOperator FLAG_CONTROL;\
+                    break;\
+                case VK_LCONTROL:\
+                    cData->flags flagsUpdateOperator FLAG_CONTROL_LEFT;\
+                    break;\
+                case VK_RCONTROL:\
+                    cData->flags flagsUpdateOperator FLAG_CONTROL_RIGHT;\
+                    break;\
+                case VK_SHIFT:\
+                    cData->flags flagsUpdateOperator FLAG_SHIFT;\
+                    break;\
+                case VK_LSHIFT:\
+                    cData->flags flagsUpdateOperator FLAG_SHIFT_LEFT;\
+                    break;\
+                case VK_RSHIFT:\
+                    cData->flags flagsUpdateOperator FLAG_SHIFT_RIGHT;\
+                    break;\
+                case VK_MENU:\
+                    cData->flags flagsUpdateOperator FLAG_ALTERNATE;\
+                    break;\
+                case VK_LMENU:\
+                    cData->flags flagsUpdateOperator FLAG_ALTERNATE_LEFT;\
+                    break;\
+                case VK_RMENU:\
+                    cData->flags flagsUpdateOperator FLAG_ALTERNATE_RIGHT;\
+                    break;\
+                default:\
+                    break;\
+            }\
+        }\
+        return self;
+
 /*
- * @overload key_hold(key_code)
+ * @overload key_hold(key_code, *more)
  *   Simulate holding the specified key down in the window. User would not lose the control of computer.
  *   @param [Integer] key_code virtual key code. Use a value of constant in {SpecialInputDevice::KeyCode}.
+ *   @param [Array[Integer]] more more key codes
  * @return [SpecialInputDevice::Window] self
  * @see SpecialInputDevice::Keyboard.hold
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646280.aspx Windows Dev Center - WM_KEYDOWN message
  */
-static VALUE ruby_key_hold(VALUE self, VALUE keyCode) {
-	SID_WINDOW_DATA *cData  = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd   = ruby___window_get_handle_code(self);
-	WPARAM          cWParam = NUM2USHORT(keyCode);
-	LPARAM          cLParam = 1 | (WORD) MapVirtualKeyA(cWParam, MAPVK_VK_TO_VSC) << 16;
-	PostMessage(cHWnd, WM_KEYDOWN, cWParam, cLParam);
-	switch (cWParam) {
-		case VK_CONTROL:
-			cData->flats |= FLAT_CONTROL;
-			break;
-		case VK_LCONTROL:
-			cData->flats |= FLAT_CONTROL_LEFT;
-			break;
-		case VK_RCONTROL:
-			cData->flats |= FLAT_CONTROL_RIGHT;
-			break;
-		case VK_SHIFT:
-			cData->flats |= FLAT_SHIFT;
-			break;
-		case VK_LSHIFT:
-			cData->flats |= FLAT_SHIFT_LEFT;
-			break;
-		case VK_RSHIFT:
-			cData->flats |= FLAT_SHIFT_RIGHT;
-			break;
-		case VK_MENU:
-			cData->flats |= FLAT_ALTERNATE;
-			break;
-		case VK_LMENU:
-			cData->flats |= FLAT_ALTERNATE_LEFT;
-			break;
-		case VK_RMENU:
-			cData->flats |= FLAT_ALTERNATE_RIGHT;
-			break;
-		default:
-			break;
-	}
-	return self;
+static VALUE ruby_key_hold(VARIABLE_ARGUMENTS_C) {
+	RUBY___KEY_HOLD_RELEASE(DOWN, 0x00000001, |=,)
 }
 
 /*
  * @overload key_release(key_code)
  *   Simulate releasing the specified key in the window. User would not lose the control of computer.
  *   @param [Integer] key_code virtual key code. Use a value of constant in {SpecialInputDevice::KeyCode}.
+ *   @param [Array[Integer]] more more key codes
  * @return [SpecialInputDevice::Window] self
  * @see SpecialInputDevice::Keyboard.release
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646281.aspx Windows Dev Center - WM_KEYUP message
  */
-static VALUE ruby_key_release(VALUE self, VALUE keyCode) {
-	SID_WINDOW_DATA *cData  = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd   = ruby___window_get_handle_code(self);
-	WPARAM          cWParam = NUM2USHORT(keyCode);
-	LPARAM          cLParam = 1;
-	cLParam |= (WORD) MapVirtualKeyA(cWParam, MAPVK_VK_TO_VSC) << 16;
-	cLParam |= 0xA0000000;
-	PostMessage(cHWnd, WM_KEYUP, cWParam, cLParam);
-	switch (cWParam) {
-		case VK_CONTROL:
-			cData->flats &= ~FLAT_CONTROL;
-			break;
-		case VK_LCONTROL:
-			cData->flats &= ~FLAT_CONTROL_LEFT;
-			break;
-		case VK_RCONTROL:
-			cData->flats &= ~FLAT_CONTROL_RIGHT;
-			break;
-		case VK_SHIFT:
-			cData->flats &= ~FLAT_SHIFT;
-			break;
-		case VK_LSHIFT:
-			cData->flats &= ~FLAT_SHIFT_LEFT;
-			break;
-		case VK_RSHIFT:
-			cData->flats &= ~FLAT_SHIFT_RIGHT;
-			break;
-		case VK_MENU:
-			cData->flats &= ~FLAT_ALTERNATE;
-			break;
-		case VK_LMENU:
-			cData->flats &= ~FLAT_ALTERNATE_LEFT;
-			break;
-		case VK_RMENU:
-			cData->flats &= ~FLAT_ALTERNATE_RIGHT;
-			break;
-		default:
-			break;
-	}
-	return self;
+static VALUE ruby_key_release(VARIABLE_ARGUMENTS_C) {
+	RUBY___KEY_HOLD_RELEASE(UP, 0xA0000001, &= ~,)
 }
 
 /*
  * @overload key_press(key_code)
  *   Simulate pressing the specified key in the window. User would not lose the control of computer.
  *   @param [Integer] key_code virtual key code. Use a value of constant in {SpecialInputDevice::KeyCode}.
+ *   @param [Array[Integer]] more more key codes
  * @return [SpecialInputDevice::Window] self
  * @see SpecialInputDevice::Keyboard.press
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646280.aspx Windows Dev Center - WM_KEYDOWN message
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646281.aspx Windows Dev Center - WM_KEYUP message
  */
-static VALUE ruby_key_press(VALUE self, VALUE keyCode) {
-	SID_WINDOW_DATA *cData  = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd   = ruby___window_get_handle_code(self);
-	WPARAM          cWParam = NUM2USHORT(keyCode);
-	LPARAM          cLParam = 1 | (WORD) MapVirtualKeyA(cWParam, MAPVK_VK_TO_VSC) << 16;
-	PostMessage(cHWnd, WM_KEYDOWN, cWParam, cLParam);
-	cLParam |= 0xA0000000;
-	PostMessage(cHWnd, WM_KEYUP, cWParam, cLParam);
-	switch (cWParam) {
-		case VK_CONTROL:
-			cData->flats &= ~FLAT_CONTROL;
-			break;
-		case VK_LCONTROL:
-			cData->flats &= ~FLAT_CONTROL_LEFT;
-			break;
-		case VK_RCONTROL:
-			cData->flats &= ~FLAT_CONTROL_RIGHT;
-			break;
-		case VK_SHIFT:
-			cData->flats &= ~FLAT_SHIFT;
-			break;
-		case VK_LSHIFT:
-			cData->flats &= ~FLAT_SHIFT_LEFT;
-			break;
-		case VK_RSHIFT:
-			cData->flats &= ~FLAT_SHIFT_RIGHT;
-			break;
-		case VK_MENU:
-			cData->flats &= ~FLAT_ALTERNATE;
-			break;
-		case VK_LMENU:
-			cData->flats &= ~FLAT_ALTERNATE_LEFT;
-			break;
-		case VK_RMENU:
-			cData->flats &= ~FLAT_ALTERNATE_RIGHT;
-			break;
-		default:
-			break;
-	}
-	return self;
+static VALUE ruby_key_press(VARIABLE_ARGUMENTS_C) {
+	RUBY___KEY_HOLD_RELEASE(
+			DOWN,
+			0x00000001,
+			&= ~,
+			{
+				cLParam[cT] |= 0xA0000000;
+				PostMessage(cHWnd, WM_KEYUP, cWParam[cT], cLParam[cT]);
+			}
+	)
 }
 
 //endregion keyboard
@@ -731,6 +677,14 @@ static VALUE ruby_key_press(VALUE self, VALUE keyCode) {
 
 //region move
 
+#define RUBY___MOUSE_MOVE(xYOperator) \
+        SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();\
+        HWND            cHWnd  = ruby___window_get_handle_code(self);\
+        cData->x xYOperator NUM2SHORT(x);\
+        cData->y xYOperator NUM2SHORT(y);\
+        PostMessage(cHWnd, WM_MOUSEMOVE, createMouseMessageWParam(cData), createMouseMessageLParam(cData));\
+        return self;
+
 /*
  * @overload mouse_move_relatively(x, y)
  *   Move the cursor position relative to current position.
@@ -741,12 +695,7 @@ static VALUE ruby_key_press(VALUE self, VALUE keyCode) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645616.aspx Windows Dev Center - WM_MOUSEMOVE message
  */
 static VALUE ruby_mouse_move_relatively(VALUE self, VALUE x, VALUE y) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->x += NUM2SHORT(x);
-	cData->y += NUM2SHORT(y);
-	PostMessage(cHWnd, WM_MOUSEMOVE, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_MOVE(+=)
 }
 
 /*
@@ -760,16 +709,52 @@ static VALUE ruby_mouse_move_relatively(VALUE self, VALUE x, VALUE y) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645616.aspx Windows Dev Center - WM_MOUSEMOVE message
  */
 static VALUE ruby_mouse_move_to(VALUE self, VALUE x, VALUE y) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->x = NUM2SHORT(x);
-	cData->y = NUM2SHORT(y);
-	PostMessage(cHWnd, WM_MOUSEMOVE, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_MOVE(=)
 }
 
 //endregion move
 
+#define RUBY___MOUSE_CLICK(dataFlag, messageNamePrefix, wParamAdditionalExpression, clickTimePrefix) \
+        VALUE           times;\
+        UINT            cTimes;\
+        SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();\
+        ULONGLONG       cCurrentTime = getSystemTimeIdentifier();\
+        HWND            cHWnd        = ruby___window_get_handle_code(self);\
+        UINT            cT;\
+        SCAN_ARGUMENTS("01", &times);\
+        if (times == Qnil)\
+            cTimes = 1;\
+        else\
+            cTimes = NUM2UINT(times);\
+        for (cT    = 0; cT < cTimes; cT++) {\
+            cData->flags |= dataFlag;\
+            PostMessage(cHWnd, messageNamePrefix ## DOWN, createMouseMessageWParam(cData) wParamAdditionalExpression, createMouseMessageLParam(cData));\
+            if (cData-> clickTimePrefix ## ClickTime && cData-> clickTimePrefix ## ClickTime + GetDoubleClickTime() * 10000 >= cCurrentTime)\
+                PostMessage(cHWnd, messageNamePrefix ## DBLCLK, createMouseMessageWParam(cData) wParamAdditionalExpression, createMouseMessageLParam(cData));\
+            cData->flags &= ~dataFlag;\
+            PostMessage(cHWnd, messageNamePrefix ## UP, createMouseMessageWParam(cData) wParamAdditionalExpression, createMouseMessageLParam(cData));\
+            cData-> clickTimePrefix ## ClickTime = cCurrentTime;\
+        }\
+        return self;
+
+#define RUBY___MOUSE_DOWN(dataFlag, messageNamePrefix, wParamAdditionalExpression, clickTimePrefix) \
+        SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();\
+        ULONGLONG       cCurrentTime = getSystemTimeIdentifier();\
+        HWND            cHWnd        = ruby___window_get_handle_code(self);\
+        cData->flags |= dataFlag;\
+        PostMessage(cHWnd, messageNamePrefix ## DOWN, createMouseMessageWParam(cData) wParamAdditionalExpression, createMouseMessageLParam(cData));\
+        if (cData-> clickTimePrefix ## ClickTime && cData-> clickTimePrefix ## ClickTime + GetDoubleClickTime() * 10000 >= cCurrentTime)\
+            PostMessage(cHWnd, messageNamePrefix ## DBLCLK, createMouseMessageWParam(cData) wParamAdditionalExpression, createMouseMessageLParam(cData));\
+        cData-> clickTimePrefix ## ClickTime = cCurrentTime;\
+        return self;
+
+#define RUBY___MOUSE_UP(dataFlag, messageNamePrefix, wParamAdditionalExpression) \
+        SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();\
+        HWND            cHWnd  = ruby___window_get_handle_code(self);\
+        cData->flags &= ~dataFlag;\
+        PostMessage(cHWnd, messageNamePrefix ## UP, createMouseMessageWParam(cData) wParamAdditionalExpression, createMouseMessageLParam(cData));\
+        return self;
+
 //region left_button
 
 /*
@@ -781,18 +766,9 @@ static VALUE ruby_mouse_move_to(VALUE self, VALUE x, VALUE y) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645607.aspx Windows Dev Center - WM_LBUTTONDOWN message
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645608.aspx Windows Dev Center - WM_LBUTTONUP message
  */
-static VALUE ruby_mouse_left_click(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_LEFT;
-	PostMessage(cHWnd, WM_LBUTTONDOWN, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	if (cData->leftClick && cData->leftClick + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->flats &= ~FLAT_MOUSE_LEFT;
-	PostMessage(cHWnd, WM_LBUTTONUP, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->leftClick = cCurrentTime;
-	return self;
+static VALUE ruby_mouse_left_click(VARIABLE_ARGUMENTS_C) {
+	getSystemTimeIdentifier();
+	RUBY___MOUSE_CLICK(FLAG_MOUSE_LEFT, WM_LBUTTON, , left)
 }
 
 /*
@@ -804,15 +780,7 @@ static VALUE ruby_mouse_left_click(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645607.aspx Windows Dev Center - WM_LBUTTONDOWN message
  */
 static VALUE ruby_mouse_left_down(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_LEFT;
-	PostMessage(cHWnd, WM_LBUTTONDOWN, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	if (cData->leftClick && cData->leftClick + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->leftClick = cCurrentTime;
-	return self;
+	RUBY___MOUSE_DOWN(FLAG_MOUSE_LEFT, WM_LBUTTON, , left)
 }
 
 /*
@@ -823,11 +791,7 @@ static VALUE ruby_mouse_left_down(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645608.aspx Windows Dev Center - WM_LBUTTONUP message
  */
 static VALUE ruby_mouse_left_up(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->flats &= ~FLAT_MOUSE_LEFT;
-	PostMessage(cHWnd, WM_LBUTTONUP, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_UP(FLAG_MOUSE_LEFT, WM_LBUTTON,)
 }
 
 //endregion left_button
@@ -843,18 +807,8 @@ static VALUE ruby_mouse_left_up(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646242.aspx Windows Dev Center - WM_RBUTTONDOWN function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646243.aspx Windows Dev Center - WM_RBUTTONUP function
  */
-static VALUE ruby_mouse_right_click(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_RIGHT;
-	PostMessage(cHWnd, WM_RBUTTONDOWN, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	if (cData->rightClick && cData->rightClick + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->flats &= ~FLAT_MOUSE_RIGHT;
-	PostMessage(cHWnd, WM_RBUTTONUP, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->rightClick = cCurrentTime;
-	return self;
+static VALUE ruby_mouse_right_click(VARIABLE_ARGUMENTS_C) {
+	RUBY___MOUSE_CLICK(FLAG_MOUSE_RIGHT, WM_RBUTTON, , right)
 }
 
 /*
@@ -866,15 +820,7 @@ static VALUE ruby_mouse_right_click(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646242.aspx Windows Dev Center - WM_RBUTTONDOWN function
  */
 static VALUE ruby_mouse_right_down(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_RIGHT;
-	PostMessage(cHWnd, WM_RBUTTONDOWN, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	if (cData->rightClick && cData->rightClick + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->rightClick = cCurrentTime;
-	return self;
+	RUBY___MOUSE_DOWN(FLAG_MOUSE_RIGHT, WM_RBUTTON, , right)
 }
 
 /*
@@ -885,11 +831,7 @@ static VALUE ruby_mouse_right_down(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646243.aspx Windows Dev Center - WM_RBUTTONUP function
  */
 static VALUE ruby_mouse_right_up(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->flats &= ~FLAT_MOUSE_RIGHT;
-	PostMessage(cHWnd, WM_RBUTTONUP, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_UP(FLAG_MOUSE_RIGHT, WM_RBUTTON,)
 }
 
 //endregion right_button
@@ -905,18 +847,8 @@ static VALUE ruby_mouse_right_up(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645610.aspx Windows Dev Center - WM_MBUTTONDOWN function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645611.aspx Windows Dev Center - WM_MBUTTONUP function
  */
-static VALUE ruby_mouse_middle_click(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_MIDDLE;
-	PostMessage(cHWnd, WM_MBUTTONDOWN, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	if (cData->middleClick && cData->middleClick + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->flats &= ~FLAT_MOUSE_MIDDLE;
-	PostMessage(cHWnd, WM_MBUTTONUP, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->middleClick = cCurrentTime;
-	return self;
+static VALUE ruby_mouse_middle_click(VARIABLE_ARGUMENTS_C) {
+	RUBY___MOUSE_CLICK(FLAG_MOUSE_MIDDLE, WM_MBUTTON, , middle)
 }
 
 /*
@@ -928,15 +860,7 @@ static VALUE ruby_mouse_middle_click(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645610.aspx Windows Dev Center - WM_MBUTTONDOWN function
  */
 static VALUE ruby_mouse_middle_down(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_MIDDLE;
-	PostMessage(cHWnd, WM_MBUTTONDOWN, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	if (cData->middleClick && cData->middleClick + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	cData->middleClick = cCurrentTime;
-	return self;
+	RUBY___MOUSE_DOWN(FLAG_MOUSE_MIDDLE, WM_MBUTTON, , middle)
 }
 
 /*
@@ -947,11 +871,7 @@ static VALUE ruby_mouse_middle_down(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645611.aspx Windows Dev Center - WM_MBUTTONUP function
  */
 static VALUE ruby_mouse_middle_up(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->flats &= ~FLAT_MOUSE_MIDDLE;
-	PostMessage(cHWnd, WM_MBUTTONUP, createMouseMessageWParam(cData), createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_UP(FLAG_MOUSE_MIDDLE, WM_MBUTTON,)
 }
 
 //endregion middle_button
@@ -967,20 +887,8 @@ static VALUE ruby_mouse_middle_up(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646245.aspx Windows Dev Center - WM_XBUTTONDOWN function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646246.aspx Windows Dev Center - WM_XBUTTONUP function
  */
-static VALUE ruby_mouse_x1_click(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_X1;
-	PostMessage(cHWnd, WM_XBUTTONDOWN, createMouseMessageWParam(cData) | XBUTTON1 << 16,
-	            createMouseMessageLParam(cData));
-	if (cData->x1Click && cData->x1Click + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData) | XBUTTON1 << 16,
-		            createMouseMessageLParam(cData));
-	cData->flats &= ~FLAT_MOUSE_X1;
-	PostMessage(cHWnd, WM_XBUTTONUP, createMouseMessageWParam(cData) | XBUTTON1 << 16, createMouseMessageLParam(cData));
-	cData->x1Click = cCurrentTime;
-	return self;
+static VALUE ruby_mouse_x1_click(VARIABLE_ARGUMENTS_C) {
+	RUBY___MOUSE_CLICK(FLAG_MOUSE_X1, WM_XBUTTON, | XBUTTON1 << 16, x1)
 }
 
 /*
@@ -992,17 +900,7 @@ static VALUE ruby_mouse_x1_click(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646245.aspx Windows Dev Center - WM_XBUTTONDOWN function
  */
 static VALUE ruby_mouse_x1_down(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_X1;
-	PostMessage(cHWnd, WM_XBUTTONDOWN, createMouseMessageWParam(cData) | XBUTTON1 << 16,
-	            createMouseMessageLParam(cData));
-	if (cData->x1Click && cData->x1Click + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData) | XBUTTON1 << 16,
-		            createMouseMessageLParam(cData));
-	cData->x1Click = cCurrentTime;
-	return self;
+	RUBY___MOUSE_DOWN(FLAG_MOUSE_X1, WM_XBUTTON, | XBUTTON1 << 16, x1)
 }
 
 /*
@@ -1013,11 +911,7 @@ static VALUE ruby_mouse_x1_down(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646246.aspx Windows Dev Center - WM_XBUTTONUP function
  */
 static VALUE ruby_mouse_x1_up(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->flats &= ~FLAT_MOUSE_X1;
-	PostMessage(cHWnd, WM_XBUTTONUP, createMouseMessageWParam(cData) | XBUTTON1 << 16, createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_UP(FLAG_MOUSE_X1, WM_XBUTTON, | XBUTTON1 << 16)
 }
 
 /*
@@ -1029,20 +923,8 @@ static VALUE ruby_mouse_x1_up(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646245.aspx Windows Dev Center - WM_XBUTTONDOWN function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646246.aspx Windows Dev Center - WM_XBUTTONUP function
  */
-static VALUE ruby_mouse_x2_click(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_X2;
-	PostMessage(cHWnd, WM_XBUTTONDOWN, createMouseMessageWParam(cData) | XBUTTON2 << 16,
-	            createMouseMessageLParam(cData));
-	if (cData->x2Click && cData->x2Click + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData) | XBUTTON2 << 16,
-		            createMouseMessageLParam(cData));
-	cData->flats &= ~FLAT_MOUSE_X2;
-	PostMessage(cHWnd, WM_XBUTTONUP, createMouseMessageWParam(cData) | XBUTTON2 << 16, createMouseMessageLParam(cData));
-	cData->x2Click = cCurrentTime;
-	return self;
+static VALUE ruby_mouse_x2_click(VARIABLE_ARGUMENTS_C) {
+	RUBY___MOUSE_CLICK(FLAG_MOUSE_X2, WM_XBUTTON, | XBUTTON2 << 16, x2)
 }
 
 /*
@@ -1054,17 +936,7 @@ static VALUE ruby_mouse_x2_click(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646245.aspx Windows Dev Center - WM_XBUTTONDOWN function
  */
 static VALUE ruby_mouse_x2_down(VALUE self) {
-	SID_WINDOW_DATA *cData       = GET_SELF_DATA_OBJECT();
-	ULONGLONG       cCurrentTime = getSystemTimeIdentifier();
-	HWND            cHWnd        = ruby___window_get_handle_code(self);
-	cData->flats |= FLAT_MOUSE_X2;
-	PostMessage(cHWnd, WM_XBUTTONDOWN, createMouseMessageWParam(cData) | XBUTTON2 << 16,
-	            createMouseMessageLParam(cData));
-	if (cData->x2Click && cData->x2Click + GetDoubleClickTime() <= cCurrentTime)
-		PostMessage(cHWnd, WM_LBUTTONDBLCLK, createMouseMessageWParam(cData) | XBUTTON2 << 16,
-		            createMouseMessageLParam(cData));
-	cData->x2Click = cCurrentTime;
-	return self;
+	RUBY___MOUSE_DOWN(FLAG_MOUSE_X2, WM_XBUTTON, | XBUTTON2 << 16, x2)
 }
 
 /*
@@ -1075,17 +947,33 @@ static VALUE ruby_mouse_x2_down(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms646246.aspx Windows Dev Center - WM_XBUTTONUP function
  */
 static VALUE ruby_mouse_x2_up(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	cData->flats &= ~FLAT_MOUSE_X2;
-	PostMessage(cHWnd, WM_XBUTTONUP, createMouseMessageWParam(cData) | XBUTTON2 << 16, createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_UP(FLAG_MOUSE_X2, WM_XBUTTON, | XBUTTON2 << 16)
 }
 
 //endregion x_button
 
 //region wheel
 
+#define RUBY___MOUSE_SCROLL_NEGATIVE_DIRECTION(oppositeDirection) \
+        VALUE times = cCount ? rb_funcall(cArguments[0], rb_intern_const("-@"), 0) : INT2FIX(-1);\
+        return oppositeDirection(1, &times, self);
+
+#define RUBY___MOUSE_SCROLL_POSITIVE_DIRECTION(directionPrefix) \
+        VALUE times;\
+        SHORT cTimes;\
+        SCAN_ARGUMENTS("01", &times);\
+        if (times == Qnil)\
+            cTimes = 1;\
+        else\
+            cTimes = NUM2SHORT(times);\
+        SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();\
+        HWND            cHWnd  = ruby___window_get_handle_code(self);\
+        PostMessage(cHWnd, WM_MOUSE ## directionPrefix ## WHEEL, createMouseMessageWParam(cData) | WHEEL_DELTA * cTimes << 16, createMouseMessageLParam(cData));\
+        return self;\
+
+
+static VALUE ruby_mouse_scroll_wheel_forward(VARIABLE_ARGUMENTS_C);
+
 /*
  * Simulate wheeling the scroll backward in the window.
  * @return [SpecialInputDevice::Window] self
@@ -1093,12 +981,8 @@ static VALUE ruby_mouse_x2_up(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645617.aspx Windows Dev Center - WM_MOUSEWHEEL function
  */
-static VALUE ruby_mouse_scroll_wheel_backward(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	PostMessage(cHWnd, WM_MOUSEWHEEL, createMouseMessageWParam(cData) | -WHEEL_DELTA << 16,
-	            createMouseMessageLParam(cData));
-	return self;
+static VALUE ruby_mouse_scroll_wheel_backward(VARIABLE_ARGUMENTS_C) {
+	RUBY___MOUSE_SCROLL_NEGATIVE_DIRECTION(ruby_mouse_scroll_wheel_forward)
 }
 
 /*
@@ -1108,14 +992,12 @@ static VALUE ruby_mouse_scroll_wheel_backward(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645617.aspx Windows Dev Center - WM_MOUSEWHEEL function
  */
-static VALUE ruby_mouse_scroll_wheel_forward(VALUE self) {
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd  = ruby___window_get_handle_code(self);
-	PostMessage(cHWnd, WM_MOUSEWHEEL, createMouseMessageWParam(cData) | WHEEL_DELTA << 16,
-	            createMouseMessageLParam(cData));
-	return self;
+static VALUE ruby_mouse_scroll_wheel_forward(VARIABLE_ARGUMENTS_C) {
+	RUBY___MOUSE_SCROLL_POSITIVE_DIRECTION()
 }
 
+static VALUE ruby_mouse_scroll_wheel_to_right(VARIABLE_ARGUMENTS_C);
+
 /*
  * Simulate wheeling the scroll to left hand side in the window.
  * @return [SpecialInputDevice::Window] self
@@ -1123,12 +1005,9 @@ static VALUE ruby_mouse_scroll_wheel_forward(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645614.aspx Windows Dev Center - WM_MOUSEHWHEEL function
  */
-static VALUE ruby_mouse_scroll_wheel_to_left(VALUE self) {
+static VALUE ruby_mouse_scroll_wheel_to_left(VARIABLE_ARGUMENTS_C) {
 #ifdef MOUSEEVENTF_HWHEEL
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd = getHandleCode(self);
-	PostMessage(cHWnd, WM_MOUSEHWHEEL, createMouseMessageWParam(cData) | -WHEEL_DELTA << 16, createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_SCROLL_NEGATIVE_DIRECTION(ruby_mouse_scroll_wheel_to_right)
 #else
 	rb_raise(rb_eRuntimeError, "Error! Your system does not support horizontal wheel.");
 #endif
@@ -1141,12 +1020,9 @@ static VALUE ruby_mouse_scroll_wheel_to_left(VALUE self) {
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms644944.aspx Windows Dev Center - PostMessage function
  * @see https://msdn.microsoft.com/en-us/library/windows/desktop/ms645614.aspx Windows Dev Center - WM_MOUSEHWHEEL function
  */
-static VALUE ruby_mouse_scroll_wheel_to_right(VALUE self) {
+static VALUE ruby_mouse_scroll_wheel_to_right(VARIABLE_ARGUMENTS_C) {
 #ifdef MOUSEEVENTF_HWHEEL
-	SID_WINDOW_DATA *cData = GET_SELF_DATA_OBJECT();
-	HWND            cHWnd = getHandleCode(self);
-	PostMessage(cHWnd, WM_MOUSEHWHEEL, createMouseMessageWParam(cData) | WHEEL_DELTA << 16, createMouseMessageLParam(cData));
-	return self;
+	RUBY___MOUSE_SCROLL_POSITIVE_DIRECTION(H)
 #else
 	rb_raise(rb_eRuntimeError, "Error! Your system does not support horizontal wheel.");
 #endif
@@ -1205,28 +1081,28 @@ VOID Init_window() {
 	rb_define_method(specialInputDevice_window, "color_at", ruby_color_at, 2);
 	rb_define_method(specialInputDevice_window, "capture", ruby_capture, -1);
 	rb_define_method(specialInputDevice_window, "find_image", ruby_find_image, -1);
-	rb_define_method(specialInputDevice_window, "key_hold", ruby_key_hold, 1);
-	rb_define_method(specialInputDevice_window, "key_release", ruby_key_release, 1);
-	rb_define_method(specialInputDevice_window, "key_press", ruby_key_press, 1);
+	rb_define_method(specialInputDevice_window, "key_hold", ruby_key_hold, -1);
+	rb_define_method(specialInputDevice_window, "key_release", ruby_key_release, -1);
+	rb_define_method(specialInputDevice_window, "key_press", ruby_key_press, -1);
 	rb_define_method(specialInputDevice_window, "mouse_move_relatively", ruby_mouse_move_relatively, 2);
 	rb_define_method(specialInputDevice_window, "mouse_move_to", ruby_mouse_move_to, 2);
-	rb_define_method(specialInputDevice_window, "mouse_left_click", ruby_mouse_left_click, 0);
+	rb_define_method(specialInputDevice_window, "mouse_left_click", ruby_mouse_left_click, -1);
 	rb_define_method(specialInputDevice_window, "mouse_left_down", ruby_mouse_left_down, 0);
 	rb_define_method(specialInputDevice_window, "mouse_left_up", ruby_mouse_left_up, 0);
-	rb_define_method(specialInputDevice_window, "mouse_right_click", ruby_mouse_right_click, 0);
+	rb_define_method(specialInputDevice_window, "mouse_right_click", ruby_mouse_right_click, -1);
 	rb_define_method(specialInputDevice_window, "mouse_right_down", ruby_mouse_right_down, 0);
 	rb_define_method(specialInputDevice_window, "mouse_right_up", ruby_mouse_right_up, 0);
-	rb_define_method(specialInputDevice_window, "mouse_middle_click", ruby_mouse_middle_click, 0);
+	rb_define_method(specialInputDevice_window, "mouse_middle_click", ruby_mouse_middle_click, -1);
 	rb_define_method(specialInputDevice_window, "mouse_middle_down", ruby_mouse_middle_down, 0);
 	rb_define_method(specialInputDevice_window, "mouse_middle_up", ruby_mouse_middle_up, 0);
-	rb_define_method(specialInputDevice_window, "mouse_x1_click", ruby_mouse_x1_click, 0);
+	rb_define_method(specialInputDevice_window, "mouse_x1_click", ruby_mouse_x1_click, -1);
 	rb_define_method(specialInputDevice_window, "mouse_x1_down", ruby_mouse_x1_down, 0);
 	rb_define_method(specialInputDevice_window, "mouse_x1_up", ruby_mouse_x1_up, 0);
-	rb_define_method(specialInputDevice_window, "mouse_x2_click", ruby_mouse_x2_click, 0);
+	rb_define_method(specialInputDevice_window, "mouse_x2_click", ruby_mouse_x2_click, -1);
 	rb_define_method(specialInputDevice_window, "mouse_x2_down", ruby_mouse_x2_down, 0);
 	rb_define_method(specialInputDevice_window, "mouse_x2_up", ruby_mouse_x2_up, 0);
-	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_backward", ruby_mouse_scroll_wheel_backward, 0);
-	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_forward", ruby_mouse_scroll_wheel_forward, 0);
-	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_to_left", ruby_mouse_scroll_wheel_to_left, 0);
-	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_to_right", ruby_mouse_scroll_wheel_to_right, 0);
+	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_backward", ruby_mouse_scroll_wheel_backward, -1);
+	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_forward", ruby_mouse_scroll_wheel_forward, -1);
+	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_to_left", ruby_mouse_scroll_wheel_to_left, -1);
+	rb_define_method(specialInputDevice_window, "mouse_scroll_wheel_to_right", ruby_mouse_scroll_wheel_to_right, -1);
 }