vpdf/logger.c

   1 /// System includes
   2 #define AROS_ALMOST_COMPATIBLE
   3 #include <proto/muimaster.h>
   4 #include <libraries/mui.h>
   5
   6 #include <libraries/asl.h>
   7 #include <workbench/workbench.h>
   8
   9 #include <proto/exec.h>
  10 #include <intuition/intuition.h>
  11 #include <graphics/gfx.h>
  12 #include <exec/libraries.h>
  13 #include <proto/graphics.h>
  14 #include <proto/intuition.h>
  15 #include <proto/icon.h>
  16 #include <dos/dos.h>
  17 #include <proto/dos.h>
  18
  19 #include <stdlib.h>
  20 #include <stdio.h>
  21 #include <string.h>
  22 #include <math.h>
  23 #include <memory.h>
  24
  25 #include <proto/alib.h>
  26 #include <proto/utility.h>
  27
  28 #include <proto/datatypes.h>
  29 #include <proto/dtclass.h>
  30 #include <datatypes/pictureclass.h>
  31 #include <devices/rawkeycodes.h>
  32
  33 #include <libraries/gadtools.h>
  34
  35 #if defined(__MORPHOS__)
  36 #include <emul/emulregs.h>
  37 #include <emul/emulinterface.h>
  38 #endif
  39 ////
  40
  41 #include <private/vapor/vapor.h>
  42 #include "util.h"
  43 #include "system/functions.h"
  44 #include "logger.h"
  45
  46 struct Data
  47 {
  48         Object *list;
  49 };
  50
  51 DEFNEW
  52 {
  53         Object *list;
  54
  55         obj = (Object *) DoSuperNew(cl, obj,
  56                                                 Child, list = ListObject,
  57                                                         MUIA_Frame, MUIV_Frame_ReadList,
  58                                                         MUIA_List_ConstructHook, MUIV_List_ConstructHook_String,
  59                                                         MUIA_List_DestructHook, MUIV_List_DestructHook_String,
  60                                                         End,
  61                                                 TAG_MORE, INITTAGS);
  62
  63         if (obj != NULL)
  64         {
  65                 GETDATA;
  66                 memset(data, 0, sizeof(struct Data));
  67                 data->list = list;
  68         }
  69
  70         return (IPTR)obj;
  71 }
  72
  73 DEFMMETHOD(Logger_LogMessage)
  74 {
  75         GETDATA;
  76         DoMethod(data->list, MUIM_List_InsertSingle, msg->message, MUIV_List_Insert_Bottom);
  77         return 0;
  78 }
  79
  80 BEGINMTABLE
  81         DECNEW
  82         DECMMETHOD(Logger_LogMessage)
  83 ENDMTABLE
  84
  85 DECSUBCLASS_NC(MUIC_Group, LoggerClass)