home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpminwin.def < prev    next >
Text File  |  1994-05-24  |  3KB  |  110 lines
  1. DEFINITION MODULE WPMINWIN;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPMinWindow
  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 WPTRANS;
  15. IMPORT OS2DEF;
  16. IMPORT WPOBJECT;
  17.  
  18. TYPE PSOMClass              = SOM.PSOMClass;
  19. TYPE INTEGER4               = SOM.INTEGER4;
  20. TYPE somMToken              = SOM.somMToken;
  21. TYPE somDToken              = SOM.somDToken;
  22. TYPE somMethodProc          = SOM.somMethodProc;
  23. TYPE PWPMinWindow           = POINTER TO WPMinWindow;
  24. TYPE PM_WPMinWindow         = POINTER TO M_WPMinWindow;
  25.  
  26. (************************************************************************
  27.   Additional TYPE- and CONST-declarations supporting WPMinWindow
  28. *************************************************************************)
  29.  
  30. TYPE HWND                   = OS2DEF.HWND;
  31. TYPE PWPObject              = WPOBJECT.PWPObject;
  32.  
  33. (*************************************************************************
  34.   SOM class API for WPMinWindow, including type-bound procedures
  35. **************************************************************************)
  36.  
  37. CONST
  38.   WPMinWindow_MajorVersion     = 1;
  39.   WPMinWindow_MinorVersion     = 2;
  40.  
  41. TYPE
  42.   WPMinWindowClassDataStructure     = RECORD
  43.     classObject                       : PSOMClass;
  44.     wpQueryWindowHandle               : somMToken;
  45.     wpSetWindowHandle                 : somMToken;
  46.     wpQueryWindowObject               : somMToken;
  47.     wpSetWindowObject                 : somMToken;
  48.                                       END;
  49.  
  50. VAR
  51.   WPMinWindowClassData : WPMinWindowClassDataStructure;
  52.  
  53. TYPE
  54.   (*$SOM+ *)
  55.   WPMinWindow = RECORD( WPTRANS.WPTransient ) END;
  56.   (*$SOM- *)
  57.  
  58.  
  59. PROCEDURE WPMinWindowNewClass
  60. (
  61.   majorVersion  : INTEGER4;
  62.   minorVersion  : INTEGER4
  63. )               : PSOMClass;
  64.  
  65. PROCEDURE( Self : PWPMinWindow ) wpQueryWindowHandle( ) : HWND;
  66.  
  67. PROCEDURE( Self : PWPMinWindow ) wpSetWindowHandle
  68. (
  69.   hwndFrame     : HWND
  70. );
  71.  
  72. PROCEDURE( Self : PWPMinWindow ) wpQueryWindowObject( ) : PWPObject;
  73.  
  74. PROCEDURE( Self : PWPMinWindow ) wpSetWindowObject
  75. (
  76.   Object        : PWPObject
  77. );
  78.  
  79.  
  80. (*************************************************************************
  81.   SOM class API for M_WPMinWindow, including type-bound procedures
  82. **************************************************************************)
  83.  
  84. CONST
  85.   M_WPMinWindow_MajorVersion   = 1;
  86.   M_WPMinWindow_MinorVersion   = 2;
  87.  
  88. TYPE
  89.   M_WPMinWindowClassDataStructure   = RECORD
  90.     classObject                       : PSOMClass;
  91.                                       END;
  92.  
  93. VAR
  94.   M_WPMinWindowClassData : M_WPMinWindowClassDataStructure;
  95.  
  96. TYPE
  97.   (*$SOM+ *)
  98.   M_WPMinWindow = RECORD( WPTRANS.M_WPTransient ) END;
  99.   (*$SOM- *)
  100.  
  101.  
  102. PROCEDURE M_WPMinWindowNewClass
  103. (
  104.   majorVersion : INTEGER4;
  105.   minorVersion : INTEGER4
  106. )              : PSOMClass;
  107.  
  108.  
  109. END WPMINWIN.
  110.