workbench/c/iprefs/fontprefs.c

   1 /*
   2     Copyright © 1995-2008, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*********************************************************************************************/
  10
  11 #include "global.h"
  12
  13 #include <prefs/prefhdr.h>
  14 #include <prefs/font.h>
  15
  16 #define DEBUG 0
  17 #include <aros/debug.h>
  18
  19 /*********************************************************************************************/
  20
  21 struct FileFontPrefs
  22 {
  23     UBYTE   fp_Reserved[4 * 3];
  24     UBYTE   fp_Reserved2[2];
  25     UBYTE   fp_Type[2];
  26     UBYTE   fp_FrontPen;
  27     UBYTE   fp_BackPen;
  28     UBYTE   fp_Drawmode;
  29     UBYTE   fp_pad;
  30     UBYTE   fp_TextAttr_ta_Name[4];
  31     UBYTE   fp_TextAttr_ta_YSize[2];
  32     UBYTE   fp_TextAttr_ta_Style;
  33     UBYTE   fp_TextAttr_ta_Flags;
  34     BYTE    fp_Name[FONTNAMESIZE];
  35 };
  36
  37 /*********************************************************************************************/
  38
  39 LONG stopchunks[] =
  40 {
  41     ID_PREF, ID_FONT
  42 };
  43
  44 /*********************************************************************************************/
  45
  46 void FontPrefs_Handler(STRPTR filename)
  47 {
  48     struct IFFHandle *iff;
  49
  50     D(bug("In IPrefs:FontPrefs_Handler\n"));
  51
  52     if ((iff = CreateIFF(filename, stopchunks, 1)))
  53     {
  54         while(ParseIFF(iff, IFFPARSE_SCAN) == 0)
  55         {
  56             struct ContextNode   *cn;
  57             struct FileFontPrefs fontprefs;
  58
  59             cn = CurrentChunk(iff);
  60
  61             D(bug("FontPrefs_Handler: ParseIFF okay. Chunk Type = %c%c%c%c  ChunkID = %c%c%c%c\n",
  62                   cn->cn_Type >> 24,
  63                   cn->cn_Type >> 16,
  64                   cn->cn_Type >> 8,
  65                   cn->cn_Type,
  66                   cn->cn_ID >> 24,
  67                   cn->cn_ID >> 16,
  68                   cn->cn_ID >> 8,
  69                   cn->cn_ID));
  70
  71             if ((cn->cn_ID == ID_FONT) && (cn->cn_Size == sizeof(fontprefs)))
  72             {
  73                 D(bug("FontPrefs_Handler: ID_FONT chunk with correct size found.\n"));
  74
  75                 if (ReadChunkBytes(iff, &fontprefs, sizeof(fontprefs)) == sizeof(fontprefs))
  76                 {
  77                     struct TextAttr ta;
  78                     struct TextFont *font;
  79                     UWORD           type;
  80
  81                     D(bug("FontPrefs_Handler: Reading of ID_FONT chunk okay.\n"));
  82
  83                     type = (fontprefs.fp_Type[0] << 8) + fontprefs.fp_Type[1];
  84
  85                     D(bug("Type = %d  Name = %s\n", type, fontprefs.fp_Name));
  86
  87                     ta.ta_Name  = fontprefs.fp_Name;
  88                     ta.ta_YSize = (fontprefs.fp_TextAttr_ta_YSize[0] << 8) +
  89                                   fontprefs.fp_TextAttr_ta_YSize[1];
  90                     ta.ta_Style = fontprefs.fp_TextAttr_ta_Style;
  91                     ta.ta_Flags = fontprefs.fp_TextAttr_ta_Flags;
  92
  93                     switch(type)
  94                     {
  95                         case FP_SYSFONT:
  96                             if ((font = OpenDiskFont(&ta)))
  97                             {
  98                                 if (font->tf_Flags & FPF_PROPORTIONAL)
  99                                 {
 100                                     D(bug("FontPrefs_Handler: FP_SYSFONT Font is proportional although it may not be!\n"));
 101                                     CloseFont(font);
 102                                 }
 103                                 else
 104                                 {
 105                                     Forbid();
 106                                     GfxBase->DefaultFont = font;
 107                                     Permit();
 108
 109                                     D(bug("FontPrefs_Handler: Installed new system font!\n"));
 110                                 }
 111                             }
 112                             else
 113                             {
 114                                 D(bug("FontPrefs_Handler: Could not open font!\n"));
 115                             }
 116                             break;
 117
 118                         case FP_SCREENFONT:
 119                             if ((font = OpenDiskFont(&ta)))
 120                             {
 121                                 BOOL closed = FALSE, cancel = FALSE;
 122                                 TEXT screen_name[MAXPUBSCREENNAME + 1];
 123
 124                                 SetDefaultScreenFont(font);
 125                                 D(bug("FontPrefs_Handler: Installed new screen font!\n"));
 126
 127                                 /* Keep trying to close WB screen unless user
 128                                    cancels or it wasn't open in the first
 129                                    place */
 130                                 while (!(closed || cancel ||
 131                                     NextPubScreen(NULL, screen_name) == NULL))
 132                                 {
 133                                     closed = CloseWorkBench();
 134                                     if (!closed)
 135                                         cancel = ShowMessage("System Request",
 136                                             "Intuition is attempting to reset"
 137                                             " the Workbench Screen.\n"
 138                                             "Please close all windows,"
 139                                             " except drawers.",
 140                                             "Retry|Cancel") == 0;
 141                                 }
 142                                 if (closed)
 143                                     OpenWorkBench();
 144                             }
 145                             else
 146                             {
 147                                 D(bug("FontPrefs_Handler: Could not open font!\n"));
 148                             }
 149                             break;
 150
 151                         case FP_WBFONT:
 152                             /* Hmm ... should IPrefs handle this, or should Workbench task
 153                                itself also setup a filenotification on font.prefs :-\ */
 154                             break;
 155
 156                     } /* switch(type) */
 157
 158                 } /* if (ReadChunkBytes(iff, &fontprefs, sizeof(fontprefs)) == sizeof(fontprefs)) */
 159
 160             } /* if ((cn->cn_ID == ID_FONT) && (cn->cn_Size == sizeof(fontprefs))) */
 161
 162         } /* while(ParseIFF(iff, IFFPARSE_SCAN) == 0) */
 163
 164         KillIFF(iff);
 165
 166     } /* if ((iff = CreateIFF(filename))) */
 167
 168
 169     D(bug("In IPrefs:FontPrefs_Handler. Done with '%s'.\n", filename));
 170 }
 171
 172 /*********************************************************************************************/