workbench/libs/asl/arrowclass.c

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