rom/intuition/closescreen.c

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