bgui/Prefs/BGUIPrefs_iff.c

   1 /*
   2  * @(#) $Header$
   3  *
   4  * BGUI Prefs Editor
   5  * BGUIPrefs_iff.c
   6  *
   7  * (C) Copyright 1998 Manuel Lemos.
   8  * (C) Copyright 1996-1997 Respect Software
   9  * (C) Copyright 1996-1997 Ian J. Einman.
  10  * All Rights Reserved.
  11  *
  12  * $Log$
  13  * Revision 42.0  2000/05/09 22:17:05  mlemos
  14  * Bumped to revision 42.0 before handing BGUI to AROS team
  15  *
  16  * Revision 41.11  2000/05/09 20:29:54  mlemos
  17  * Bumped to revision 41.11
  18  *
  19  * Revision 1.2  2000/05/09 19:56:54  mlemos
  20  * Merged with the branch Manuel_Lemos_fixes.
  21  *
  22  * Revision 1.1.2.1  1998/09/20 17:28:48  mlemos
  23  * Peter Bornhall sources.
  24  *
  25  *
  26  *
  27  */
  28
  29 extern  Object  **ar = BGUIPrefsObjs;
  30 extern  Object  *BGUIPrefsObjs[ BGP_NUMGADS ];
  31
  32 // GROUP DEFAULTS
  33 extern  ULONG            grp_frmtype,
  34                                          grp_recessed,
  35                                          grp_vspnarrow,
  36                                          grp_hspnarrow,
  37                                          grp_vspnormal,
  38                                          grp_hspnormal,
  39                                          grp_vspwide,
  40                                          grp_hspwide,
  41
  42 // BUTTON DEFAULTS
  43                                          but_frmtype,
  44                                          but_recessed,
  45
  46 // STRING DEFAULTS
  47                                          str_frmtype,
  48                                          str_recessed,
  49
  50 // CHECKBOX DEFAULTS
  51                                          chk_frmtype,
  52                                          chk_recessed,
  53
  54 // CYCLE DEFAULTS
  55                                          cyc_frmtype,
  56                                          cyc_recessed,
  57                                          cyc_popup,
  58                                          cyc_popactive,
  59
  60 // INFO DEFAULTS
  61                                          inf_frmtype,
  62                                          inf_recessed,
  63
  64 // PROGRESS DEFAULTS
  65                                          prg_frmtype,
  66                                          prg_recessed,
  67
  68 // INDICATOR DEFAULTS
  69                                          ind_frmtype,
  70                                          ind_recessed;
  71
  72
  73 struct TagItem *
  74 CloneTagList( ULONG t, ... )
  75 {
  76         return CloneTagItems( ( struct TagItem * )&t );
  77 }
  78
  79
  80 void
  81 SaveTagList( struct IFFHandle *iff, ULONG type, struct TagItem *tags )
  82 {
  83         struct  TagItem *tag;
  84         ULONG   zero = TAG_DONE;
  85
  86         PushChunk( iff, ID_BGUI, ID_DTAG, IFFSIZE_UNKNOWN );
  87         WriteChunkBytes( iff, ( UBYTE * )&type, sizeof( ULONG ) );
  88
  89         while( tag = NextTagItem( &tags ) ) {
  90
  91                 WriteChunkBytes( iff, ( UBYTE * )tag, sizeof( struct TagItem ) );
  92
  93         };
  94
  95         WriteChunkBytes( iff, ( UBYTE * )&zero, sizeof( ULONG ) );
  96         PopChunk( iff );
  97
  98 }
  99
 100
 101 void
 102 SaveBGUIPrefs( char *dirname, char *name )
 103 {
 104         BPTR                             dir,
 105                                                  olddir;
 106         struct  IFFHandle       *iff;
 107         struct  TagItem         *objecttags = NULL;
 108
 109         dir = Lock( dirname, ACCESS_READ );
 110
 111         if( !dir ) dir = CreateDir( dirname );
 112
 113         if( dir ) {
 114
 115                 olddir = CurrentDir( dir );
 116
 117                 if( iff = AllocIFF() ) {
 118
 119                         if( iff->iff_Stream = Open( name, MODE_NEWFILE ) ) {
 120
 121                                 InitIFFasDOS( iff );
 122                                 if( OpenIFF( iff, IFFF_WRITE ) == 0 ) {
 123
 124                                         PushChunk( iff, ID_BGUI, ID_FORM, IFFSIZE_UNKNOWN );
 125
 126 // GROUP
 127                                         objecttags = CloneTagList(
 128                                                 FRM_DefaultType, grp_frmtype,
 129                                                 FRM_Recessed, grp_recessed,
 130                                                 GROUP_DefVSpaceNarrow, grp_vspnarrow,
 131                                                 GROUP_DefHSpaceNarrow, grp_hspnarrow,
 132                                                 GROUP_DefVSpaceNormal, grp_vspnormal,
 133                                                 GROUP_DefHSpaceNormal, grp_hspnormal,
 134                                                 GROUP_DefVSpaceWide, grp_vspwide,
 135                                                 GROUP_DefHSpaceWide, grp_hspwide,
 136                                                 TAG_DONE
 137                                         );
 138                                         SaveTagList( iff, BGUI_GROUP_GADGET, objecttags );
 139
 140 // BUTTON
 141                                         objecttags = CloneTagList(
 142                                                 FRM_Type, but_frmtype,
 143                                                 FRM_Recessed, but_recessed,
 144                                                 TAG_DONE
 145                                         );
 146                                         SaveTagList( iff, BGUI_BUTTON_GADGET, objecttags );
 147
 148 // STRING
 149                                         objecttags = CloneTagList(
 150                                                 FRM_Type, str_frmtype,
 151                                                 FRM_Recessed, str_recessed,
 152                                                 TAG_DONE
 153                                         );
 154                                         SaveTagList( iff, BGUI_STRING_GADGET, objecttags );
 155
 156 // CHECKBOX
 157                                         objecttags = CloneTagList(
 158                                                 FRM_Type, chk_frmtype,
 159                                                 FRM_Recessed, chk_recessed,
 160                                                 TAG_DONE
 161                                         );
 162                                         SaveTagList( iff, BGUI_CHECKBOX_GADGET, objecttags );
 163
 164 // CYCLE
 165                                         objecttags = CloneTagList(
 166                                                 FRM_Type, cyc_frmtype,
 167                                                 FRM_Recessed, cyc_recessed,
 168                                                 CYC_PopActive, cyc_popactive,
 169                                                 CYC_Popup, cyc_popup,
 170                                                 TAG_DONE
 171                                         );
 172                                         SaveTagList( iff, BGUI_CYCLE_GADGET, objecttags );
 173
 174 // INFO
 175                                         objecttags = CloneTagList(
 176                                                 FRM_DefaultType, inf_frmtype,
 177                                                 FRM_Recessed, inf_recessed,
 178                                                 TAG_DONE
 179                                         );
 180                                         SaveTagList( iff, BGUI_INFO_GADGET, objecttags );
 181
 182 // PROGRESS
 183                                         objecttags = CloneTagList(
 184                                                 FRM_Type, prg_frmtype,
 185                                                 FRM_Recessed, prg_recessed,
 186                                                 TAG_DONE
 187                                         );
 188                                         SaveTagList( iff, BGUI_PROGRESS_GADGET, objecttags );
 189
 190 // INDICATOR
 191                                         objecttags = CloneTagList(
 192                                                 FRM_DefaultType, ind_frmtype,
 193                                                 FRM_Recessed, ind_recessed,
 194                                                 TAG_DONE
 195                                         );
 196                                         SaveTagList( iff, BGUI_INDICATOR_GADGET, objecttags );
 197
 198                                         PopChunk( iff );
 199                                         CloseIFF( iff );
 200                                 };
 201                                 Close( iff->iff_Stream );
 202                         };
 203                         FreeIFF( iff );
 204                 };
 205                 CurrentDir( olddir );
 206                 UnLock( dir );
 207         };
 208 }