home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / OS2API / OS2-PMTM.ADS < prev    next >
Text File  |  1996-07-20  |  2KB  |  44 lines
  1.  
  2. -- ╔═══════════════════════════════════════════════════════════════════╗
  3. -- ║       D E S I G N   E N G I N E R I N G              ║D║S║        ║
  4. -- ║            S O F T W A R E                           ╚═╩═╝        ║
  5. -- ║                                                                   ║
  6. -- ║        Package     Os2.PMtm                                       ║
  7. -- ║                                                                   ║
  8. -- ║        Author :  Leonid Dulman     1995 , 1996                    ║
  9. -- ║                                                                   ║
  10. -- ║             GNU ADA RUNTIME LIBRARY (GNARL) COMPONENTS            ║
  11. -- ║                                                                   ║
  12. -- ║               PM   Timer manager                                  ║
  13. -- ║                                                                   ║
  14. -- ╚═══════════════════════════════════════════════════════════════════╝
  15.  
  16.  
  17. with Interfaces.C;         use Interfaces.C;
  18. with Interfaces.C.Strings; use Interfaces.C.Strings;
  19.  
  20. package Os2.PMtm is
  21. pragma Preelaborate (PMtm);
  22. --     Timer manager
  23.  
  24. function WinStartTimer(ha       :HAB   ;
  25.                        hwn      :HWND  ;
  26.                        idTimer  :ULONG ;
  27.                        dtTimeout:ULONG )return ULONG;
  28. pragma Import(c,WinStartTimer, Link_name=>"_WinStartTimer");
  29.  
  30. function WinStopTimer(ha     :HAB   ;
  31.                       hwn    :HWND  ;
  32.                       idTimer:ULONG )return BOOL32  ;
  33. pragma Import(c,WinStopTimer, Link_name=>"_WinStopTimer");
  34.  
  35. function WinGetCurrentTime(ha :HAB )return ULONG ;
  36. pragma Import(c,WinGetCurrentTime, Link_name=>"_WinGetCurrentTime");
  37.  
  38.  TID_CURSOR        :constant ulong:=16#ffff#;  -- Reserved cursor timer ID
  39.  TID_SCROLL        :constant ulong:=16#fffe#;  -- Reserved scrolling timer ID
  40.  TID_FLASHWINDOW   :constant ulong:=16#fffd#;  -- Reserved for window flashing timer ID
  41.  TID_USERMAX       :constant ulong:=16#7fff#;  -- Maximum user timer ID
  42.  
  43. end os2.PMtm;
  44.