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     /* Free the memory */
 197     if (((struct IntScreen *)screen)->DecorUserBuffer)
 198     {
 199         FreeMem((APTR)((struct IntScreen *)screen)->DecorUserBuffer, ((struct IntScreen *)screen)->DecorUserBufferSize);
 200     }
 201
 202     {
 203         ObtainSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
 204         ULONG lock = LockIBase(0);
 205
 206         struct NewDecorator *nd = ((struct IntScreen *)screen)->Decorator;
 207
 208         if ((nd != ((struct IntIntuitionBase *)(IntuitionBase))->Decorator) && (nd != NULL))
 209         {
 210             nd->nd_cnt--;
 211
 212             if ((nd->nd_cnt == 0) && (nd->nd_Port != NULL) && (nd->nd_IntPattern == NULL))
 213             {
 214                 struct DecoratorMessage msg;
 215                 struct MsgPort *port = CreateMsgPort();
 216                 if (port)
 217                 {
 218                     Remove((struct Node *)nd);
 219
 220                     if (nd->nd_IntPattern) FreeVec(nd->nd_IntPattern);
 221
 222                     msg.dm_Message.mn_ReplyPort = port;
 223                     msg.dm_Message.mn_Magic = MAGIC_DECORATOR;
 224                     msg.dm_Message.mn_Version = DECORATOR_VERSION;
 225                     msg.dm_Class = DM_CLASS_DESTROYDECORATOR;
 226                     msg.dm_Code = 0;
 227                     msg.dm_Flags = 0;
 228                     msg.dm_Object = (IPTR) nd;
 229                     PutMsg(nd->nd_Port, (struct Message *) &msg);
 230                     WaitPort(port);
 231                     GetMsg(port);
 232                     DeleteMsgPort(port);
 233                 }
 234             }
 235         }
 236         UnlockIBase(lock);
 237         ReleaseSemaphore(&((struct IntIntuitionBase *)(IntuitionBase))->ScrDecorSem);
 238     }
 239
 240     /* Free the memory */
 241     FreeMem(screen, sizeof (struct IntScreen));
 242
 243     if (screen != GetPrivIBase(IntuitionBase)->WorkBench) FireScreenNotifyMessage((IPTR) screen, SNOTIFY_AFTER_CLOSESCREEN, IntuitionBase);
 244
 245     DEBUG_CLOSESCREEN(dprintf("CloseScreen: ok\n"));
 246
 247     ReturnBool("CloseScreen",TRUE);
 248
 249     AROS_LIBFUNC_EXIT
 250 } /* CloseScreen */
 251
 252 static VOID int_closescreen(struct CloseScreenActionMsg *msg,
 253                             struct IntuitionBase *IntuitionBase)
 254 {
 255     struct Screen *parent,*screen = msg->Screen;
 256     ULONG          lock;
 257
 258     /* If this is a public screen, free related information if there are
 259        no windows left on the screen */
 260     if (GetPrivScreen(screen)->pubScrNode != NULL)
 261     {
 262         if(GetPrivScreen(screen)->pubScrNode->psn_VisitorCount || screen->FirstWindow)
 263         {
 264             DEBUG_CLOSESCREEN(dprintf("CloseScreen: failed\n"));
 265             return;
 266         }
 267
 268         Remove((struct Node *)GetPrivScreen(screen)->pubScrNode);
 269
 270         if(GetPrivScreen(screen)->pubScrNode->psn_Node.ln_Name != NULL)
 271             FreeVec(GetPrivScreen(screen)->pubScrNode->psn_Node.ln_Name);
 272
 273         FreeMem(GetPrivScreen(screen)->pubScrNode,
 274                 sizeof(struct PubScreenNode));
 275
 276         GetPrivScreen(screen)->pubScrNode = 0;
 277     }
 278
 279     RemoveResourceFromList(screen, RESOURCE_SCREEN, IntuitionBase);
 280
 281     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockIBase\n"));
 282
 283     lock = LockIBase(0);
 284
 285     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockIBase done\n"));
 286
 287     /* Trick: Since NextScreen is the first field of the structure,
 288     we can use the pointer in the IntuitionBase as a screen with
 289     the structure-size of one pointer */
 290     parent = (struct Screen *)&(IntuitionBase->FirstScreen);
 291
 292     /* For all screens... */
 293     while (parent->NextScreen)
 294     {
 295         /* If the screen to close is the next screen... */
 296         if (parent->NextScreen == screen)
 297         {
 298
 299             /* Unlink it */
 300             parent->NextScreen = screen->NextScreen;
 301
 302             /* Check ActiveScreen */
 303             if (IntuitionBase->ActiveScreen == screen)
 304             {
 305                 if (screen->NextScreen)
 306                     IntuitionBase->ActiveScreen = screen->NextScreen;
 307                 else if (IntuitionBase->FirstScreen)
 308                     IntuitionBase->ActiveScreen = parent;
 309                 else
 310                     IntuitionBase->ActiveScreen = NULL;
 311             }
 312
 313             /* now let's set the default pub screen */
 314             if (GetPrivIBase(IntuitionBase)->DefaultPubScreen == screen)
 315             {
 316                 struct Screen *scr;
 317
 318                 GetPrivIBase(IntuitionBase)->DefaultPubScreen = NULL;
 319                 scr = IntuitionBase->FirstScreen;
 320
 321                 if (scr && GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_DEFPUBSCREEN && GetPrivScreen(scr)->pubScrNode && (scr->Flags & (PUBLICSCREEN | WBENCHSCREEN)))
 322                 {
 323                     GetPrivIBase(IntuitionBase)->DefaultPubScreen = scr;
 324                 }
 325             }
 326
 327             DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase\n"));
 328             UnlockIBase(lock);
 329             DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase done\n"));
 330
 331 #ifdef TIMEVALWINDOWACTIVATION
 332             if (IntuitionBase->FirstScreen && ((GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_SCREENACTIVATION) || !IntuitionBase->ActiveWindow))
 333             {
 334                 struct Window *scanw = 0;
 335                 struct Window *win = 0;
 336
 337                 for (scanw = IntuitionBase->FirstScreen->FirstWindow; scanw ; scanw = scanw->NextWindow)
 338                 {
 339                     if (win)
 340                     {
 341                         if ((IW(scanw)->activationtime.tv_secs > IW(win)->activationtime.tv_secs) ||
 342                             ((IW(scanw)->activationtime.tv_secs == IW(win)->activationtime.tv_secs) && (IW(scanw)->activationtime.tv_micro > IW(win)->activationtime.tv_micro)))
 343                         {
 344                             win = scanw;
 345                         }
 346                     }
 347
 348                     if (!win) win = scanw;
 349                 }
 350
 351                 if (!win) win = IntuitionBase->FirstScreen->FirstWindow;
 352                 if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_SCREENACTIVATION)
 353                     if (IntuitionBase->ActiveWindow && IntuitionBase->ActiveWindow->WScreen == IntuitionBase->FirstScreen) win = NULL;
 354                 if (win) ActivateWindow(win);
 355             }
 356 #endif
 357             return;
 358         }
 359         parent = parent->NextScreen;
 360     }
 361
 362     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase\n"));
 363     UnlockIBase(lock);
 364     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase done\n"));
 365
 366     return;
 367 }