scalos/Plugins/OOP/TitleClock/prefs/saveicon.c

   1 /*
   2  *  saveicon.h  Public protos for functions to deal with saving icons
   3  *
   4  * $Date$
   5  * $Revision$
   6  *
   7  *  0.1
   8  *  20010804    DM  + Created. Added one function to save an icon (currently only
   9  *                  saves a default projet icon) for a file, if the file exists.
  10  *
  11  */
  12
  13 #include <exec/types.h>
  14
  15 #include <proto/exec.h>
  16 #include <proto/dos.h>
  17 #include <proto/icon.h>
  18
  19 #include <workbench/workbench.h>
  20
  21
  22 BOOL SaveIcon(STRPTR filename)
  23 {
  24         BOOL                saved = FALSE;
  25         BPTR                flock;
  26         struct DiskObject   *ico;   /* Icon to save */
  27
  28         if(filename)
  29         {
  30                 /* Make sure file exists */
  31                 flock = Lock(filename, ACCESS_READ);
  32                 UnLock(flock);
  33
  34                 if(flock)
  35                 {
  36                         if(NULL != (IconBase = OpenLibrary("icon.library", 36)) )
  37                         {
  38                                 ico = GetDefDiskObject(WBPROJECT);
  39                                 if(ico)
  40                                 {
  41                                         saved = PutDiskObject(filename, ico);
  42                                         FreeDiskObject(ico);
  43                                 }
  44                                 CloseLibrary(IconBase);
  45                         }
  46                 }
  47         }
  48         return(saved);
  49 }
  50
  51