workbench/libs/muiscreen/closepubscreen.c

   1 /*
   2     Copyright © 2009-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <libraries/muiscreen.h>
   7 #include <proto/intuition.h>
   8 #include <intuition/screens.h>
   9 #include <proto/intuition.h>
  10 #include <proto/exec.h>
  11 #include <exec/lists.h>
  12 #include <string.h>
  13 #define DEBUG 1
  14 #include <aros/debug.h>
  15
  16 #include "muiscreen_intern.h"
  17
  18 /*****************************************************************************
  19
  20     NAME */
  21 #include <proto/muiscreen.h>
  22
  23         AROS_LH1(BOOL, MUIS_ClosePubScreen,
  24
  25 /*  SYNOPSIS */
  26         AROS_LHA(char *, name,  A0),
  27
  28 /*  LOCATION */
  29         struct MUIScreenBase_intern *, MUIScreenBase, 8, MUIScreen)
  30
  31 /*  FUNCTION
  32
  33     INPUTS
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47 ******************************************************************************/
  48
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     struct List *pubscrlist;
  53     struct PubScreenNode *pubscrnode;
  54     BOOL found = FALSE;
  55     BOOL retval = FALSE;
  56
  57     D(bug("MUIS_ClosePubScreen(%s)\n", name));
  58
  59     pubscrlist = LockPubScreenList();
  60     ForeachNode(pubscrlist, pubscrnode)
  61     {
  62         if(strcmp(pubscrnode->psn_Node.ln_Name, name) == 0)
  63         {
  64             found = TRUE;
  65             break;
  66         }
  67     }
  68     UnlockPubScreenList();
  69
  70     if(found)
  71     {
  72         PubScreenStatus(pubscrnode->psn_Screen, PSNF_PRIVATE);
  73         CloseScreen(pubscrnode->psn_Screen);
  74
  75         struct Node *node;
  76         ForeachNode(&MUIScreenBase->clients, node)
  77         {
  78             struct MUIS_InfoClient *client = (struct MUIS_InfoClient*) node;
  79             Signal(client->task, client->sigbit);
  80         }
  81
  82         retval = TRUE;
  83     }
  84
  85     return retval;
  86
  87     AROS_LIBFUNC_EXIT
  88 }