rom/intuition/lateintuiinit.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     Late initialization of intuition.
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/intuition.h>
  11 #include <proto/graphics.h>
  12 #include <proto/layers.h>
  13 #include <proto/alib.h>
  14
  15 #include <exec/alerts.h>
  16 #include <exec/types.h>
  17
  18 #include <aros/config.h>
  19 #include <aros/libcall.h>
  20 #include "intuition_intern.h"
  21
  22 /*****i***********************************************************************
  23
  24     NAME */
  25 #include <graphics/rastport.h>
  26 #include <proto/graphics.h>
  27
  28     AROS_LH1(BOOL, LateIntuiInit,
  29
  30 /*  SYNOPSIS */
  31          AROS_LHA(APTR, data, A0),
  32
  33 /*  LOCATION */
  34          struct IntuitionBase *, IntuitionBase, 150, Intuition)
  35
  36 /*  FUNCTION
  37     This function permits late initalization
  38     of intuition (After dos and after graphics hidds are setup,
  39     but before starup-sequence is run.
  40     Can be used to open workbench screen.
  41
  42     INPUTS
  43     data - unused for now.
  44
  45     RESULT
  46     success - TRUE if initialization went, FALSE otherwise.
  47
  48     NOTES
  49     This function is private and AROS specific.
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56
  57     INTERNALS
  58
  59 *****************************************************************************/
  60 {
  61     AROS_LIBFUNC_INIT
  62
  63     /* shut up the compiler */
  64     data = data;
  65
  66     /* setup pointers */
  67     GetPrivIBase(IntuitionBase)->DefaultPointer = MakePointerFromPrefs
  68     (
  69         IntuitionBase, GetPrivIBase(IntuitionBase)->ActivePreferences
  70     );
  71     GetPrivIBase(IntuitionBase)->BusyPointer = MakePointerFromPrefs
  72     (
  73         IntuitionBase, GetPrivIBase(IntuitionBase)->ActivePreferences
  74     );
  75
  76     if
  77     (
  78            !GetPrivIBase(IntuitionBase)->DefaultPointer
  79         || !GetPrivIBase(IntuitionBase)->BusyPointer
  80     )
  81     {
  82         return FALSE;
  83     }
  84
  85     return TRUE;
  86
  87     AROS_LIBFUNC_EXIT
  88 } /* LateIntuiInit() */