vpdf/mcc/outlineview_class.c

   1
   2 /// System includes
   3 #define AROS_ALMOST_COMPATIBLE
   4 #include <proto/muimaster.h>
   5 #include <libraries/mui.h>
   6
   7 #include <libraries/asl.h>
   8 #include <workbench/workbench.h>
   9
  10 #include <proto/exec.h>
  11 #include <intuition/intuition.h>
  12 #include <graphics/gfx.h>
  13 #include <exec/libraries.h>
  14 #include <proto/graphics.h>
  15 #include <proto/intuition.h>
  16 #include <proto/icon.h>
  17 #include <dos/dos.h>
  18 #include <proto/dos.h>
  19
  20 #include <stdlib.h>
  21 #include <stdio.h>
  22 #include <string.h>
  23 #include <math.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 <mui/Listtree_mcc.h>
  43
  44 #include "util.h"
  45 #include "poppler.h"
  46 #include "pageview_class.h"
  47 #include "outlineview_class.h"
  48
  49 struct Data
  50 {
  51         void *doc;
  52         struct MinList *outlineitems;
  53 };
  54
  55 static void buildlist(Object *obj, struct MinList *outlineitems, APTR parentnode)
  56 {
  57         struct MinNode *n;
  58         ITERATELIST(n, outlineitems)
  59         {
  60                 APTR newparentnode = (APTR)DoMethod(obj, MUIM_Listtree_Insert,
  61                                 "foo",
  62                                 n,
  63                                 parentnode,
  64                                 MUIV_Listtree_Insert_PrevNode_Tail,
  65                                 outlineHasChildren(n) ? TNF_LIST : 0
  66                         );
  67
  68                 if (outlineHasChildren(n))
  69                         buildlist(obj, outlineGetChildren(n), newparentnode);
  70         }
  71 }
  72
  73 MUI_HOOK(outline_displayfunc, STRPTR *array, struct MUIS_Listtree_TreeNode *tn)
  74 {
  75         if (tn != NULL)
  76         {
  77                 struct MinNode *td = (struct MinNode*)tn->tn_User;
  78                 char *name = outlineGetTitle(td);
  79
  80                 array[ 0 ] = name != NULL ? name : "---";
  81
  82                 if ((ULONG)array[ -1 ] % 2)
  83                         array[-9] = (STRPTR)10;
  84         }
  85         else
  86         {
  87                 array[ 0 ] = "";
  88         }
  89
  90         return (0);
  91 }
  92
  93 DEFNEW
  94 {
  95         obj = DoSuperNew(cl, obj,
  96                         MUIA_Listtree_DisplayHook, &outline_displayfunc_hook,
  97                         MUIA_Frame, MUIV_Frame_InputList,
  98                         TAG_MORE, INITTAGS);
  99
 100         if (obj != NULL)
 101         {
 102                 GETDATA;
 103
 104                 memset(data, 0, sizeof(struct Data));
 105                 data->doc = (void*)GetTagData(MUIA_OutlineView_Document, NULL, INITTAGS);
 106
 107                 if (data->doc != NULL)
 108                 {
 109                         data->outlineitems = pdfGetOutlines(data->doc);
 110                         buildlist(obj, data->outlineitems, MUIV_Listtree_Insert_ListNode_Root);
 111                 }
 112                 else
 113                 {
 114                 }
 115
 116                 /* notifications */
 117
 118                 DoMethod(obj, MUIM_Notify, MUIA_Listtree_Active, MUIV_EveryTime, obj, 2, MUIM_OutlineView_NewEntrySelected, MUIV_TriggerValue);
 119
 120         }
 121
 122         return (ULONG)obj;
 123 }
 124
 125 DEFDISP
 126 {
 127         return DOSUPER;
 128 }
 129
 130 METHOD outlineviewNewEntrySelected(struct IClass *cl, Object *obj, struct MUIP_OutlineView_NewEntrySelected *msg)
 131 {
 132         GETDATA;
 133
 134         struct MUIS_Listtree_TreeNode *tn = msg->entry;
 135         struct MinNode *td = (struct MinNode*)tn->tn_User;
 136         int page = msg->entry > 0 ? outlineGetPage(td) : 0;
 137
 138         if (page != 0)
 139                 set(obj, MUIA_OutlineView_Page, page);
 140
 141         return 0;
 142 }
 143
 144 DEFGET
 145 {
 146         GETDATA;
 147
 148         switch (msg->opg_AttrID)
 149         {
 150                 case MUIA_OutlineView_Page:
 151                         return TRUE;
 152
 153                 case MUIA_OutlineView_IsEmpty:
 154                         *(ULONG*)msg->opg_Storage = data->outlineitems == NULL || ISLISTEMPTY(data->outlineitems);
 155                         return TRUE;
 156
 157         }
 158
 159         return(DOSUPER);
 160 }
 161
 162 BEGINMTABLE
 163         DECNEW
 164         DECDISP
 165         DECGET
 166         case MUIM_OutlineView_NewEntrySelected: return outlineviewNewEntrySelected(cl,obj,(APTR)msg);
 167 ENDMTABLE
 168
 169 DECSUBCLASS_NC(MUIC_Listtree, OutlineViewClass)
 170