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