rom/intuition/closeworkbench.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5 */
   6
   7 #include "intuition_intern.h"
   8
   9 #include <intuition/intuition.h>
  10 #include <proto/intuition.h>
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15         AROS_LH0(LONG, CloseWorkBench,
  16
  17 /*  SYNOPSIS */
  18
  19 /*  LOCATION */
  20         struct IntuitionBase *, IntuitionBase, 13, Intuition)
  21
  22 /*  FUNCTION
  23         Attempt to close the Workbench screen. This will fail if there are any
  24         non-Drawer windows open on it.
  25
  26     INPUTS
  27
  28     RESULT
  29         success - TRUE if Workbench screen could be closed.
  30
  31     NOTES
  32         If the Workbench screen is already closed when this function is called,
  33         FALSE is returned.
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40         OpenWorkBench()
  41
  42     INTERNALS
  43
  44 *****************************************************************************/
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     struct Screen *wbscreen;
  49     BOOL           retval = TRUE;
  50
  51     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: <%s>\n",
  52                                  FindTask(NULL)->tc_Node.ln_Name));
  53
  54     wbscreen = GetPrivIBase(IntuitionBase)->WorkBench;
  55     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Workbench Screen 0x%p\n", wbscreen));
  56
  57     if (wbscreen) FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_BEFORE_CLOSEWB, IntuitionBase);
  58
  59     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList\n"));
  60     LockPubScreenList();
  61     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList done\n"));
  62
  63     if (!wbscreen)
  64     {
  65         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: no wbscreen, do nothing\n"));
  66         UnlockPubScreenList();
  67
  68         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_OPENWB, IntuitionBase);
  69
  70         return(FALSE);
  71     }
  72     else
  73     {
  74         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Workbench Screen's pubnode 0x%lx\n",
  75                                      (ULONG) GetPrivScreen(wbscreen)->pubScrNode));
  76         if (GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount != 0)
  77         {
  78             DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: visitor count %ld, do nothing\n",
  79                                          (ULONG) GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount));
  80             retval = FALSE;
  81         }
  82     }
  83
  84     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnlockPubScreenList\n"));
  85     UnlockPubScreenList();
  86     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnlockPubScreenList done\n"));
  87
  88     /* If there is a Workbench process running, tell it to close its windows. */
  89
  90     /* Don't call this function while pub screen list is locked! */
  91
  92     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Tell WB to close windows\n"));
  93     TellWBTaskToCloseWindows(IntuitionBase);
  94
  95     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList\n"));
  96     LockPubScreenList();
  97     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList done\n"));
  98
  99     wbscreen = GetPrivIBase(IntuitionBase)->WorkBench;
 100
 101     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: current wbscreen 0x%lx\n",
 102                                  (ULONG) wbscreen));
 103
 104     /* Try to close the Workbench screen, if there is any. */
 105     if( wbscreen != NULL )
 106     {
 107         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: CloseScreen\n"));
 108         if (CloseScreen(wbscreen))
 109         {
 110             DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: CloseScreen worked\n"));
 111             GetPrivIBase(IntuitionBase)->WorkBench = NULL;
 112             wbscreen = NULL;
 113             retval = TRUE;
 114         }
 115         else
 116         {
 117             /* Grrr ... closing screen failed. I inc psn_VisitorCount by hand here,
 118              * to avoid that someone else can kill it, because I must tell Workbench
 119              * task that it shall open its windows again
 120              */
 121
 122             DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: CloseScreen failed\n"));
 123             GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount++;
 124             retval = FALSE;
 125         }
 126     }
 127     else
 128     {
 129         retval = FALSE;
 130     }
 131
 132     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList\n"));
 133     UnlockPubScreenList();
 134     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList done\n"));
 135
 136     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: wbscreen 0x%lx retval %ld\n",
 137                                  (ULONG) wbscreen,
 138                                  (ULONG) retval));
 139     if (wbscreen && !retval)
 140     {
 141         /* Don't call this function while pub screen list is locked! */
 142         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Tell WB to reopen windows\n"));
 143         TellWBTaskToOpenWindows(IntuitionBase);
 144
 145         /* Fix psn_VisitorCount which was increased above */
 146         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList\n"));
 147         LockPubScreenList();
 148         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList done\n"));
 149         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: WBScreen's pubnode 0x%lx\n",
 150                                      (ULONG) GetPrivScreen(wbscreen)->pubScrNode));
 151         GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount--;
 152         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList\n"));
 153         UnlockPubScreenList();
 154         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList done\n"));
 155     }
 156
 157     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Return %d\n", retval));
 158
 159     if (!retval)
 160     {
 161         /* Workbench screen failed to close, notify that the screen is open again */
 162         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_OPENWB, IntuitionBase);
 163     }
 164     else
 165     {
 166         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_CLOSEWB, IntuitionBase);
 167     }
 168
 169     return retval;
 170
 171     AROS_LIBFUNC_EXIT
 172
 173 } /* CloseWorkBench */