workbench/libs/muimaster/classes/crawling.c

   1 /*
   2     Copyright © 2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #define MUIMASTER_YES_INLINE_STDARG
   7
   8 #include <exec/memory.h>
   9 #include <clib/alib_protos.h>
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/utility.h>
  13 #include <proto/intuition.h>
  14 #include <proto/muimaster.h>
  15
  16 #include <string.h>
  17 #include <stdio.h>
  18
  19 #include "mui.h"
  20 #include "muimaster_intern.h"
  21 #include "support.h"
  22 #include "support_classes.h"
  23 #include "debug.h"
  24 #include "crawling_private.h"
  25
  26 extern struct Library *MUIMasterBase;
  27
  28 IPTR Crawling__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
  29 {
  30     obj = (Object *) DoSuperNewTags
  31         (cl, obj, NULL, TAG_MORE, (IPTR) msg->ops_AttrList);
  32
  33     if (obj)
  34     {
  35         struct Crawling_DATA *data = INST_DATA(cl, obj);
  36
  37         data->ehn.ehn_Events = 0;
  38         data->ehn.ehn_Priority = 0;
  39         data->ehn.ehn_Flags = 0;
  40         data->ehn.ehn_Object = obj;
  41         data->ehn.ehn_Class = cl;
  42
  43     }
  44
  45     return (IPTR) obj;
  46 }
  47
  48 IPTR Crawling__MUIM_Setup(struct IClass *cl, Object *obj,
  49     struct MUIP_Setup *msg)
  50 {
  51     struct Crawling_DATA *data = INST_DATA(cl, obj);
  52     IPTR retval;
  53
  54     retval = DoSuperMethodA(cl, obj, (Msg) msg);
  55
  56     data->ticker = CRAWLING_INITIAL_DELAY;
  57
  58     return retval;
  59 }
  60
  61 IPTR Crawling__MUIM_Show(struct IClass *cl, Object *obj,
  62     struct MUIP_Show *msg)
  63 {
  64     struct Crawling_DATA *data = INST_DATA(cl, obj);
  65     IPTR retval;
  66
  67     retval = DoSuperMethodA(cl, obj, (Msg) msg);
  68
  69     data->ehn.ehn_Events |= IDCMP_INTUITICKS;
  70     DoMethod(_win(obj), MUIM_Window_AddEventHandler, (IPTR) & data->ehn);
  71
  72     return retval;
  73 }
  74
  75 IPTR Crawling__MUIM_Hide(struct IClass *cl, Object *obj,
  76     struct MUIP_Hide *msg)
  77 {
  78     struct Crawling_DATA *data = INST_DATA(cl, obj);
  79
  80     DoMethod(_win(obj), MUIM_Window_RemEventHandler, (IPTR) & data->ehn);
  81     data->ehn.ehn_Events &= ~IDCMP_INTUITICKS;
  82
  83     return DoSuperMethodA(cl, obj, (Msg) msg);
  84
  85 }
  86
  87 IPTR Crawling__MUIM_HandleEvent(struct IClass *cl, Object *obj,
  88     struct MUIP_HandleEvent *msg)
  89 {
  90     if (msg->imsg)
  91     {
  92         if (msg->imsg->Class == IDCMP_INTUITICKS)
  93         {
  94             struct Crawling_DATA *data = INST_DATA(cl, obj);
  95
  96             if (data->ticker)
  97                 data->ticker--;
  98
  99             if (data->ticker == 0)
 100             {
 101                 IPTR virty = 0, virth = 0;
 102
 103                 get(obj, MUIA_Virtgroup_Top, &virty);
 104                 get(obj, MUIA_Virtgroup_Height, &virth);
 105
 106                 if (virth >= _mheight(obj))
 107                 {
 108                     virty++;
 109                     if (virty + _mheight(obj) > virth)
 110                         virty = 0;
 111
 112                     set(obj, MUIA_Virtgroup_Top, virty);
 113                 }
 114             }
 115         }
 116     }
 117
 118     return 0;
 119 }
 120
 121 #if ZUNE_BUILTIN_CRAWLING
 122 BOOPSI_DISPATCHER(IPTR, Crawling_Dispatcher, cl, obj, msg)
 123 {
 124     switch (msg->MethodID)
 125     {
 126     case OM_NEW:
 127         return Crawling__OM_NEW(cl, obj, (struct opSet *)msg);
 128     case MUIM_Setup:
 129         return Crawling__MUIM_Setup(cl, obj, (APTR) msg);
 130     case MUIM_Show:
 131         return Crawling__MUIM_Show(cl, obj, (APTR) msg);
 132     case MUIM_Hide:
 133         return Crawling__MUIM_Hide(cl, obj, (APTR) msg);
 134     case MUIM_HandleEvent:
 135         return Crawling__MUIM_HandleEvent(cl, obj, (APTR) msg);
 136     default:
 137         return DoSuperMethodA(cl, obj, msg);
 138     }
 139 }
 140 BOOPSI_DISPATCHER_END
 141
 142 const struct __MUIBuiltinClass _MUI_Crawling_desc =
 143 {
 144     MUIC_Crawling,
 145     MUIC_Virtgroup,
 146     sizeof(struct Crawling_DATA),
 147     (void *) Crawling_Dispatcher
 148 };
 149 #endif /* ZUNE_BUILTIN_CRAWLING */