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