workbench/libs/muimaster/classes/popframe.c

   1 /*
   2     Copyright © 2002-2006, 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 "popframe_private.h"
  22
  23 extern struct Library *MUIMasterBase;
  24
  25 IPTR Popframe__OM_NEW(struct IClass *cl, Object *obj, struct opSet *msg)
  26 {
  27     struct Popframe_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
  45     data = INST_DATA(cl, obj);
  46     data->wintitle = NULL;
  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     }
  58
  59     DoMethod(obj, MUIM_Notify, MUIA_Pressed, FALSE, (IPTR)obj, 1,
  60              MUIM_Popframe_OpenWindow);
  61
  62     return (IPTR)obj;
  63 }
  64
  65 IPTR Popframe__OM_DISPOSE(struct IClass *cl, Object *obj, Msg msg)
  66 {
  67     struct Popframe_DATA *data = INST_DATA(cl, obj);
  68
  69     if (data->wnd)
  70     {
  71         D(bug("Popframe_Dispose(%p) : MUI_DisposeObject(%p)\n", obj, data->wnd));
  72         MUI_DisposeObject(data->wnd);
  73         data->wnd = NULL;
  74     }
  75     return DoSuperMethodA(cl,obj,(Msg)msg);
  76 }
  77
  78 IPTR Popframe__MUIM_Hide(struct IClass *cl, Object *obj, struct opGet *msg)
  79 {
  80 #if 0
  81     struct Popframe_DATA *data = INST_DATA(cl, obj);
  82     if (data->wnd)
  83     {
  84         D(bug("Popframe_Hide(%p) : closing window %p\n", obj, data->wnd));
  85         set(data->wnd,MUIA_Window_Open,FALSE);
  86         D(bug("Popframe_Hide(%p) : app REMMEMBER win (%p)\n", obj, data->wnd));
  87         DoMethod(_app(obj),OM_REMMEMBER,(IPTR)data->wnd);
  88         D(bug("Popframe_Hide(%p) : MUI_DisposeObject(%p)\n", obj, data->wnd));
  89         MUI_DisposeObject(data->wnd);
  90         data->wnd = NULL;
  91     }
  92 #endif
  93     return DoSuperMethodA(cl,obj,(Msg)msg);
  94 }
  95
  96 IPTR Popframe__MUIM_Popframe_OpenWindow(struct IClass *cl, Object *obj, Msg msg)
  97 {
  98     struct Popframe_DATA *data = INST_DATA(cl, obj);
  99
 100     if (!data->wnd)
 101     {
 102         Object *ok_button, *cancel_button;
 103         struct MUI_Frame_Spec *frame_spec;
 104         ULONG x = 0, y = 0;
 105
 106         get(_win(obj), MUIA_Window_LeftEdge, &x);
 107         get(_win(obj), MUIA_Window_TopEdge, &y);
 108
 109         get(obj, MUIA_Framedisplay_Spec, &frame_spec);
 110
 111         data->wnd = WindowObject,
 112           MUIA_Window_Title, (IPTR)data->wintitle,
 113           MUIA_Window_Activate, TRUE,
 114             MUIA_Window_IsSubWindow, TRUE,
 115             MUIA_Window_LeftEdge, _left(obj) + x,
 116             MUIA_Window_TopEdge, _bottom(obj) + y + 1,
 117             WindowContents, (IPTR)VGroup,
 118                 Child, (IPTR)(data->frameadjust = MUI_NewObject(
 119                     MUIC_Frameadjust,
 120                     MUIA_CycleChain, 1,
 121                     MUIA_Frameadjust_Spec, (IPTR)frame_spec,
 122                     TAG_DONE)),
 123                 Child, (IPTR)HGroup,
 124                     MUIA_Group_SameWidth, TRUE,
 125                     Child, (IPTR)(ok_button = MUI_MakeObject(MUIO_Button, (IPTR)"_Ok")),
 126                     Child, (IPTR)HVSpace,
 127                     Child, (IPTR)HVSpace,
 128                     Child, (IPTR)(cancel_button = MUI_MakeObject(MUIO_Button, (IPTR)"_Cancel")),
 129                     End,
 130                 End,
 131             End;
 132
 133         if (data->wnd)
 134         {
 135             set(ok_button, MUIA_CycleChain, 1);
 136             set(cancel_button, MUIA_CycleChain, 1);
 137
 138             DoMethod(_app(obj),OM_ADDMEMBER,(IPTR)data->wnd);
 139
 140             DoMethod(ok_button, MUIM_Notify, MUIA_Pressed, FALSE, (IPTR)_app(obj), 5,
 141                      MUIM_Application_PushMethod, (IPTR)obj, 2,
 142                      MUIM_Popframe_CloseWindow, TRUE);
 143             DoMethod(cancel_button, MUIM_Notify, MUIA_Pressed, FALSE, (IPTR)_app(obj), 5,
 144                      MUIM_Application_PushMethod, (IPTR)obj, 2,
 145                      MUIM_Popframe_CloseWindow, FALSE);
 146             DoMethod(data->wnd, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, (IPTR)_app(obj), 5,
 147                      MUIM_Application_PushMethod, (IPTR)obj, 2,
 148                      MUIM_Popframe_CloseWindow, FALSE);
 149         }
 150     }
 151
 152     if (data->wnd)
 153     {
 154         ULONG opened;
 155
 156         set(data->wnd, MUIA_Window_Open,TRUE);
 157         get(data->wnd, MUIA_Window_Open, &opened);
 158         if (!opened)
 159         {
 160             DoMethod(obj, MUIM_Popframe_CloseWindow, FALSE);
 161         }
 162     }
 163
 164     return 1;
 165 }
 166
 167 IPTR Popframe__MUIM_Popframe_CloseWindow(struct IClass *cl, Object *obj,
 168                                  struct MUIP_Popframe_CloseWindow *msg)
 169 {
 170     struct Popframe_DATA *data = INST_DATA(cl, obj);
 171     int ok = msg->ok;
 172
 173     set(data->wnd, MUIA_Window_Open, FALSE);
 174
 175     if (ok)
 176     {
 177         STRPTR spec;
 178         get(data->frameadjust, MUIA_Frameadjust_Spec, &spec);
 179 /*      D(bug("popframe: got %s\n", spec)); */
 180         set(obj, MUIA_Framedisplay_Spec, (IPTR)spec);
 181     }
 182
 183     DoMethod(_app(obj), OM_REMMEMBER, (IPTR)data->wnd);
 184     MUI_DisposeObject(data->wnd);
 185     data->wnd = NULL;
 186     data->frameadjust = NULL;
 187     return 1;
 188 }
 189
 190 IPTR Popframe__MUIM_DisconnectParent(struct IClass *cl, Object *obj,
 191                                      struct MUIP_DisconnectParent *msg)
 192 {
 193     struct Popframe_DATA *data = INST_DATA(cl, obj);
 194
 195     if (data->wnd) DoMethod(obj, MUIM_Popframe_CloseWindow, FALSE);
 196     return DoSuperMethodA(cl, obj, (Msg)msg);
 197 }
 198
 199 #if ZUNE_BUILTIN_POPFRAME
 200 BOOPSI_DISPATCHER(IPTR, Popframe_Dispatcher, cl, obj, msg)
 201 {
 202     switch (msg->MethodID)
 203     {
 204         case OM_NEW: return Popframe__OM_NEW(cl, obj, (struct opSet *)msg);
 205         case OM_DISPOSE: return Popframe__OM_DISPOSE(cl, obj, msg);
 206         case MUIM_Hide: return Popframe__MUIM_Hide(cl, obj, (APTR)msg);
 207         case MUIM_Popframe_OpenWindow: return Popframe__MUIM_Popframe_OpenWindow(cl, obj, (APTR)msg);
 208         case MUIM_Popframe_CloseWindow: return Popframe__MUIM_Popframe_CloseWindow(cl, obj, (APTR)msg);
 209         case MUIM_DisconnectParent: return Popframe__MUIM_DisconnectParent(cl, obj, (APTR)msg);
 210         default: return DoSuperMethodA(cl, obj, msg);
 211     }
 212 }
 213 BOOPSI_DISPATCHER_END
 214
 215 const struct __MUIBuiltinClass _MUI_Popframe_desc =
 216 {
 217     MUIC_Popframe,
 218     MUIC_Framedisplay,
 219     sizeof(struct Popframe_DATA),
 220     (void*)Popframe_Dispatcher
 221 };
 222 #endif /* ZUNE_BUILTIN_POPFRAME */