workbench/libs/muimaster/classes/dtpic.c

   1 /*
   2     Copyright © 2002-2003, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 /* Dtpic.mui. Source based on the one from MUIUndoc */
   7
   8 #define MUIMASTER_YES_INLINE_STDARG
   9
  10 #include <stdio.h>
  11 #include <stdlib.h>
  12
  13 #include <graphics/gfx.h>
  14 #include <graphics/view.h>
  15 #include <clib/alib_protos.h>
  16
  17 #include <datatypes/datatypesclass.h>
  18 #include <datatypes/pictureclass.h>
  19
  20 #include <proto/exec.h>
  21 #include <proto/graphics.h>
  22 #include <proto/utility.h>
  23 #include <proto/intuition.h>
  24 #include <proto/muimaster.h>
  25 #include <proto/datatypes.h>
  26
  27 #include <string.h>
  28
  29 /*  #define MYDEBUG 1 */
  30 #include "debug.h"
  31
  32 #include "mui.h"
  33 #include "muimaster_intern.h"
  34 #include "support.h"
  35 #include "support_classes.h"
  36 #include "dtpic_private.h"
  37
  38 extern struct Library *MUIMasterBase;
  39
  40 #ifdef DataTypesBase
  41 #undef DataTypesBase
  42 #endif
  43
  44 #define DataTypesBase data->datatypesbase
  45
  46 static void killdto(struct Dtpic_DATA *data)
  47 {
  48     data->bm = NULL;
  49     data->bmhd = NULL;
  50
  51     if (data->dto)
  52     {
  53         DisposeDTObject(data->dto);
  54         data->dto = NULL;
  55     }
  56
  57     if (data->datatypesbase)
  58     {
  59         CloseLibrary(data->datatypesbase);
  60     }
  61
  62 };
  63
  64 IPTR Dtpic__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
  65 {
  66     struct Dtpic_DATA *data;
  67
  68     obj = (Object *)DoSuperMethodA(cl, obj, (Msg)msg);
  69     if (obj)
  70     {
  71         data = INST_DATA(cl, obj);
  72
  73         data->name = (STRPTR)GetTagData(MUIA_Dtpic_Name, 0, msg->ops_AttrList);
  74
  75         set(obj, MUIA_FillArea, FALSE);
  76     }
  77
  78     return (IPTR)obj;
  79 }
  80
  81 IPTR Dtpic__MUIM_Setup(struct IClass *cl, Object *obj, struct MUIP_Setup *msg)
  82 {
  83     struct Dtpic_DATA *data = INST_DATA(cl, obj);
  84
  85     if (!DoSuperMethodA(cl, obj, (Msg)msg)) return FALSE;
  86
  87     if (data->name)
  88     {
  89         if ((data->datatypesbase = OpenLibrary("datatypes.library", 39)))
  90         {
  91             /* Prevent DOS Requesters from showing up */
  92
  93             struct Process *me = (struct Process *)FindTask(0);
  94             APTR            oldwinptr = me->pr_WindowPtr;
  95
  96             me->pr_WindowPtr = (APTR)-1;
  97
  98             data->dto = NewDTObject(data->name, DTA_GroupID, GID_PICTURE,
  99                                                 OBP_Precision, PRECISION_IMAGE,
 100                                                 PDTA_Screen, _screen(obj),
 101                                                 PDTA_FreeSourceBitMap, TRUE,
 102                                                 PDTA_DestMode, PMODE_V43,
 103                                                 PDTA_UseFriendBitMap, TRUE,
 104                                                 TAG_DONE);
 105             me->pr_WindowPtr = oldwinptr;
 106
 107             if (data->dto)
 108             {
 109                 struct FrameInfo fri = {0};
 110
 111                 DoMethod(data->dto, DTM_FRAMEBOX, 0, &fri, &fri, sizeof(struct FrameInfo), 0);
 112
 113                 if (fri.fri_Dimensions.Depth > 0)
 114                 {
 115                     if (DoMethod(data->dto, DTM_PROCLAYOUT, 0, 1))
 116                     {
 117                         get(data->dto, PDTA_BitMapHeader, &data->bmhd);
 118
 119                         if (data->bmhd)
 120                         {
 121                             GetDTAttrs(data->dto, PDTA_DestBitMap, &data->bm, TAG_DONE);
 122
 123                             if (!data->bm)
 124                             {
 125                                 GetDTAttrs(data->dto, PDTA_BitMap, &data->bm, TAG_DONE);
 126                             }
 127
 128                             if (data->bm) return TRUE;
 129
 130                         } /* if (data->bmhd) */
 131
 132                     } /* if (DoMethod(data->dto, DTM_PROCLAYOUT, 0, 1)) */
 133
 134                 } /* if (fri.fri_Dimensions.Depth > 0) */
 135
 136             } /* if (data->dto) */
 137
 138         } /* if ((data->datatypesbase = OpenLibrary("datatypes.library", 39))) */
 139
 140     } /* if (data->name) */
 141
 142     killdto(data);
 143
 144     return TRUE;
 145 }
 146
 147 IPTR Dtpic__MUIM_Cleanup(struct IClass *cl, Object *obj, struct MUIP_Cleanup *msg)
 148 {
 149     struct Dtpic_DATA *data = INST_DATA(cl, obj);
 150
 151     killdto(data);
 152
 153     return DoSuperMethodA(cl,obj,(Msg)msg);
 154 }
 155
 156 IPTR Dtpic__MUIM_AskMinMax(struct IClass *cl, Object *obj, struct MUIP_AskMinMax *msg)
 157 {
 158     struct Dtpic_DATA *data = INST_DATA(cl, obj);
 159     IPTR               retval;
 160
 161     retval = DoSuperMethodA(cl, obj, (Msg) msg);
 162
 163     if (data->bm)
 164     {
 165         msg->MinMaxInfo->MinWidth  += data->bmhd->bmh_Width;
 166         msg->MinMaxInfo->MinHeight += data->bmhd->bmh_Height;
 167         msg->MinMaxInfo->DefWidth  += data->bmhd->bmh_Width;
 168         msg->MinMaxInfo->DefHeight += data->bmhd->bmh_Height;
 169         msg->MinMaxInfo->MaxWidth  += data->bmhd->bmh_Width;
 170         msg->MinMaxInfo->MaxHeight += data->bmhd->bmh_Height;
 171     }
 172
 173     return retval;
 174 }
 175
 176 IPTR Dtpic__MUIM_Draw(struct IClass *cl, Object *obj, struct MUIP_Draw *msg)
 177 {
 178     struct Dtpic_DATA *data = INST_DATA(cl, obj);
 179
 180     DoSuperMethodA(cl, obj, (Msg)msg);
 181
 182     if ((msg->flags & MADF_DRAWOBJECT) && data->bm)
 183     {
 184         BltBitMapRastPort(data->bm, 0, 0, _rp(obj), _mleft(obj), _mtop(obj), _mwidth(obj), _mheight(obj), 192);
 185     }
 186
 187     return 0;
 188 }
 189
 190 #if ZUNE_BUILTIN_DTPIC
 191 BOOPSI_DISPATCHER(IPTR, Dtpic_Dispatcher, cl, obj, msg)
 192 {
 193     switch (msg->MethodID)
 194     {
 195         case OM_NEW:         return Dtpic__OM_NEW(cl, obj, (struct opSet *)msg);
 196         case MUIM_Setup:     return Dtpic__MUIM_Setup(cl, obj, (struct MUIP_Setup *)msg);
 197         case MUIM_Cleanup:   return Dtpic__MUIM_Cleanup(cl, obj, (struct MUIP_Clean *)msg);
 198         case MUIM_AskMinMax: return Dtpic__MUIM_AskMinMax(cl, obj, (struct MUIP_AskMinMax *)msg);
 199         case MUIM_Draw:      return Dtpic__MUIM_Draw(cl, obj, (struct MUIP_Draw *)msg);
 200         default:             return DoSuperMethodA(cl, obj, msg);
 201     }
 202 }
 203 BOOPSI_DISPATCHER_END
 204
 205 const struct __MUIBuiltinClass _MUI_Dtpic_desc =
 206 {
 207     MUIC_Dtpic,
 208     MUIC_Area,
 209     sizeof(struct Dtpic_DATA),
 210     (void*)Dtpic_Dispatcher
 211 };
 212 #endif /* ZUNE_BUILTIN_DTPIC */