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