workbench/libs/muimaster/muimaster_init-aros.c

   1 /*
   2     Copyright © 2002-2015, The AROS Development Team.
   3     All rights reserved.
   4
   5     $Id$
   6 */
   7
   8 #include <proto/exec.h>
   9 #include <proto/graphics.h>
  10
  11 #include <clib/alib_protos.h>
  12
  13 #include "muimaster_intern.h"
  14
  15 #include <aros/symbolsets.h>
  16
  17 #include LC_LIBDEFS_FILE
  18
  19 struct Library *MUIMasterBase;
  20
  21 static struct TextAttr topaz8Attr =
  22     { "topaz.font", 8, FS_NORMAL, FPF_ROMFONT, };
  23
  24
  25 static int MUIMasterInit(LIBBASETYPEPTR lh)
  26 {
  27     MUIMasterBase = (struct Library *)lh;
  28
  29     InitSemaphore(&MUIMB(lh)->ZuneSemaphore);
  30
  31     NewList((struct List *)&MUIMB(lh)->BuiltinClasses);
  32     NewList((struct List *)&MUIMB(lh)->Applications);
  33
  34     MUIMB(lh)->topaz8font = OpenFont(&topaz8Attr);
  35
  36     /* Attempt to allocate memory locations corresponding to Notify class's
  37      * special values (to avoid clashes) */
  38     MUIMB(lh)->SpecialMemory = AllocAbs(4, (APTR)MUIV_TriggerValue);
  39
  40     return TRUE;
  41 }
  42
  43 static int MUIMasterExpunge(LIBBASETYPEPTR lh)
  44 {
  45     MUIMasterBase = (struct Library *)lh;
  46
  47     if (MUIMB(lh)->SpecialMemory != NULL)
  48         FreeMem(MUIMB(lh)->SpecialMemory, 4);
  49
  50     if (MUIMB(lh)->topaz8font != NULL)
  51         CloseFont(MUIMB(lh)->topaz8font);
  52
  53     return TRUE;
  54 }
  55
  56 ADD2INITLIB(MUIMasterInit, 0)
  57 ADD2EXPUNGELIB(MUIMasterExpunge, 0)