rom/intuition/openscreentaglist.c

   1 /*
   2     Copyright © 1995-2007, 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 <utility/tagitem.h>
  13 #include <intuition/screens.h>
  14 #include <proto/intuition.h>
  15
  16 AROS_LH2(struct Screen *, OpenScreenTagList,
  17
  18          /*  SYNOPSIS */
  19          AROS_LHA(struct NewScreen *, newScreen, A0),
  20          AROS_LHA(struct TagItem   *, tagList, A1),
  21
  22          /*  LOCATION */
  23          struct IntuitionBase *, IntuitionBase, 102, Intuition)
  24
  25 /*  FUNCTION
  26
  27     INPUTS
  28
  29     RESULT
  30
  31     NOTES
  32
  33     EXAMPLE
  34
  35     BUGS
  36
  37     SEE ALSO
  38
  39     INTERNALS
  40
  41     HISTORY
  42     29-10-95    digulla automatically created from
  43                 intuition_lib.fd and clib/intuition_protos.h
  44
  45 *****************************************************************************/
  46 {
  47     AROS_LIBFUNC_INIT
  48
  49     struct ExtNewScreen ns =
  50     {
  51         0, 0, -1, -1, 1,            /* left, top, width, height, depth */
  52         0, 1,                       /* DetailPen, BlockPen */
  53         HIRES | LACE,               /* ViewModes */
  54         CUSTOMSCREEN | SHOWTITLE,   /* Type */
  55         NULL,                       /* Font */
  56         NULL,                       /* DefaultTitle */
  57         NULL,                       /* Gadgets */
  58         NULL,                       /* CustomBitMap */
  59         NULL                        /* Extension (taglist) */
  60     };
  61
  62     DEBUG_OPENSCREENTAGLIST(dprintf("OpenScreenTagList: NewScreen 0x%lx Tags 0x%lx\n",
  63                                     newScreen, tagList));
  64     ns.DetailPen = GetPrivIBase(IntuitionBase)->DriPens4[DETAILPEN];
  65     ns.BlockPen  = GetPrivIBase(IntuitionBase)->DriPens4[BLOCKPEN];
  66
  67     if (newScreen)
  68         CopyMem (newScreen, &ns, (newScreen->Type & NS_EXTENDED) ? sizeof (struct ExtNewScreen) :
  69                  sizeof (struct NewScreen));
  70
  71     if (tagList)
  72     {
  73         ns.Extension = tagList;
  74         ns.Type |= NS_EXTENDED;
  75     }
  76
  77 #ifdef __MORPHOS__
  78     /* calling OpenScreen through the library vector causes a loop with cgx's patch. */
  79     {
  80         extern ULONG LIB_OpenScreen(void);
  81
  82         REG_A0 = (LONG)&ns;
  83         REG_A6 = (LONG)IntuitionBase;
  84
  85         return (struct Screen *) LIB_OpenScreen();
  86     }
  87 #else
  88     return OpenScreen ((struct NewScreen *)&ns);
  89 #endif
  90
  91     AROS_LIBFUNC_EXIT
  92
  93 } /* OpenScreenTagList */