rom/intuition/closeworkbench.c

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