workbench/libs/gadtools/gadtools_init.c

   1 /*
   2     Copyright © 1995-2006, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: GadTools initialization code.
   6     Lang: English.
   7 */
   8 #include <exec/libraries.h>
   9 #include <exec/types.h>
  10
  11 #include <aros/symbolsets.h>
  12 #include <utility/tagitem.h>
  13 #include <utility/utility.h>
  14 #include <intuition/classes.h>
  15 #include <intuition/imageclass.h>
  16 #include <proto/exec.h>
  17
  18 #include "gadtools_intern.h"
  19 #include LC_LIBDEFS_FILE
  20
  21 #ifndef INTUITIONNAME
  22 #define INTUITIONNAME "intuition.library"
  23 #endif
  24 /****************************************************************************************/
  25
  26 static int openall(LIBBASETYPEPTR LIBBASE)
  27 {
  28     if ((UtilityBase = OpenLibrary("utility.library", 0)) != NULL) {
  29         if ((GfxBase = OpenLibrary("graphics.library", 0)) != NULL) {
  30             if ((LayersBase = OpenLibrary("layers.library", 0)) != NULL) {
  31                 if ((IntuitionBase = OpenLibrary("intuition.library", 0)) != NULL) {
  32                     return TRUE;
  33                 }
  34                 CloseLibrary(LayersBase);
  35             }
  36             CloseLibrary(GfxBase);
  37         }
  38         CloseLibrary(UtilityBase);
  39     }
  40     return FALSE;
  41 }
  42
  43 static void closeall(LIBBASETYPEPTR LIBBASE)
  44 {
  45     CloseLibrary(IntuitionBase);
  46     CloseLibrary(LayersBase);
  47     CloseLibrary(GfxBase);
  48     CloseLibrary(UtilityBase);
  49 }
  50
  51 static int InitRootClass(LIBBASETYPEPTR LIBBASE)
  52 {
  53     return openall(LIBBASE);
  54 }
  55
  56 static int Init(LIBBASETYPEPTR LIBBASE)
  57 {
  58     /* This function is single-threaded by exec by calling Forbid. */
  59     InitSemaphore(&LIBBASE->bevelsema);
  60     LIBBASE->bevel = NULL;
  61
  62     /* You would return NULL here if the init failed. */
  63     return TRUE;
  64 }
  65
  66 /****************************************************************************************/
  67
  68 Object *makebevelobj(struct GadToolsBase_intern *GadToolsBase)
  69 {
  70     Object * obj;
  71     struct TagItem tags[4];
  72
  73     tags[0].ti_Tag  = IA_EdgesOnly;
  74     tags[0].ti_Data = TRUE;
  75     tags[1].ti_Tag  = IA_Left;
  76     tags[1].ti_Data = 0UL;
  77     tags[2].ti_Tag  = IA_Top;
  78     tags[2].ti_Data = 0UL;
  79     tags[3].ti_Tag  = TAG_DONE;
  80     obj = NewObjectA(NULL, FRAMEICLASS, tags);
  81
  82     return obj;
  83 }
  84
  85 /****************************************************************************************/
  86
  87 static int Open(LIBBASETYPEPTR LIBBASE)
  88 {
  89     /*
  90         This function is single-threaded by exec by calling Forbid.
  91         If you break the Forbid() another task may enter this function
  92         at the same time. Take care.
  93     */
  94
  95     if (!LIBBASE->bevel)
  96         LIBBASE->bevel = (struct Image *)makebevelobj(GadToolsBase);
  97     if (!LIBBASE->bevel)
  98         return FALSE;
  99
 100     return TRUE;
 101 }
 102
 103 /****************************************************************************************/
 104
 105 static int Expunge(LIBBASETYPEPTR LIBBASE)
 106 {
 107     /*
 108         This function is single-threaded by exec by calling Forbid.
 109         If you break the Forbid() another task may enter this function
 110         at the same time. Take care.
 111     */
 112
 113     if (LIBBASE->bevel)
 114         DisposeObject(LIBBASE->bevel);
 115     LIBBASE->bevel = NULL;
 116
 117     closeall(LIBBASE);
 118
 119     return TRUE;
 120 }
 121
 122 /****************************************************************************************/
 123
 124 DECLARESET(CLASSESINIT);
 125 ADD2SET(InitRootClass, CLASSESINIT, -20);
 126
 127 ADD2INITLIB(Init, 0);
 128 ADD2OPENLIB(Open, 0);
 129 ADD2EXPUNGELIB(Expunge, 0);