home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpclock.def < prev    next >
Text File  |  1994-05-21  |  3KB  |  114 lines
  1. DEFINITION MODULE WPCLOCK;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPClock;
  5.  
  6.   Copyright (c) 1994 by Juergen Neuhoff
  7. ****************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SOM;
  14. IMPORT WPABS;
  15. IMPORT OS2DEF;
  16.  
  17. TYPE PSOMClass              = SOM.PSOMClass;
  18. TYPE INTEGER4               = SOM.INTEGER4;
  19. TYPE somMToken              = SOM.somMToken;
  20. TYPE somDToken              = SOM.somDToken;
  21. TYPE somMethodProc          = SOM.somMethodProc;
  22. TYPE PWPClock               = POINTER TO WPClock;
  23. TYPE PM_WPClock             = POINTER TO M_WPClock;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPClock
  27. *************************************************************************)
  28.  
  29. TYPE HWND                   = OS2DEF.HWND;
  30.  
  31.  
  32. (*************************************************************************
  33.   SOM class API for WPClock, including type-bound procedures
  34. **************************************************************************)
  35.  
  36. CONST
  37.   WPClock_MajorVersion     = 1;
  38.   WPClock_MinorVersion     = 2;
  39.  
  40. TYPE 
  41.   WPClockClassDataStructure   = RECORD
  42.     classObject                 : PSOMClass;
  43.     wpAddClockView1Page         : somMToken;
  44.     wpAddClockView2Page         : somMToken;
  45.     wpAddClockDateTimePage      : somMToken;
  46.     wpAddClockAlarmPage         : somMToken;
  47.                                 END;
  48.  
  49. VAR
  50.   WPClockClassData : WPClockClassDataStructure;
  51.  
  52. TYPE
  53.   (*$SOM+ *)
  54.   WPClock = RECORD( WPABS.WPAbstract ) END;
  55.   (*$SOM- *)
  56.  
  57.  
  58. PROCEDURE WPClockNewClass
  59. (
  60.   majorVersion  : INTEGER4;
  61.   minorVersion  : INTEGER4
  62. )               : PSOMClass;
  63.  
  64. PROCEDURE( Self : PWPClock ) wpAddClockView1Page
  65. (
  66.   hwndNotebook  : HWND
  67. )               : LONGCARD;
  68.  
  69. PROCEDURE( Self : PWPClock ) wpAddClockView2Page
  70. (
  71.   hwndNotebook  : HWND
  72. )               : LONGCARD;
  73.  
  74. PROCEDURE( Self : PWPClock ) wpAddClockDateTimePage
  75. (
  76.   hwndNotebook  : HWND
  77. )               : LONGCARD;
  78.  
  79. PROCEDURE( Self : PWPClock ) wpAddClockAlarmPage
  80. (
  81.   hwndNotebook  : HWND
  82. )               : LONGCARD;
  83.  
  84.  
  85. (*************************************************************************
  86.   SOM class API for M_WPClock, including type-bound procedures
  87. **************************************************************************)
  88.  
  89. CONST
  90.   M_WPClock_MajorVersion   = 1;
  91.   M_WPClock_MinorVersion   = 2;
  92.  
  93. TYPE 
  94.   M_WPClockClassDataStructure   = RECORD
  95.     classObject                   : PSOMClass;
  96.                                   END;
  97.  
  98. VAR
  99.   M_WPClockClassData : M_WPClockClassDataStructure;
  100.  
  101. TYPE
  102.   (*$SOM+ *)
  103.   M_WPClock = RECORD( WPABS.M_WPAbstract ) END;
  104.   (*$SOM- *)
  105.  
  106.  
  107. PROCEDURE M_WPClockNewClass
  108. (
  109.   majorVersion : INTEGER4;
  110.   minorVersion : INTEGER4
  111. )              : PSOMClass;
  112.  
  113. END WPCLOCK.
  114.