rom/intuition/setdefaultpubscreen.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 /*****************************************************************************
  10
  11     NAME */
  12 #include <proto/intuition.h>
  13
  14 AROS_LH1(void, SetDefaultPubScreen,
  15
  16          /*  SYNOPSIS */
  17          AROS_LHA(UBYTE *, name, A0),
  18
  19          /*  LOCATION */
  20          struct IntuitionBase *, IntuitionBase, 90, Intuition)
  21
  22 /*  FUNCTION
  23
  24     Specifies the default public screen for visitor windows to open up on.
  25         The screen is used when a requested public screen is not available
  26     and the FALLBACK option is enabled or when the visitor window asks for
  27     the default public screen.
  28
  29     INPUTS
  30
  31     name  --  The name of the public screen that should be used as default,
  32               or NULL to specify the Workbench screen.
  33
  34     RESULT
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     OpenWindow(), OpenScreen()
  45
  46     INTERNALS
  47
  48     HISTORY
  49     29-10-95    digulla automatically created from
  50                 intuition_lib.fd and clib/intuition_protos.h
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55     AROS_LIBBASE_EXT_DECL(struct IntuitionBase *,IntuitionBase)
  56
  57     //ignored for defpubscreen patch
  58     if (GetPrivIBase(IntuitionBase)->IControlPrefs.ic_Flags & ICF_DEFPUBSCREEN) return;
  59
  60     if (name)
  61     {
  62         struct PubScreenNode * psn;
  63
  64         if ((psn = (struct PubScreenNode *)FindName (LockPubScreenList(), name)))
  65             GetPrivIBase(IntuitionBase)->DefaultPubScreen = psn->psn_Screen;
  66
  67         UnlockPubScreenList();
  68     }
  69     else
  70         GetPrivIBase(IntuitionBase)->DefaultPubScreen = NULL;
  71
  72     AROS_LIBFUNC_EXIT
  73 } /* SetDefaultPubScreen */