rom/intuition/closescreen.c

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