workbench/libs/asl/arrowclass.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8
   9 #include <proto/alib.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/utility.h>
  13 #include <proto/intuition.h>
  14 #include <proto/graphics.h>
  15 #include <proto/cybergraphics.h>
  16
  17 #include <exec/memory.h>
  18 #include <intuition/screens.h>
  19 #include <intuition/icclass.h>
  20 #include <intuition/cghooks.h>
  21 #include <intuition/imageclass.h>
  22 #include <intuition/gadgetclass.h>
  23 #include <graphics/gfx.h>
  24 #include <cybergraphx/cybergraphics.h>
  25
  26 #include <string.h>
  27
  28 #include "asl_intern.h"
  29 #include "layout.h"
  30
  31 #define SDEBUG 0
  32 #define DEBUG 0
  33
  34 #include <aros/debug.h>
  35
  36 #define CLASS_ASLBASE ((struct AslBase_intern *)cl->cl_UserData)
  37 #define HOOK_ASLBASE  ((struct AslBase_intern *)hook->h_Data)
  38
  39 #define AslBase CLASS_ASLBASE
  40
  41 /********************** ASL ARROW CLASS **************************************************/
  42
  43 IPTR AslArrow__OM_NOTIFY(Class * cl, Object * o, struct opUpdate *msg)
  44 {
  45     struct AslArrowData *data;
  46     IPTR retval = 0;
  47
  48     data = INST_DATA(cl, o);
  49
  50     if (!data->scrollticker || (data->scrollticker == SCROLLTICKER))
  51     {
  52         retval = DoSuperMethodA(cl, o, (Msg)msg);
  53     }
  54
  55     if (data->scrollticker) data->scrollticker--;
  56
  57     return retval;
  58 }
  59
  60 /***********************************************************************************/
  61
  62 IPTR AslArrow__GM_GOACTIVE(Class * cl, Object * o, struct gpInput *msg)
  63 {
  64     struct AslArrowData *data;
  65     IPTR retval;
  66
  67     data = INST_DATA(cl, o);
  68     data->scrollticker = SCROLLTICKER;
  69
  70     retval = DoSuperMethodA(cl, o, (Msg)msg);
  71
  72     return retval;
  73 }
  74
  75 /***********************************************************************************/