home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / palette.icl < prev    next >
Encoding:
Modula Implementation  |  1995-03-13  |  1.0 KB  |  36 lines  |  [TEXT/3PRM]
  1. implementation module palette;
  2.  
  3. import mac_types;
  4.  
  5. NewPalette :: !Int !Int !Int !Int !Toolbox -> Toolbox;
  6. NewPalette entries srcColors srcUsage srcTolerance t
  7. = code (entries=D0,srcColors=D1,srcUsage=D2,srcTolerance=D3,t=U)(z=Z){
  8.     call    .NewPalette
  9. };
  10.  
  11. DisposePalette :: !Int !Toolbox -> Toolbox;
  12. DisposePalette srcPalette t = code (srcPalette=D0,t=U)(z=Z){
  13.     call    .DisposePalette
  14. };
  15.  
  16. ActivatePalette :: !WindowPtr !Toolbox -> Toolbox;
  17. ActivatePalette srcWindow t = code (srcWindow=D0,t=U)(z=Z){
  18.     call    .ActivatePalette
  19. };
  20.  
  21. SetPalette :: !WindowPtr !Int !Bool !Toolbox -> Toolbox;
  22. SetPalette dstWindow srcPalette cUpdates t = code (dstWindow=D0,srcPalette=D1,cUpdates=D2,t=U)(z=Z){
  23.     call    .SetPalette
  24. };
  25.  
  26. GetPalette :: !WindowPtr !Toolbox -> (!Int, !Toolbox);
  27. GetPalette srcWindow t = code (srcWindow=D0,t=U)(palette=D0,z=Z){
  28.     call    .GetPalette
  29. };
  30.     
  31. SetEntryColor :: !Int !Int !(!Int,!Int,!Int) !Toolbox -> Toolbox;
  32. SetEntryColor dstPalette dstEntry (red,green,blue) t
  33. = code (blue=W,green=W,red=W,dstPalette=D0,dstEntry=D1,t=O0D2U)(z=I6Z){
  34.     call    .SetEntryColor
  35. };
  36.