workbench/libs/muimaster/muimaster_init-aros.c

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