X11: The start of implementing a Double Click event.

2 files changed, 10 insertions, 1 deletions

diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas
index c2b60c06..51e98178 100644
--- a/src/corelib/gfx_widget.pas
+++ b/src/corelib/gfx_widget.pas
@@ -340,7 +340,8 @@ procedure TfpgWidget.MsgDoubleClick(var msg: TfpgMessageRec);
 begin
   // If we don't generate a mouse down, we get a rapid click
   // delay under Windows.
-//  HandleLMouseDown(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate);
+  HandleLMouseDown(msg.Params.mouse.x, msg.Params.mouse.y, msg.Params.mouse.shiftstate);
+
   HandleDoubleClick(msg.Params.mouse.x, msg.Params.mouse.y,
       msg.Params.mouse.Buttons, msg.Params.mouse.shiftstate);
   if Assigned(FOnDoubleClick) then
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas
index 63cce392..250ebf7f 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/gfx_x11.pas
@@ -206,6 +206,14 @@ uses
 var
   xapplication: TfpgApplication;
 
+{ Double click support }
+const
+  DOUBLECLICK_MS = 200; // the max time between left-clicks for doubleclick
+var
+  LastClickWindow: TfpgWinHandle;
+  LastWinClickTime: longword;
+
+
 //const
   // map X11 event types to custom event types
 //  MSG_SCROLL      = 65;