add click count in gestures and win32

library/ui/gestures.factor

@@ -69,6 +69,7 @@ SYMBOL: hand-loc
 
 SYMBOL: hand-clicked
 SYMBOL: hand-click-loc
+SYMBOL: hand-click#
 
 SYMBOL: hand-buttons
 V{ } clone hand-buttons set-global

library/ui/windows/ui.factor

@@ -165,14 +165,35 @@ SYMBOL: hWnd
 : mouse-lparam ( lParam -- seq ) [ lo-word ] keep hi-word 2array ;
 : mouse-wheel ( lParam -- n ) mouse-lparam [ sgn neg ] map ;
 
+SYMBOL: last-button
+SYMBOL: last-time
+0 last-button set-global
+0 last-time set-global
+
+: update-click# ( button -- )
+    last-button get = [
+        global [ hand-click# inc ] bind
+    ] [
+        1 hand-click# set-global
+    ] if ;
+    
+: mouse-click ( button -- )
+    millis last-time get - GetDoubleClickTime < [
+        dup update-click#
+    ] [
+        1 hand-click# set-global
+    ] if
+    last-button set
+    millis last-time set ;
+
 : mouse-event>gesture ( uMsg -- button )
     key-modifiers swap
     {
-        { [ dup WM_LBUTTONDOWN = ] [ drop 1 <button-down> ] }
+        { [ dup WM_LBUTTONDOWN = ] [ drop 1 dup mouse-click <button-down> ] }
         { [ dup WM_LBUTTONUP = ] [ drop 1 <button-up> ] }
-        { [ dup WM_MBUTTONDOWN = ] [ drop 2 <button-down> ] }
+        { [ dup WM_MBUTTONDOWN = ] [ drop 2 dup mouse-click <button-down> ] }
         { [ dup WM_MBUTTONUP = ] [ drop 2 <button-up> ] }
-        { [ dup WM_RBUTTONDOWN = ] [ drop 3 <button-down> ] }
+        { [ dup WM_RBUTTONDOWN = ] [ drop 3 dup mouse-click <button-down> ] }
         { [ dup WM_RBUTTONUP = ] [ drop 3 <button-up> ] }
         { [ t ] [ "bad button" throw ] }
     } cond ;

library/windows/user32.factor

@@ -822,7 +822,7 @@ FUNCTION: HDC GetDCEx ( HWND hWnd, HRGN hrgnClip, DWORD flags ) ;
 ! FUNCTION: GetDlgItemInt
 ! FUNCTION: GetDlgItemTextA
 ! FUNCTION: GetDlgItemTextW
-! FUNCTION: GetDoubleClickTime
+FUNCTION: uint GetDoubleClickTime ( ) ;
 FUNCTION: HWND GetFocus ( ) ;
 ! FUNCTION: GetForegroundWindow
 ! FUNCTION: GetGuiResources