home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Clean 1.2.4 / PowerMacInterface / OS_utilities.icl < prev    next >
Encoding:
Modula Implementation  |  1995-02-14  |  635 b   |  24 lines  |  [TEXT/3PRM]
  1. implementation module OS_utilities;
  2.  
  3. import mac_types;
  4.  
  5. Secs2Date :: !Int !Toolbox -> (!Int,!Int,!Int,!Int,!Toolbox);
  6. Secs2Date secs t = code (secs=R14O0D1D0,t=U)(year=W,month=W,day=W,dayOfWeek=I6W,z=Z){
  7.     call    .SecondsToDate
  8. };
  9.  
  10. Secs2Time :: !Int !Toolbox -> (!Int,!Int,!Int,!Toolbox);
  11. Secs2Time secs t = code (secs=R14O0D1D0,t=U)(hour=I6W,minute=W,second=W,z=I2Z){
  12.     call    .SecondsToDate
  13. };
  14.  
  15. SysBeep :: !Int !Toolbox -> Toolbox;
  16. SysBeep duration t = code (duration=D0,t=U)(z=Z){
  17.     call    .SysBeep
  18. };
  19.     
  20. GetCursor :: !Int !Toolbox -> (!Handle,!Toolbox);
  21. GetCursor cursorID t = code (cursorID=D0,t=U)(crsr_handle=D0,z=Z){
  22.     call    .GetCursor
  23. };
  24.