home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpctry.def < prev    next >
Text File  |  1994-05-21  |  3KB  |  116 lines
  1. DEFINITION MODULE WPCTRY;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPCountry;
  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 PWPCountry             = POINTER TO WPCountry;
  23. TYPE PM_WPCountry           = POINTER TO M_WPCountry;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPCountry
  27. *************************************************************************)
  28.  
  29. TYPE HWND                   = OS2DEF.HWND;
  30.  
  31.  
  32. (*************************************************************************
  33.   SOM class API for WPCountry, including type-bound procedures
  34. **************************************************************************)
  35.  
  36. CONST
  37.   WPCountry_MajorVersion     = 1;
  38.   WPCountry_MinorVersion     = 2;
  39.  
  40. TYPE 
  41.   WPCountryClassDataStructure   = RECORD
  42.     classObject                   : PSOMClass;
  43.     wpAddCountryTimePage          : somMToken;
  44.     wpAddCountryDatePage          : somMToken;
  45.     withdrawn                     : somMToken;
  46.     wpAddCountryPage              : somMToken;
  47.     wpAddCountryNumbersPage       : somMToken;
  48.                                   END;
  49.  
  50. VAR
  51.   WPCountryClassData : WPCountryClassDataStructure;
  52.  
  53. TYPE
  54.   (*$SOM+ *)
  55.   WPCountry = RECORD( WPABS.WPAbstract ) END;
  56.   (*$SOM- *)
  57.  
  58.  
  59. PROCEDURE WPCountryNewClass
  60. (
  61.   majorVersion  : INTEGER4;
  62.   minorVersion  : INTEGER4
  63. )               : PSOMClass;
  64.  
  65. PROCEDURE( Self : PWPCountry ) wpAddCountryTimePage
  66. (
  67.   hwndNotebook  : HWND
  68. )               : LONGCARD;
  69.  
  70. PROCEDURE( Self : PWPCountry ) wpAddCountryDatePage
  71. (
  72.   hwndNotebook  : HWND
  73. )               : LONGCARD;
  74.  
  75. PROCEDURE( Self : PWPCountry ) wpAddCountryNumbersPage
  76. (
  77.   hwndNotebook  : HWND
  78. )               : LONGCARD;
  79.  
  80. PROCEDURE( Self : PWPCountry ) wpAddCountryPage
  81. (
  82.   hwndNotebook  : HWND
  83. )               : LONGCARD;
  84.  
  85.  
  86.  
  87. (*************************************************************************
  88.   SOM class API for M_WPCountry, including type-bound procedures
  89. **************************************************************************)
  90.  
  91. CONST
  92.   M_WPCountry_MajorVersion   = 1;
  93.   M_WPCountry_MinorVersion   = 2;
  94.  
  95. TYPE 
  96.   M_WPCountryClassDataStructure   = RECORD
  97.     classObject                     : PSOMClass;
  98.                                     END;
  99.  
  100. VAR
  101.   M_WPCountryClassData : M_WPCountryClassDataStructure;
  102.  
  103. TYPE
  104.   (*$SOM+ *)
  105.   M_WPCountry = RECORD( WPABS.M_WPAbstract ) END;
  106.   (*$SOM- *)
  107.  
  108.  
  109. PROCEDURE M_WPCountryNewClass
  110. (
  111.   majorVersion : INTEGER4;
  112.   minorVersion : INTEGER4
  113. )              : PSOMClass;
  114.  
  115. END WPCTRY.
  116.