rom/intuition/closeworkbench.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
   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     wbscreen = GetPrivIBase(IntuitionBase)->WorkBench;
  58     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Workbench Screen 0x%p\n", wbscreen));
  59
  60     if (wbscreen) FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_BEFORE_CLOSEWB, IntuitionBase);
  61
  62     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList\n"));
  63     LockPubScreenList();
  64     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList done\n"));
  65
  66     if (!wbscreen)
  67     {
  68         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: no wbscreen, do nothing\n"));
  69         UnlockPubScreenList();
  70
  71         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_OPENWB, IntuitionBase);
  72
  73         return(FALSE);
  74     }
  75     else
  76     {
  77         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Workbench Screen's pubnode 0x%lx\n",
  78                                      (ULONG) GetPrivScreen(wbscreen)->pubScrNode));
  79         if (GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount != 0)
  80         {
  81             DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: visitor count %ld, do nothing\n",
  82                                          (ULONG) GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount));
  83             retval = FALSE;
  84         }
  85     }
  86
  87     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnlockPubScreenList\n"));
  88     UnlockPubScreenList();
  89     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnlockPubScreenList done\n"));
  90
  91     /* If there is a Workbench process running, tell it to close its windows. */
  92
  93     /* Don't call this function while pub screen list is locked! */
  94
  95     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Tell WB to close windows\n"));
  96     TellWBTaskToCloseWindows(IntuitionBase);
  97
  98     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList\n"));
  99     LockPubScreenList();
 100     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList done\n"));
 101
 102     wbscreen = GetPrivIBase(IntuitionBase)->WorkBench;
 103
 104     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: current wbscreen 0x%lx\n",
 105                                  (ULONG) wbscreen));
 106
 107     /* Try to close the Workbench screen, if there is any. */
 108     if( wbscreen != NULL )
 109     {
 110         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: CloseScreen\n"));
 111         if (CloseScreen(wbscreen))
 112         {
 113             DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: CloseScreen worked\n"));
 114             GetPrivIBase(IntuitionBase)->WorkBench = NULL;
 115             wbscreen = NULL;
 116             retval = TRUE;
 117         }
 118         else
 119         {
 120             /* Grrr ... closing screen failed. I inc psn_VisitorCount by hand here,
 121              * to avoid that someone else can kill it, because I must tell Workbench
 122              * task that it shall open its windows again
 123              */
 124
 125             DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: CloseScreen failed\n"));
 126             GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount++;
 127             retval = FALSE;
 128         }
 129     }
 130     else
 131     {
 132         retval = FALSE;
 133     }
 134
 135     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList\n"));
 136     UnlockPubScreenList();
 137     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList done\n"));
 138
 139     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: wbscreen 0x%lx retval %ld\n",
 140                                  (ULONG) wbscreen,
 141                                  (ULONG) retval));
 142     if (wbscreen && !retval)
 143     {
 144         /* Don't call this function while pub screen list is locked! */
 145         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Tell WB to reopen windows\n"));
 146         TellWBTaskToOpenWindows(IntuitionBase);
 147
 148         /* Fix psn_VisitorCount which was increased above */
 149         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList\n"));
 150         LockPubScreenList();
 151         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: LockPubScreenList done\n"));
 152         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: WBScreen's pubnode 0x%lx\n",
 153                                      (ULONG) GetPrivScreen(wbscreen)->pubScrNode));
 154         GetPrivScreen(wbscreen)->pubScrNode->psn_VisitorCount--;
 155         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList\n"));
 156         UnlockPubScreenList();
 157         DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: UnLockPubScreenList done\n"));
 158     }
 159
 160     DEBUG_CLOSEWORKBENCH(dprintf("CloseWorkBench: Return %d\n", retval));
 161
 162     if (!retval)
 163     {
 164         /* Workbench screen failed to close, notify that the screen is open again */
 165         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_OPENWB, IntuitionBase);
 166     }
 167     else
 168     {
 169         FireScreenNotifyMessage((IPTR) wbscreen, SNOTIFY_AFTER_CLOSEWB, IntuitionBase);
 170     }
 171
 172     return retval;
 173
 174     AROS_LIBFUNC_EXIT
 175
 176 } /* CloseWorkBench */