home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / Module / Icons.mod < prev    next >
Encoding:
Text File  |  1994-08-05  |  1.3 KB  |  44 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Library Module: Icons                Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1992 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE Icons;
  10.  
  11. IMPORT sd  := SecureDos,
  12.        str := Strings,
  13.        wb  := Workbench,
  14.               Icon,
  15.        d   := Dos;
  16.  
  17. PROCEDURE PutIcon*(Iconname: ARRAY OF CHAR; to: ARRAY OF CHAR);
  18. (* Kopiert das Icon "OBERON:Icons/"+Iconname+".info" nach to+".info" *)
  19.  
  20. VAR
  21.   i,o: ARRAY 80 OF CHAR;
  22.   lock: d.FileLockPtr;
  23.   do: wb.DiskObjectPtr;
  24.  
  25. BEGIN
  26.   i := "OBERON:Icons/"; str.Append(i,Iconname);
  27.   COPY(to,o); str.Append(o,".info");
  28.  
  29.   lock := sd.Lock(o,d.oldFile);         (* exisitiert Icon schon? *)
  30.   IF lock#NIL THEN sd.UnLock(lock); RETURN END; (* Ja, dann zurück        *)
  31.  
  32.   do := Icon.GetDiskObject(i);
  33.   IF do#NIL THEN
  34.     IF Icon.PutDiskObject(to,do) THEN END;
  35.     Icon.FreeDiskObject(do);
  36.   END;
  37.  
  38. END PutIcon;
  39.  
  40. END Icons.
  41.  
  42.  
  43.  
  44.