rom/intuition/doubleclick.c

   1 /*
   2     Copyright © 1995-2003, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <clib/macros.h>
   8 #include "intuition_intern.h"
   9
  10 #undef DoubleClick
  11 #define DEBUG_DOUBLECLICK(x)    ;
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16 #include <intuition/intuition.h>
  17 #include <proto/intuition.h>
  18
  19 AROS_LH4(BOOL, DoubleClick,
  20
  21          /*  SYNOPSIS */
  22          AROS_LHA(ULONG, sSeconds, D0),
  23          AROS_LHA(ULONG, sMicros, D1),
  24          AROS_LHA(ULONG, cSeconds, D2),
  25          AROS_LHA(ULONG, cMicros, D3),
  26
  27          /*  LOCATION */
  28          struct IntuitionBase *, IntuitionBase, 17, Intuition)
  29
  30 /*  FUNCTION
  31     Check if two times are within the doubleclick intervall.
  32
  33     INPUTS
  34     sSeconds, sMicros - Seconds and microseconds of the first event.
  35     cSeconds, cMicros - Seconds and microseconds of the second event.
  36
  37     RESULT
  38     TRUE if the times are within the doubleclick intervall, FALSE
  39     otherwise.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     INTERNALS
  50
  51     HISTORY
  52
  53 *****************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  57
  58     BOOL ret = FALSE;
  59
  60     DEBUG_DOUBLECLICK(dprintf("DoubleClick: t1 %lu/%lu t2 %lu/%lu\n",
  61                 cSeconds, cMicros, sSeconds, sMicros));
  62
  63     if (ABS(cSeconds - sSeconds) <= 4)
  64     {
  65         ULONG base;
  66
  67         base = MIN(cSeconds, sSeconds);
  68
  69         sMicros += 1000000 * (sSeconds - base);
  70         cMicros += 1000000 * (cSeconds - base);
  71
  72         base = ABS((LONG)(sMicros - cMicros));
  73
  74         ret = (base <= GetPrivIBase(IntuitionBase)->ActivePreferences->DoubleClick.tv_micro +
  75                 1000000 * GetPrivIBase(IntuitionBase)->ActivePreferences->DoubleClick.tv_secs);
  76     }
  77
  78     DEBUG_DOUBLECLICK(dprintf("DoubleClick: return %d\n", ret));
  79
  80     return ret;
  81     AROS_LIBFUNC_EXIT
  82 } /* DoubleClick */