rom/intuition/closescreen.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     Close a screen.
   7 */
   8
   9 #include <graphics/videocontrol.h>
  10 #include <proto/exec.h>
  11 #include <proto/graphics.h>
  12 #include <proto/layers.h>
  13 #include "intuition_intern.h"
  14 #include "inputhandler_actions.h"
  15
  16 #ifdef SKINS
  17 #   include "intuition_customize.h"
  18 #endif
  19
  20 #ifndef DEBUG_CloseScreen
  21 #define DEBUG_CloseScreen 0
  22 #endif
  23 #undef DEBUG
  24 #if DEBUG_CloseScreen
  25 #define DEBUG 1
  26 #endif
  27 #include <aros/debug.h>
  28
  29 struct CloseScreenActionMsg
  30 {
  31     struct IntuiActionMsg msg;
  32     struct Screen        *Screen;
  33 };
  34
  35 static VOID int_closescreen(struct CloseScreenActionMsg *msg,
  36                             struct IntuitionBase *IntuitionBase);
  37
  38 /*****************************************************************************
  39
  40     NAME */
  41 #include <intuition/screens.h>
  42 #include <proto/intuition.h>
  43
  44     AROS_LH1(BOOL, CloseScreen,
  45
  46 /*  SYNOPSIS */
  47          AROS_LHA(struct Screen *, screen, A0),
  48
  49 /*  LOCATION */
  50          struct IntuitionBase *, IntuitionBase, 11, Intuition)
  51
  52 /*  FUNCTION
  53
  54     Release all resources held by a screen and close it down visually.
  55
  56     INPUTS
  57
  58     screen  --  pointer to the screen to be closed
  59
  60     RESULT
  61
  62     TRUE if the screen is successfully closed, FALSE if there were still
  63     windows left on the screen (which means the screen is not closed).
  64
  65     NOTES
  66
  67     EXAMPLE
  68
  69     BUGS
  70
  71     SEE ALSO
  72
  73     INTERNALS
  74
  75 *****************************************************************************/
  76 {
  77     AROS_LIBFUNC_INIT
  78
  79     struct GfxBase *GfxBase = GetPrivIBase(IntuitionBase)->GfxBase;
  80     struct LayersBase *LayersBase = GetPrivIBase(IntuitionBase)->LayersBase;
  81     struct CloseScreenActionMsg msg;
  82
  83     DEBUG_CLOSESCREEN(dprintf("CloseScreen: Screen 0x%lx\n", screen));
  84
  85     D(bug("CloseScreen (%p)\n", screen));
  86
  87     if ( screen == NULL )
  88     {
  89         ReturnBool("CloseScreen",TRUE);
  90     }
  91
  92     if (screen != GetPrivIBase(IntuitionBase)->WorkBench)  FireScreenNotifyMessage((IPTR) screen, SNOTIFY_BEFORE_CLOSESCREEN, IntuitionBase);
  93
  94     /* there's a second check below for public screens */
  95     if (screen->FirstWindow)
  96     {
  97         DEBUG_CLOSESCREEN(dprintf("CloseScreen: fail, window still opened\n"));
  98         ReturnBool("CloseScreen",FALSE);
  99     }
 100
 101 #ifdef USEWINDOWLOCK
 102     /* let's wait for user to finish window drag/size actions to avoid
 103     deadlocks and not break user's input */
 104     ObtainSemaphore(&GetPrivIBase(IntuitionBase)->WindowLock);
 105 #endif
 106
 107     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockPubScreenList\n"));
 108     LockPubScreenList();
 109     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockPubScreenList done\n"));
 110
 111     msg.Screen = screen;
 112     DoSyncAction((APTR)int_closescreen,&msg.msg,IntuitionBase);
 113
 114     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockPubScreenList\n"));
 115     UnlockPubScreenList();
 116     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockPubScreenList done\n"));
 117
 118     if (GetPrivScreen(screen)->pubScrNode != NULL)
 119     {
 120 #ifdef USEWINDOWLOCK
 121         ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->WindowLock);
 122 #endif
 123         DEBUG_CLOSESCREEN(dprintf("CloseScreen: failed\n"));
 124         //something went wrong! int_closescreen is supposed to clear pubScrNode ptr!
 125         return FALSE;
 126     }
 127
 128     /* Push ExitScreen Message to the Screensdecoration Class */
 129     struct sdpExitScreen       semsg;
 130
 131     semsg.MethodID             = SDM_EXITSCREEN;
 132     semsg.sdp_UserBuffer       = ((struct IntScreen *)screen)->DecorUserBuffer;
 133     semsg.sdp_TrueColor        = (((struct IntScreen *)screen)->DInfo.dri.dri_Flags & DRIF_DIRECTCOLOR);
 134     DoMethodA(((struct IntScreen *)screen)->ScrDecorObj, (Msg)&semsg);
 135
 136     /* kill screen bar */
 137     KillScreenBar(screen, IntuitionBase);
 138
 139     /* kill depth gadget */
 140     if (((struct IntScreen *)screen)->depthgadget)
 141     {
 142         Object *im = (Object*)((struct Gadget *)(((struct IntScreen *)screen)->depthgadget))->GadgetRender;
 143
 144         DisposeObject(im);
 145         DisposeObject(((struct IntScreen *)screen)->depthgadget);
 146     }
 147
 148     RethinkDisplay();
 149
 150     FreeVPortCopLists(&screen->ViewPort);
 151
 152 #ifdef USEWINDOWLOCK
 153     ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->WindowLock);
 154 #endif
 155
 156     /* Free the RasInfo of the viewport */
 157     FreeMem(screen->ViewPort.RasInfo, sizeof (struct RasInfo));
 158
 159     /* Uninit the layerinfo */
 160
 161     ThinLayerInfo(&screen->LayerInfo);
 162
 163     /* Free the screen's bitmap */
 164
 165     if (GetPrivScreen(screen)->AllocatedBitmap)
 166         FreeBitMap(GetPrivScreen(screen)->AllocatedBitmap);
 167     screen->RastPort.BitMap = NULL;
 168
 169     /* Free the RastPort's contents */
 170     DeinitRastPort(&screen->RastPort);
 171
 172 #ifdef SKINS
 173     if (((struct IntScreen *)screen)->DInfo.dri_Customize)
 174     {
 175         /* Free the skin */
 176         DisposeObject(((struct IntScreen *)screen)->DInfo.dri_Customize->submenu);
 177         DisposeObject(((struct IntScreen *)screen)->DInfo.dri_Customize->menutoggle);
 178         int_SkinAction(SKA_FreeSkin,(ULONG*)&((struct IntScreen *)(screen))->DInfo,(struct Screen *)screen,IntuitionBase);
 179         int_FreeTitlebarBuffer(((struct IntScreen *)(screen)),IntuitionBase);
 180         FreeMem(((struct IntScreen *)screen)->DInfo.dri_Customize,sizeof (struct IntuitionCustomize));
 181     }
 182 #endif
 183
 184     DisposeObject(((struct IntScreen *)screen)->DInfo.dri.dri_CheckMark);
 185     DisposeObject(((struct IntScreen *)screen)->DInfo.dri.dri_AmigaKey);
 186
 187     /* Close the font */
 188     CloseFont(((struct IntScreen *)screen)->DInfo.dri.dri_Font);
 189
 190     /* Free the ColorMap */
 191     FreeColorMap(screen->ViewPort.ColorMap);
 192
 193     /* Free the sprite */
 194     ReleaseSharedPointer(((struct IntScreen *)screen)->Pointer, IntuitionBase);
 195
 196     DisposeObject(((struct IntScreen *)screen)->WinDecorObj);
 197     DisposeObject(((struct IntScreen *)screen)->MenuDecorObj);
 198     DisposeObject(((struct IntScreen *)screen)->ScrDecorObj);
 199
 200     /* Free the memory */
 201     if (((struct IntScreen *)screen)->DecorUserBuffer)
 202     {
 203         FreeMem((APTR)((struct IntScreen *)screen)->DecorUserBuffer, ((struct IntScreen *)screen)->DecorUserBufferSize);
 204     }
 205
 206     {
 207         ObtainSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
 208         ULONG lock = LockIBase(0);
 209
 210         struct NewDecorator *nd = ((struct IntScreen *)screen)->Decorator;
 211
 212         if ((nd != ((struct IntIntuitionBase *)(IntuitionBase))->Decorator) && (nd != NULL))
 213         {
 214             nd->nd_cnt--;
 215
 216             if ((nd->nd_cnt == 0) && (nd->nd_Port != NULL) && (nd->nd_IntPattern == NULL))
 217             {
 218                 struct DecoratorMessage msg;
 219                 struct MsgPort *port = CreateMsgPort();
 220                 if (port)
 221                 {
 222                     Remove((struct Node *)nd);
 223
 224                     if (nd->nd_IntPattern) FreeVec(nd->nd_IntPattern);
 225
 226                     msg.dm_Message.mn_ReplyPort = port;
 227                     msg.dm_Message.mn_Magic = MAGIC_DECORATOR;
 228                     msg.dm_Message.mn_Version = DECORATOR_VERSION;
 229                     msg.dm_Class = DM_CLASS_DESTROYDECORATOR;
 230                     msg.dm_Code = 0;
 231                     msg.dm_Flags = 0;
 232                     msg.dm_Object = (IPTR) nd;
 233                     PutMsg(nd->nd_Port, (struct Message *) &msg);
 234                     WaitPort(port);
 235                     GetMsg(port);
 236                     DeleteMsgPort(port);
 237                 }
 238             }
 239         }
 240         UnlockIBase(lock);
 241         ReleaseSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
 242     }
 243
 244     /* Free the memory */
 245     FreeMem(screen, sizeof (struct IntScreen));
 246
 247     if (screen != GetPrivIBase(IntuitionBase)->WorkBench) FireScreenNotifyMessage((IPTR) screen, SNOTIFY_AFTER_CLOSESCREEN, IntuitionBase);
 248
 249     DEBUG_CLOSESCREEN(dprintf("CloseScreen: ok\n"));
 250
 251     ReturnBool("CloseScreen",TRUE);
 252
 253     AROS_LIBFUNC_EXIT
 254 } /* CloseScreen */
 255
 256 static VOID int_closescreen(struct CloseScreenActionMsg *msg,
 257                             struct IntuitionBase *IntuitionBase)
 258 {
 259     struct Screen *parent,*screen = msg->Screen;
 260     ULONG          lock;
 261
 262     /* If this is a public screen, free related information if there are
 263        no windows left on the screen */
 264     if (GetPrivScreen(screen)->pubScrNode != NULL)
 265     {
 266         if(GetPrivScreen(screen)->pubScrNode->psn_VisitorCount || screen->FirstWindow)
 267         {
 268             DEBUG_CLOSESCREEN(dprintf("CloseScreen: failed\n"));
 269             return;
 270         }
 271
 272         Remove((struct Node *)GetPrivScreen(screen)->pubScrNode);
 273
 274         if(GetPrivScreen(screen)->pubScrNode->psn_Node.ln_Name != NULL)
 275             FreeVec(GetPrivScreen(screen)->pubScrNode->psn_Node.ln_Name);
 276
 277         FreeMem(GetPrivScreen(screen)->pubScrNode,
 278                 sizeof(struct PubScreenNode));
 279
 280         GetPrivScreen(screen)->pubScrNode = 0;
 281     }
 282
 283     RemoveResourceFromList(screen, RESOURCE_SCREEN, IntuitionBase);
 284
 285     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockIBase\n"));
 286
 287     lock = LockIBase(0);
 288
 289     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockIBase done\n"));
 290
 291     /* Trick: Since NextScreen is the first field of the structure,
 292     we can use the pointer in the IntuitionBase as a screen with
 293     the structure-size of one pointer */
 294     parent = (struct Screen *)&(IntuitionBase->FirstScreen);
 295
 296     /* For all screens... */
 297     while (parent->NextScreen)
 298     {
 299         /* If the screen to close is the next screen... */
 300         if (parent->NextScreen == screen)
 301         {
 302
 303             /* Unlink it */
 304             parent->NextScreen = screen->NextScreen;
 305
 306             /* Check ActiveScreen */
 307             if (IntuitionBase->ActiveScreen == screen)
 308             {
 309                 if (screen->NextScreen)
 310                     IntuitionBase->ActiveScreen = screen->NextScreen;
 311                 else if (IntuitionBase->FirstScreen)
 312                     IntuitionBase->ActiveScreen = parent;
 313                 else
 314                     IntuitionBase->ActiveScreen = NULL;
 315             }
 316
 317             /* now let's set the default pub screen */
 318             if (GetPrivIBase(IntuitionBase)->DefaultPubScreen == screen)
 319             {
 320                 struct Screen *scr;
 321
 322                 GetPrivIBase(IntuitionBase)->DefaultPubScreen = NULL;
 323                 scr = IntuitionBase->FirstScreen;
 324
 325                 if (scr && GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_DEFPUBSCREEN && GetPrivScreen(scr)->pubScrNode && (scr->Flags & (PUBLICSCREEN | WBENCHSCREEN)))
 326                 {
 327                     GetPrivIBase(IntuitionBase)->DefaultPubScreen = scr;
 328                 }
 329             }
 330
 331             DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase\n"));
 332             UnlockIBase(lock);
 333             DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase done\n"));
 334
 335 #ifdef TIMEVALWINDOWACTIVATION
 336             if (IntuitionBase->FirstScreen && ((GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_SCREENACTIVATION) || !IntuitionBase->ActiveWindow))
 337             {
 338                 struct Window *scanw = 0;
 339                 struct Window *win = 0;
 340
 341                 for (scanw = IntuitionBase->FirstScreen->FirstWindow; scanw ; scanw = scanw->NextWindow)
 342                 {
 343                     if (win)
 344                     {
 345                         if ((IW(scanw)->activationtime.tv_secs > IW(win)->activationtime.tv_secs) ||
 346                             ((IW(scanw)->activationtime.tv_secs == IW(win)->activationtime.tv_secs) && (IW(scanw)->activationtime.tv_micro > IW(win)->activationtime.tv_micro)))
 347                         {
 348                             win = scanw;
 349                         }
 350                     }
 351
 352                     if (!win) win = scanw;
 353                 }
 354
 355                 if (!win) win = IntuitionBase->FirstScreen->FirstWindow;
 356                 if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_SCREENACTIVATION)
 357                     if (IntuitionBase->ActiveWindow && IntuitionBase->ActiveWindow->WScreen == IntuitionBase->FirstScreen) win = NULL;
 358                 if (win) ActivateWindow(win);
 359             }
 360 #endif
 361             return;
 362         }
 363         parent = parent->NextScreen;
 364     }
 365
 366     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase\n"));
 367     UnlockIBase(lock);
 368     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase done\n"));
 369
 370     return;
 371 }