rom/intuition/changedecorationa.c

   1 /*
   2     Copyright  1995-2011, The AROS Development Team. All rights reserved.
   3     Copyright  2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include <proto/utility.h>
   8 #include <intuition/windecorclass.h>
   9 #include <intuition/scrdecorclass.h>
  10 #include <intuition/screens.h>
  11
  12 #include <proto/dos.h>
  13
  14 #include "intuition_intern.h"
  15 #include "inputhandler_actions.h"
  16
  17 struct RemoveDecoratorMsg
  18 {
  19     struct IntuiActionMsg    msg;
  20     struct NewDecorator     *nd;
  21 };
  22
  23 static VOID int_removedecorator(struct RemoveDecoratorMsg *m, struct IntuitionBase *IntuitionBase);
  24
  25 /*****************************************************************************
  26
  27     NAME */
  28 #include <proto/intuition.h>
  29
  30     AROS_LH2(void, ChangeDecoration,
  31
  32 /*  SYNOPSIS */
  33          AROS_LHA(ULONG, ID, D0),
  34          AROS_LHA(struct NewDecorator *, nd, A0),
  35
  36 /*  LOCATION */
  37          struct IntuitionBase *, IntuitionBase, 152, Intuition)
  38
  39 /*  FUNCTION
  40         Setup a new decorator for intuition windows, screens or menus.
  41
  42     INPUTS
  43         ID - identifier for decorations, see screens.h
  44         nd -  an ID dependent NewDecorator structure
  45
  46     RESULT
  47         void - this Function cannot fail,
  48
  49     NOTES
  50         The function fails if screens are open, use ChangeIntuition() to notify applications that
  51         the UI will be changed.
  52
  53         This function is private and AROS-specific. Do not use it in regular applications.
  54
  55     EXAMPLE
  56
  57     BUGS
  58
  59     SEE ALSO
  60         intuition/screens.h
  61
  62     INTERNALS
  63
  64 *****************************************************************************/
  65 {
  66     AROS_LIBFUNC_INIT
  67
  68         ObtainSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
  69         if (ID == DECORATION_SET)
  70         {
  71
  72             {
  73                 /* if the current decorator isn´t used remove it */
  74
  75                 struct NewDecorator * tnd;
  76                 tnd = ((struct IntIntuitionBase *)(IntuitionBase))->Decorator;
  77                 if ((tnd != NULL) && (tnd != nd))
  78                 {
  79                     if ((tnd->nd_cnt == 0) && (tnd->nd_Port != NULL))
  80                     {
  81                         struct RemoveDecoratorMsg msg;
  82                         msg.nd = tnd;
  83                         DoASyncAction((APTR)int_removedecorator, &msg.msg, sizeof(msg), IntuitionBase);
  84                     }
  85                 }
  86             }
  87
  88             nd->nd_cnt = 0;
  89
  90             BOOL global = TRUE;
  91
  92             if (nd->nd_Pattern != NULL)
  93             {
  94                 nd->nd_IntPattern = AllocVec(strlen(nd->nd_Pattern) * 2 + 1, MEMF_CLEAR);
  95                 if (nd->nd_IntPattern)
  96                 {
  97                     struct DosLibrary *DOSBase = GetPrivIBase(IntuitionBase)->DOSBase;
  98                     if (!DOSBase)
  99                         GetPrivIBase(IntuitionBase)->DOSBase = DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 36);
 100
 101                     if (DOSBase)
 102                     {
 103                         if (ParsePattern(nd->nd_Pattern, nd->nd_IntPattern, strlen(nd->nd_Pattern) * 2 + 1) == -1)
 104                         {
 105                             FreeVec(nd->nd_IntPattern);
 106                             nd->nd_IntPattern = NULL;
 107                         }
 108                         else
 109                             global = FALSE;
 110                     }
 111                 }
 112             }
 113
 114             Enqueue(&((struct IntIntuitionBase *)(IntuitionBase))->Decorations, (struct Node *)nd);
 115
 116             if (global)
 117             {
 118                 ((struct IntIntuitionBase *)(IntuitionBase))->Decorator = nd;
 119                 ((struct IntIntuitionBase *)(IntuitionBase))->WinDecorObj = nd->nd_Window;
 120                 ((struct IntIntuitionBase *)(IntuitionBase))->MenuDecorObj = nd->nd_Menu;
 121                 ((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorObj = nd->nd_Screen;
 122             }
 123         }
 124         ReleaseSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
 125
 126     AROS_LIBFUNC_EXIT
 127 }
 128
 129 /* This is called on the input.device's context */
 130
 131 static VOID int_removedecorator(struct RemoveDecoratorMsg *m,
 132                                struct IntuitionBase *IntuitionBase)
 133 {
 134     struct DecoratorMessage msg;
 135     struct MsgPort *port = CreateMsgPort();
 136     if (port)
 137     {
 138         Remove((struct Node *)m->nd);
 139         if (m->nd->nd_IntPattern) FreeVec(m->nd->nd_IntPattern);
 140         msg.dm_Message.mn_ReplyPort = port;
 141         msg.dm_Message.mn_Magic = MAGIC_DECORATOR;
 142         msg.dm_Message.mn_Version = DECORATOR_VERSION;
 143         msg.dm_Class = DM_CLASS_DESTROYDECORATOR;
 144         msg.dm_Code = 0;
 145         msg.dm_Flags = 0;
 146         msg.dm_Object = (IPTR) m->nd;
 147         PutMsg(m->nd->nd_Port, (struct Message *) &msg);
 148         WaitPort(port);
 149         GetMsg(port);
 150         DeleteMsgPort(port);
 151     }
 152 }