home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpkeybd.def < prev    next >
Text File  |  1994-05-21  |  3KB  |  109 lines
  1. DEFINITION MODULE WPKEYBD;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPKeyboard;
  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 PWPKeyboard            = POINTER TO WPKeyboard;
  23. TYPE PM_WPKeyboard          = POINTER TO M_WPKeyboard;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPKeyboard
  27. *************************************************************************)
  28.  
  29. TYPE HWND                   = OS2DEF.HWND;
  30.  
  31.  
  32. (*************************************************************************
  33.   SOM class API for WPKeyboard, including type-bound procedures
  34. **************************************************************************)
  35.  
  36. CONST
  37.   WPKeyboard_MajorVersion     = 1;
  38.   WPKeyboard_MinorVersion     = 2;
  39.  
  40. TYPE 
  41.   WPKeyboardClassDataStructure   = RECORD
  42.     classObject                    : PSOMClass;
  43.     wpAddKeyboardMappingsPage      : somMToken;
  44.     wpAddKeyboardTimingPage        : somMToken;
  45.     wpAddKeyboardSpecialNeedsPage  : somMToken;
  46.                                    END;
  47.  
  48. VAR
  49.   WPKeyboardClassData : WPKeyboardClassDataStructure;
  50.  
  51. TYPE
  52.   (*$SOM+ *)
  53.   WPKeyboard = RECORD( WPABS.WPAbstract ) END;
  54.   (*$SOM- *)
  55.  
  56.  
  57. PROCEDURE WPKeyboardNewClass
  58. (
  59.   majorVersion  : INTEGER4;
  60.   minorVersion  : INTEGER4
  61. )               : PSOMClass;
  62.  
  63. PROCEDURE( Self : PWPKeyboard ) wpAddKeyboardMappingsPage
  64. (
  65.   hwndNotebook  : HWND
  66. )               : LONGCARD;
  67.  
  68. PROCEDURE( Self : PWPKeyboard ) wpAddKeyboardTimingPage
  69. (
  70.   hwndNotebook  : HWND
  71. )               : LONGCARD;
  72.  
  73. PROCEDURE( Self : PWPKeyboard ) wpAddKeyboardSpecialNeedsPage
  74. (
  75.   hwndNotebook  : HWND
  76. )               : LONGCARD;
  77.  
  78.  
  79.  
  80. (*************************************************************************
  81.   SOM class API for M_WPKeyboard, including type-bound procedures
  82. **************************************************************************)
  83.  
  84. CONST
  85.   M_WPKeyboard_MajorVersion   = 1;
  86.   M_WPKeyboard_MinorVersion   = 2;
  87.  
  88. TYPE 
  89.   M_WPKeyboardClassDataStructure   = RECORD
  90.     classObject                      : PSOMClass;
  91.                                      END;
  92.  
  93. VAR
  94.   M_WPKeyboardClassData : M_WPKeyboardClassDataStructure;
  95.  
  96. TYPE
  97.   (*$SOM+ *)
  98.   M_WPKeyboard = RECORD( WPABS.M_WPAbstract ) END;
  99.   (*$SOM- *)
  100.  
  101.  
  102. PROCEDURE M_WPKeyboardNewClass
  103. (
  104.   majorVersion : INTEGER4;
  105.   minorVersion : INTEGER4
  106. )              : PSOMClass;
  107.  
  108. END WPKEYBD.
  109.