workbench/libs/muimaster/classes/popimage.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 <clib/alib_protos.h>
   9 #include <proto/exec.h>
  10 #include <proto/graphics.h>
  11 #include <proto/utility.h>
  12 #include <proto/intuition.h>
  13 #include <proto/muimaster.h>
  14
  15 /*  #define MYDEBUG 1 */
  16 #include "debug.h"
  17 #include "mui.h"
  18 #include "muimaster_intern.h"
  19 #include "support.h"
  20 #include "support_classes.h"
  21 #include "popimage_private.h"
  22
  23 extern struct Library *MUIMasterBase;
  24
  25 IPTR Popimage__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
  26 {
  27     struct Popimage_DATA *data;
  28     struct TagItem       *tag, *tags;
  29
  30     obj = (Object *) DoSuperNewTags
  31     (
  32         cl, obj, NULL,
  33
  34         ButtonFrame,
  35         InnerSpacing(4,4),
  36         MUIA_Background, MUII_ButtonBack,
  37         MUIA_InputMode,  MUIV_InputMode_RelVerify,
  38         MUIA_Draggable,  TRUE,
  39
  40         TAG_MORE, (IPTR) msg->ops_AttrList
  41     );
  42
  43     if (!obj) return FALSE;
  44     data = INST_DATA(cl, obj);
  45     data->wintitle = NULL;
  46     data->adjust_type = MUIV_Imageadjust_Type_All;
  47
  48     /* parse initial taglist */
  49     for (tags = msg->ops_AttrList; (tag = NextTagItem((const struct TagItem**)&tags)); )
  50     {
  51         switch (tag->ti_Tag)
  52         {
  53             case MUIA_Window_Title:
  54                 data->wintitle = (CONST_STRPTR)tag->ti_Data;
  55                 break;
  56
  57             case MUIA_Imageadjust_Type:
  58                 data->adjust_type = tag->ti_Data;
  59                 break;
  60         }
  61     }
  62
  63     DoMethod(obj, MUIM_Notify, MUIA_Pressed, FALSE, (IPTR)obj, 1,
  64              MUIM_Popimage_OpenWindow);
  65
  66     return (IPTR)obj;
  67 }
  68
  69 IPTR Popimage__OM_DISPOSE(struct IClass *cl, Object *obj, Msg msg)
  70 {
  71     struct Popimage_DATA *data = INST_DATA(cl, obj);
  72
  73     if (data->wnd)
  74     {
  75         D(bug("Popimage_Dispose(%p) : MUI_DisposeObject(%p)\n", obj, data->wnd));
  76         MUI_DisposeObject(data->wnd);
  77         data->wnd = NULL;
  78     }
  79     return DoSuperMethodA(cl,obj,(Msg)msg);
  80 }
  81
  82 IPTR Popimage__MUIM_Hide(struct IClass *cl, Object *obj, struct opGet *msg)
  83 {
  84 #if 0
  85     struct Popimage_DATA *data = INST_DATA(cl, obj);
  86     if (data->wnd)
  87     {
  88         D(bug("Popimage_Hide(%p) : closing window %p\n", obj, data->wnd));
  89         set(data->wnd,MUIA_Window_Open,FALSE);
  90         D(bug("Popimage_Hide(%p) : app REMMEMBER win (%p)\n", obj, data->wnd));
  91         DoMethod(_app(obj),OM_REMMEMBER,(IPTR)data->wnd);
  92         D(bug("Popimage_Hide(%p) : MUI_DisposeObject(%p)\n", obj, data->wnd));
  93         MUI_DisposeObject(data->wnd);
  94         data->wnd = NULL;
  95     }
  96 #endif
  97     return DoSuperMethodA(cl,obj,(Msg)msg);
  98 }
  99
 100 IPTR Popimage__MUIM_Popimage_OpenWindow(struct IClass *cl, Object *obj, Msg msg)
 101 {
 102     struct Popimage_DATA *data = INST_DATA(cl, obj);
 103
 104     if (!data->wnd)
 105     {
 106         Object *ok_button, *cancel_button;
 107         char *img_spec;
 108         ULONG x = 0, y = 0;
 109
 110         get(_win(obj), MUIA_Window_LeftEdge, &x);
 111         get(_win(obj), MUIA_Window_TopEdge, &y);
 112
 113         get(obj,MUIA_Imagedisplay_Spec, &img_spec);
 114
 115         data->wnd = (Object *)WindowObject,
 116             MUIA_Window_Title,       (IPTR) data->wintitle,
 117             MUIA_Window_Activate,           TRUE,
 118             MUIA_Window_IsSubWindow,        TRUE,
 119             MUIA_Window_LeftEdge,           _left(obj) + x,
 120             MUIA_Window_TopEdge,            _bottom(obj) + y + 1,
 121
 122             WindowContents, (IPTR) VGroup,
 123                 Child, (IPTR) (data->imageadjust = MUI_NewObject
 124                 (
 125                     MUIC_Imageadjust,
 126                     MUIA_CycleChain,              1,
 127                     MUIA_Imageadjust_Spec,        (IPTR) img_spec,
 128                     MUIA_Imageadjust_Type,        data->adjust_type,
 129                     MUIA_Imageadjust_Originator,  (IPTR) obj,
 130                     TAG_DONE
 131                 )),
 132                 Child, (IPTR) HGroup,
 133                     MUIA_Group_SameWidth, TRUE,
 134                     Child, (IPTR) (ok_button = MUI_MakeObject
 135                     (
 136                         MUIO_Button, (IPTR) "_Ok"
 137                     )),
 138                     Child, (IPTR) HVSpace,
 139                     Child, (IPTR) HVSpace,
 140                     Child, (IPTR) (cancel_button = MUI_MakeObject
 141                     (
 142                         MUIO_Button, (IPTR) "_Cancel"
 143                     )),
 144                 End,
 145             End,
 146         End;
 147
 148         if (data->wnd)
 149         {
 150             set(ok_button, MUIA_CycleChain, 1);
 151             set(cancel_button, MUIA_CycleChain, 1);
 152
 153             DoMethod(_app(obj),OM_ADDMEMBER,(IPTR)data->wnd);
 154
 155             DoMethod
 156             (
 157                 ok_button, MUIM_Notify, MUIA_Pressed, FALSE,
 158                 (IPTR) _app(obj), 5, MUIM_Application_PushMethod,
 159                 (IPTR) obj, 2, MUIM_Popimage_CloseWindow, TRUE
 160             );
 161             DoMethod
 162             (
 163                 cancel_button, MUIM_Notify, MUIA_Pressed, FALSE,
 164                 (IPTR) _app(obj), 5, MUIM_Application_PushMethod,
 165                 (IPTR) obj, 2, MUIM_Popimage_CloseWindow, FALSE
 166             );
 167             DoMethod
 168             (
 169                 data->wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
 170                 (IPTR) _app(obj), 5, MUIM_Application_PushMethod,
 171                 (IPTR) obj, 2, MUIM_Popimage_CloseWindow, FALSE
 172             );
 173         }
 174     }
 175
 176     if (data->wnd)
 177     {
 178         ULONG opened;
 179
 180         set(data->wnd, MUIA_Window_Open,TRUE);
 181         get(data->wnd, MUIA_Window_Open, &opened);
 182         if (!opened)
 183         {
 184             DoMethod(obj, MUIM_Popimage_CloseWindow, FALSE);
 185         }
 186     }
 187
 188     return 1;
 189 }
 190
 191 IPTR Popimage__MUIM_Popimage_CloseWindow(struct IClass *cl, Object *obj,
 192                                  struct MUIP_Popimage_CloseWindow *msg)
 193 {
 194     struct Popimage_DATA *data = INST_DATA(cl, obj);
 195     int ok = msg->ok;
 196
 197     set(data->wnd, MUIA_Window_Open, FALSE);
 198
 199     if (ok)
 200     {
 201         char *spec;
 202         get(data->imageadjust, MUIA_Imageadjust_Spec, &spec);
 203 /*      D(bug("popimage: got %s\n", spec)); */
 204         set(obj, MUIA_Imagedisplay_Spec, (IPTR)spec);
 205     }
 206
 207     DoMethod(_app(obj), OM_REMMEMBER, (IPTR)data->wnd);
 208     MUI_DisposeObject(data->wnd);
 209     data->wnd = NULL;
 210     data->imageadjust = NULL;
 211     return 1;
 212 }
 213
 214 IPTR Popimage__MUIM_DisconnectParent(struct IClass *cl, Object *obj,
 215                                      struct MUIP_DisconnectParent *msg)
 216 {
 217     struct Popimage_DATA *data = INST_DATA(cl, obj);
 218
 219     if (data->wnd) DoMethod(obj, MUIM_Popimage_CloseWindow, FALSE);
 220     return DoSuperMethodA(cl, obj, (Msg)msg);
 221 }
 222
 223 #if ZUNE_BUILTIN_POPIMAGE
 224 BOOPSI_DISPATCHER(IPTR, Popimage_Dispatcher, cl, obj, msg)
 225 {
 226     switch (msg->MethodID)
 227     {
 228         case OM_NEW: return Popimage__OM_NEW(cl, obj, (struct opSet *)msg);
 229         case OM_DISPOSE: return Popimage__OM_DISPOSE(cl, obj, msg);
 230         case MUIM_Hide: return Popimage__MUIM_Hide(cl, obj, (APTR)msg);
 231         case MUIM_Popimage_OpenWindow: return Popimage__MUIM_Popimage_OpenWindow(cl, obj, (APTR)msg);
 232         case MUIM_Popimage_CloseWindow: return Popimage__MUIM_Popimage_CloseWindow(cl, obj, (APTR)msg);
 233         case MUIM_DisconnectParent: return Popimage__MUIM_DisconnectParent(cl, obj, (APTR)msg);
 234         default: return DoSuperMethodA(cl, obj, msg);
 235     }
 236 }
 237 BOOPSI_DISPATCHER_END
 238
 239 const struct __MUIBuiltinClass _MUI_Popimage_desc =
 240 {
 241     MUIC_Popimage,
 242     MUIC_Imagedisplay,
 243     sizeof(struct Popimage_DATA),
 244     (void*)Popimage_Dispatcher
 245 };
 246 #endif /* ZUNE_BUILTIN_POPIMAGE */