rom/intuition/activatewindow.c

   1 /*
   2     Copyright  1995-2007, 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/graphics.h>
   8 #include <proto/timer.h>
   9 #include <intuition/gadgetclass.h>
  10 #include "intuition_intern.h"
  11 #include "inputhandler.h"
  12 #include "inputhandler_actions.h"
  13 #include "inputhandler_support.h"
  14 #include "boopsigadgets.h"
  15 #include "boolgadgets.h"
  16 #include "propgadgets.h"
  17 #include "strgadgets.h"
  18 #include "gadgets.h"
  19 #include "menus.h"
  20 #include <intuition/pointerclass.h>
  21
  22 struct ActivateWindowActionMsg
  23 {
  24     struct IntuiActionMsg    msg;
  25     struct Window           *window;
  26 };
  27
  28 static VOID int_activatewindow(struct ActivateWindowActionMsg *msg,
  29                                struct IntuitionBase *IntuitionBase);
  30
  31 /*****************************************************************************
  32
  33     NAME */
  34 #include <proto/intuition.h>
  35
  36     AROS_LH1(void, ActivateWindow,
  37
  38 /*  SYNOPSIS */
  39          AROS_LHA(struct Window *, window, A0),
  40
  41 /*  LOCATION */
  42          struct IntuitionBase *, IntuitionBase, 75, Intuition)
  43
  44 /*  FUNCTION
  45     Activates the specified window. The window gets the focus
  46     and all further input it sent to that window. If the window
  47     requested it, it will get a IDCMP_ACTIVEWINDOW message.
  48
  49     INPUTS
  50     window - The window to activate
  51
  52     RESULT
  53     None.
  54
  55     NOTES
  56     If the user has an autopointer tool (sunmouse), the call will
  57     succeed, but the tool will deactivate the window right after
  58     this function has activated it. It is no good idea to try to
  59     prevent this by waiting for IDCMP_INACTIVEWINDOW and activating
  60     the window again since that will produce an anoying flicker and
  61     it will slow down the computer a lot.
  62
  63     EXAMPLE
  64
  65     BUGS
  66
  67     SEE ALSO
  68     ModifyIDCMP(), OpenWindow(), CloseWindow()
  69
  70     INTERNALS
  71
  72 *****************************************************************************/
  73 {
  74     AROS_LIBFUNC_INIT
  75
  76     struct ActivateWindowActionMsg msg;
  77
  78     DEBUG_ACTIVATEWINDOW(dprintf("ActivateWindow: Window 0x%lx\n",
  79                      window));
  80
  81     msg.window = window;
  82     DoASyncAction((APTR)int_activatewindow, &msg.msg, sizeof(msg), IntuitionBase);
  83
  84     AROS_LIBFUNC_EXIT
  85
  86 } /* ActivateWindow */
  87
  88 /* This is called on the input.device's context */
  89
  90 static VOID int_activatewindow(struct ActivateWindowActionMsg *msg,
  91                                struct IntuitionBase *IntuitionBase)
  92 {
  93     struct IIHData      *iihdata = (struct IIHData *)GetPrivIBase(IntuitionBase)->InputHandler->is_Data;
  94
  95     /* On the Amiga ActivateWindow is delayed if there
  96        is an active gadget (altough this does not seem
  97        to be true for string gadgets). We just ignore
  98        ActivateWindow in such a case. */
  99
 100     struct Window       *window = msg->window;
 101     ULONG                lock;
 102     struct Window       *oldactive;
 103     Object              *pointer = NULL;
 104     struct IntScreen    *scr = NULL;
 105     struct InputEvent   *ie;
 106
 107     if (!ResourceExisting(window, RESOURCE_WINDOW, IntuitionBase)) return;
 108 //    if (window->Flags & WFLG_TOOLBOX) return;
 109
 110     if ((!iihdata->ActiveGadget) ||
 111         (iihdata->ActiveGadget && ((iihdata->ActiveGadget->GadgetType & GTYP_SYSTYPEMASK) == GTYP_SDEPTH)))
 112     {
 113
 114         lock = LockIBase(0UL);
 115
 116         if (window->Flags & WFLG_TOOLBOX) oldactive = NULL; else oldactive = IntuitionBase->ActiveWindow;
 117         if ((window->Flags & WFLG_TOOLBOX) == 0) IntuitionBase->ActiveWindow = window;
 118
 119         DEBUG_ACTIVATEWINDOW(dprintf("IntActivateWindow: Window 0x%lx OldActive 0x%lx\n",
 120                          window, oldactive));
 121
 122         if (oldactive != window)
 123         {
 124             GetPrivIBase(IntuitionBase)->PointerDelay = 0;
 125
 126             if (oldactive)
 127             {
 128                 ih_fire_intuimessage(oldactive,
 129                              IDCMP_INACTIVEWINDOW,
 130                              0,
 131                              oldactive,
 132                              IntuitionBase);
 133
 134                 scr = GetPrivScreen(oldactive->WScreen);
 135                 scr->Screen.Title = scr->Screen.DefaultTitle;
 136             }
 137
 138             if (window)
 139             {
 140                 /*
 141                     Tasks are allowed to modify window->Flags, for example
 142                      set/clear WFLG_RMBTRAP. It is not certain that every
 143                      compiler on every machine produces an atomic instruction.
 144                 */
 145                 #warning check that window->Flags is atomically set everywhere!
 146                 AROS_ATOMIC_OR(window->Flags, WFLG_WINDOWACTIVE);
 147
 148                 pointer = IW(window)->pointer;
 149                 if (IW(window)->busy)
 150                     pointer = GetPrivIBase(IntuitionBase)->BusyPointer;
 151
 152                 scr = GetPrivScreen(window->WScreen);
 153                 if (window->ScreenTitle)
 154                     scr->Screen.Title = window->ScreenTitle;
 155             }
 156
 157             /* now set the ActiveScreen! */
 158             if (scr)
 159             {
 160                 struct Screen *old;
 161                 struct Window *win;
 162
 163                 old = IntuitionBase->ActiveScreen;
 164
 165                 if (old && (old != (struct Screen *)scr))
 166                 {
 167
 168                     /* this avoids mouse "jump" effect */
 169                     scr->Screen.MouseX = old->MouseX;
 170                     scr->Screen.MouseY = old->MouseY;
 171
 172                     win = scr->Screen.FirstWindow;
 173
 174                     while (win)
 175                     {
 176                         UpdateMouseCoords(win);
 177                         win = win->NextWindow;
 178                     }
 179                 }
 180
 181                 IntuitionBase->ActiveScreen = (struct Screen *)scr;
 182
 183             }
 184
 185             if (scr)
 186             {
 187                 struct SharedPointer *shared_pointer;
 188
 189                 if (!pointer)
 190                     pointer = GetPrivIBase(IntuitionBase)->DefaultPointer;
 191
 192                 GetAttr(POINTERA_SharedPointer, pointer, (IPTR *)&shared_pointer);
 193
 194                 DEBUG_POINTER(dprintf("ActivateWindow: scr 0x%lx pointer 0x%lx sprite 0x%lx\n",
 195                               scr, pointer, shared_pointer->sprite));
 196
 197                 if (ChangeExtSpriteA(&scr->Screen.ViewPort,
 198                              scr->Pointer->sprite, shared_pointer->sprite, NULL))
 199                 {
 200                     ObtainSharedPointer(shared_pointer, IntuitionBase);
 201                     ReleaseSharedPointer(scr->Pointer, IntuitionBase);
 202                     scr->Pointer = shared_pointer;
 203                     if (window)
 204                     {
 205                         window->XOffset = shared_pointer->xoffset;
 206                         window->YOffset = shared_pointer->yoffset;
 207                     }
 208
 209                     //jDc: fix some weird refresh pbs
 210                     SetPointerPos(scr->Screen.MouseX, scr->Screen.MouseY);
 211                 }
 212                 else
 213                 {
 214                     DEBUG_POINTER(dprintf("ActivateWindow: can't set pointer.\n"));
 215                 }
 216             }
 217         }
 218
 219         UnlockIBase(lock);
 220
 221         if (oldactive && oldactive != window)
 222         {
 223             AROS_ATOMIC_AND(oldactive->Flags, ~WFLG_WINDOWACTIVE);
 224
 225             int_refreshwindowframe(oldactive, REFRESHGAD_BORDER, 0, IntuitionBase);
 226             if (!window || oldactive->WScreen != window->WScreen)
 227                 RenderScreenBar(oldactive->WScreen, FALSE, IntuitionBase);
 228         }
 229
 230
 231         if (window && oldactive != window)
 232         {
 233             int_refreshwindowframe(window, REFRESHGAD_BORDER, 0, IntuitionBase);
 234             RenderScreenBar(window->WScreen, FALSE, IntuitionBase);
 235         }
 236
 237 #ifdef TIMEVALWINDOWACTIVATION
 238         if (window)
 239         {
 240             GetSysTime(&IW(window)->activationtime);
 241         }
 242 #endif
 243
 244         if ((ie = AllocInputEvent(iihdata)))
 245         {
 246             ie->ie_Class = IECLASS_EVENT;
 247             ie->ie_Code = IECODE_NEWACTIVE;
 248             ie->ie_EventAddress = window;
 249             CurrentTime(&ie->ie_TimeStamp.tv_secs, &ie->ie_TimeStamp.tv_micro);
 250         }
 251
 252         if (window)
 253         {
 254             if ((window->Flags & WFLG_TOOLBOX) == 0)
 255                 ih_fire_intuimessage(window,
 256                          IDCMP_ACTIVEWINDOW,
 257                          0,
 258                          window,
 259                          IntuitionBase);
 260         }
 261     }
 262     else
 263     {
 264         int_refreshwindowframe(window, REFRESHGAD_BORDER, 0, IntuitionBase);
 265     }
 266
 267 #ifdef __MORPHOS__
 268     Forbid();
 269     if (window && window->UserPort)
 270     {
 271         struct Task *apptask = window->UserPort->mp_SigTask;
 272
 273         if (apptask && (!apptask->tc_SigWait) && (apptask->tc_State == TS_WAIT))
 274         {
 275             //task is DEAD!
 276             //give some visual feedback to the user
 277
 278             IW(window)->specialflags |= SPFLAG_IAMDEAD;
 279
 280             int_refreshwindowframe(window,REFRESHGAD_TOPBORDER,0,IntuitionBase);
 281
 282         }
 283         else
 284         {
 285             IW(window)->specialflags &= ~SPFLAG_IAMDEAD;
 286         }
 287     }
 288     Permit();
 289 #endif
 290
 291 }