rom/intuition/closescreen.c

   1 /*
   2     Copyright  1995-2003, 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     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  79
  80     struct CloseScreenActionMsg msg;
  81
  82     DEBUG_CLOSESCREEN(dprintf("CloseScreen: Screen 0x%lx\n", screen));
  83
  84     D(bug("CloseScreen (%p)\n", screen));
  85
  86     if ( screen == NULL )
  87     {
  88         ReturnBool("CloseScreen",TRUE);
  89     }
  90
  91     if (screen != GetPrivIBase(IntuitionBase)->WorkBench)  FireScreenNotifyMessage((IPTR) screen, SNOTIFY_BEFORE_CLOSESCREEN, IntuitionBase);
  92
  93
  94     /* there's a second check below for public screens */
  95     if (screen->FirstWindow)
  96     {
  97         D(bug("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     /* kill screen bar */
 129     KillScreenBar(screen, IntuitionBase);
 130
 131     /* kill depth gadget */
 132     if (((struct IntScreen *)screen)->depthgadget)
 133     {
 134         Object *im = (Object*)((struct Gadget *)(((struct IntScreen *)screen)->depthgadget))->GadgetRender;
 135
 136         DisposeObject(im);
 137         DisposeObject(((struct IntScreen *)screen)->depthgadget);
 138     }
 139
 140 #ifdef __MORPHOS__
 141     RethinkDisplay();
 142
 143     FreeVPortCopLists(&screen->ViewPort);
 144
 145     {
 146         struct TagItem tags[2];
 147
 148         tags[0].ti_Tag = VTAG_ATTACH_CM_GET;
 149         tags[0].ti_Data = 0;
 150         tags[1].ti_Tag = VTAG_END_CM;
 151
 152         if (VideoControl(screen->ViewPort.ColorMap, tags))
 153         {
 154             GfxFree((APTR)tags[0].ti_Data);
 155         }
 156     }
 157 #else
 158 /* !!! Setting a new front bitmap MUST be done before freeing the old one */
 159     if (NULL != IntuitionBase->FirstScreen)
 160     {
 161         /* We MUST pas FALSE in the "copyback" parameter
 162         since the old screen bitmap has been deleted
 163         */
 164         SetFrontBitMap(IntuitionBase->FirstScreen->RastPort.BitMap, FALSE);
 165
 166     }
 167     else
 168     {
 169         SetFrontBitMap(NULL, FALSE);
 170     }
 171 #endif
 172
 173 #ifdef USEWINDOWLOCK
 174     ReleaseSemaphore(&GetPrivIBase(IntuitionBase)->WindowLock);
 175 #endif
 176
 177     /* Free the RasInfo of the viewport */
 178     FreeMem(screen->ViewPort.RasInfo, sizeof (struct RasInfo));
 179
 180     /* Uninit the layerinfo */
 181
 182     ThinLayerInfo(&screen->LayerInfo);
 183
 184     /* Free the screen's bitmap */
 185
 186     if (GetPrivScreen(screen)->AllocatedBitmap)
 187         FreeBitMap(GetPrivScreen(screen)->AllocatedBitmap);
 188     screen->RastPort.BitMap = NULL;
 189
 190     /* Free the RastPort's contents */
 191     DeinitRastPort(&screen->RastPort);
 192
 193     DisposeObject(((struct IntScreen *)screen)->DInfo.dri_ScrDecorObj);
 194     DisposeObject(((struct IntScreen *)screen)->DInfo.dri_WinDecorObj);
 195
 196 #ifdef SKINS
 197     if (((struct IntScreen *)screen)->DInfo.dri_Customize)
 198     {
 199         /* Free the skin */
 200         DisposeObject(((struct IntScreen *)screen)->DInfo.dri_Customize->submenu);
 201         DisposeObject(((struct IntScreen *)screen)->DInfo.dri_Customize->menutoggle);
 202         int_SkinAction(SKA_FreeSkin,(ULONG*)&((struct IntScreen *)(screen))->DInfo,(struct Screen *)screen,IntuitionBase);
 203         int_FreeTitlebarBuffer(((struct IntScreen *)(screen)),IntuitionBase);
 204         FreeMem(((struct IntScreen *)screen)->DInfo.dri_Customize,sizeof (struct IntuitionCustomize));
 205     }
 206 #endif
 207
 208     DisposeObject(((struct IntScreen *)screen)->DInfo.dri.dri_CheckMark);
 209     DisposeObject(((struct IntScreen *)screen)->DInfo.dri.dri_AmigaKey);
 210
 211     /* Close the font */
 212     CloseFont(((struct IntScreen *)screen)->DInfo.dri.dri_Font);
 213
 214     /* Free the ColorMap */
 215     FreeColorMap(screen->ViewPort.ColorMap);
 216
 217     /* Free the sprite */
 218     ReleaseSharedPointer(((struct IntScreen *)screen)->Pointer, IntuitionBase);
 219
 220     /* Free the memory */
 221     FreeMem(screen, sizeof (struct IntScreen));
 222
 223     if (screen != GetPrivIBase(IntuitionBase)->WorkBench) FireScreenNotifyMessage((IPTR) screen, SNOTIFY_AFTER_CLOSESCREEN, IntuitionBase);
 224
 225     DEBUG_CLOSESCREEN(dprintf("CloseScreen: ok\n"));
 226
 227     ReturnBool("CloseScreen",TRUE);
 228
 229     AROS_LIBFUNC_EXIT
 230 } /* CloseScreen */
 231
 232 static VOID int_closescreen(struct CloseScreenActionMsg *msg,
 233                             struct IntuitionBase *IntuitionBase)
 234 {
 235     struct Screen *parent,*screen = msg->Screen;
 236     struct Window *win = 0;
 237     ULONG          lock;
 238
 239     /* If this is a public screen, free related information if there are
 240        no windows left on the screen */
 241     if (GetPrivScreen(screen)->pubScrNode != NULL)
 242     {
 243         if(GetPrivScreen(screen)->pubScrNode->psn_VisitorCount || screen->FirstWindow)
 244         {
 245             DEBUG_CLOSESCREEN(dprintf("CloseScreen: failed\n"));
 246             return;
 247         }
 248
 249         Remove((struct Node *)GetPrivScreen(screen)->pubScrNode);
 250
 251         if(GetPrivScreen(screen)->pubScrNode->psn_Node.ln_Name != NULL)
 252             FreeVec(GetPrivScreen(screen)->pubScrNode->psn_Node.ln_Name);
 253
 254         FreeMem(GetPrivScreen(screen)->pubScrNode,
 255                 sizeof(struct PubScreenNode));
 256
 257         GetPrivScreen(screen)->pubScrNode = 0;
 258     }
 259
 260     RemoveResourceFromList(screen, RESOURCE_SCREEN, IntuitionBase);
 261
 262     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockIBase\n"));
 263
 264     lock = LockIBase(0);
 265
 266     DEBUG_CLOSESCREEN(dprintf("CloseScreen: LockIBase done\n"));
 267
 268     /* Trick: Since NextScreen is the first field of the structure,
 269     we can use the pointer in the IntuitionBase as a screen with
 270     the structure-size of one pointer */
 271     parent = (struct Screen *)&(IntuitionBase->FirstScreen);
 272
 273     /* For all screens... */
 274     while (parent->NextScreen)
 275     {
 276         /* If the screen to close is the next screen... */
 277         if (parent->NextScreen == screen)
 278         {
 279
 280             /* Unlink it */
 281             parent->NextScreen = screen->NextScreen;
 282
 283             /* Check ActiveScreen */
 284             if (IntuitionBase->ActiveScreen == screen)
 285             {
 286                 if (screen->NextScreen)
 287                     IntuitionBase->ActiveScreen = screen->NextScreen;
 288                 else if (IntuitionBase->FirstScreen)
 289                     IntuitionBase->ActiveScreen = parent;
 290                 else
 291                     IntuitionBase->ActiveScreen = NULL;
 292             }
 293
 294             /* now let's set the default pub screen */
 295             if (GetPrivIBase(IntuitionBase)->DefaultPubScreen == screen)
 296             {
 297                 struct Screen *scr;
 298                 BOOL nexttry = TRUE;
 299
 300                 GetPrivIBase(IntuitionBase)->DefaultPubScreen = NULL;
 301                 scr = IntuitionBase->FirstScreen;
 302
 303                 if (scr && GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_DEFPUBSCREEN && GetPrivScreen(scr)->pubScrNode && (scr->Flags & (PUBLICSCREEN | WBENCHSCREEN)))
 304                 {
 305                     GetPrivIBase(IntuitionBase)->DefaultPubScreen = scr;
 306                 }
 307             }
 308
 309             DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase\n"));
 310             UnlockIBase(lock);
 311             DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase done\n"));
 312
 313 #ifdef TIMEVALWINDOWACTIVATION
 314             if (IntuitionBase->FirstScreen && ((GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_SCREENACTIVATION) || !IntuitionBase->ActiveWindow))
 315             {
 316                 struct Window *scanw = 0;
 317
 318                 for (scanw = IntuitionBase->FirstScreen->FirstWindow; scanw ; scanw = scanw->NextWindow)
 319                 {
 320                     if (win)
 321                     {
 322                         if ((IW(scanw)->activationtime.tv_secs > IW(win)->activationtime.tv_secs) ||
 323                             ((IW(scanw)->activationtime.tv_secs == IW(win)->activationtime.tv_secs) && (IW(scanw)->activationtime.tv_micro > IW(win)->activationtime.tv_micro)))
 324                         {
 325                             win = scanw;
 326                         }
 327                     }
 328
 329                     if (!win) win = scanw;
 330                 }
 331
 332                 if (!win) win = IntuitionBase->FirstScreen->FirstWindow;
 333                 if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_SCREENACTIVATION)
 334                     if (IntuitionBase->ActiveWindow && IntuitionBase->ActiveWindow->WScreen == IntuitionBase->FirstScreen) win = NULL;
 335                 if (win) ActivateWindow(win);
 336             }
 337 #endif
 338             return;
 339         }
 340         parent = parent->NextScreen;
 341     }
 342
 343     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase\n"));
 344     UnlockIBase(lock);
 345     DEBUG_CLOSESCREEN(dprintf("CloseScreen: UnLockIBase done\n"));
 346
 347     return;
 348 }