home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpmwv.def < prev    next >
Text File  |  1994-05-24  |  4KB  |  131 lines
  1. DEFINITION MODULE WPMWV;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPMinWinViewer
  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 WPFOLDER;
  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 PWPMinWinViewer        = POINTER TO WPMinWinViewer;
  24. TYPE PM_WPMinWinViewer      = POINTER TO M_WPMinWinViewer;
  25.  
  26. (************************************************************************
  27.   Additional TYPE- and CONST-declarations supporting WPMinWinViewer
  28. *************************************************************************)
  29.  
  30. TYPE HWND                   = OS2DEF.HWND;
  31. TYPE PWPObject              = WPOBJECT.PWPObject;
  32.  
  33. TYPE
  34.   PMINWINDATA               = POINTER TO MINWINDATA;
  35.   MINWINDATA                = RECORD
  36.     hwndFrame                 : HWND;
  37.     Object                    : PWPObject;
  38.     MinWinObject              : PWPObject;
  39.     ulState                   : LONGCARD;
  40.     ulMinimized               : LONGCARD;
  41.     pNext                     : PMINWINDATA;
  42.                               END;
  43.  
  44. (*
  45. PROCEDURE ProcessMinWinMsg( ulMsg:LONGCARD; mp1,mp2:MPARAM ):LONGCARD;
  46. PROCEDURE AddMinWindow() : PMINWINDATA;
  47. PROCEDURE FindMinWindow( hwndFrame:HWND ):PMINWINDATA;
  48. PROCEDURE RemoveMinWindow( hwndFrame:HWND ):BOOLEAN;
  49. PROCEDURE ChangeMinWindowState( Object:PWPObject; ulState:LONGCARD):BOOLEAN;
  50. *)
  51.  
  52. CONST (* ulType is SYS_DEFAULT or OBJ_DEFAULT *)
  53.   SYS_DEFAULT = 1;
  54.   OBJ_DEFAULT = 2;
  55.  
  56. (*
  57. PROCEDURE RelocateObjectMinWindows
  58. ( Object:PWPObject; ulMoveFrom,ulMoveTo,ulType:LONGCARD ):BOOLEAN;
  59. PROCEDURE RelocateMinWindow
  60. ( VAR MinWindow:MINWINDATA; ulMoveFrom,ulMoveTo:LONGCARD );
  61. PROCEDURE CreateMinWinObject
  62. ( hwndFrame:HWND; Object:PWPObject ):PWPObject;
  63. *)
  64.  
  65.  
  66. (*************************************************************************
  67.   SOM class API for WPMinWinViewer, including type-bound procedures
  68. **************************************************************************)
  69.  
  70. CONST
  71.   WPMinWinViewer_MajorVersion     = 1;
  72.   WPMinWinViewer_MinorVersion     = 2;
  73.  
  74. TYPE
  75.   WPMinWinViewerClassDataStructure     = RECORD
  76.     classObject                          : PSOMClass;
  77.     wpFindMinWindow                      : somMToken;
  78.                                          END;
  79.  
  80. VAR
  81.   WPMinWinViewerClassData : WPMinWinViewerClassDataStructure;
  82.  
  83. TYPE
  84.   (*$SOM+ *)
  85.   WPMinWinViewer = RECORD( WPFOLDER.WPFolder ) END;
  86.   (*$SOM- *)
  87.  
  88.  
  89. PROCEDURE WPMinWinViewerNewClass
  90. (
  91.   majorVersion  : INTEGER4;
  92.   minorVersion  : INTEGER4
  93. )               : PSOMClass;
  94.  
  95. PROCEDURE( Self : PWPMinWinViewer ) wpFindMinWindow
  96. (
  97.   hwndFrame     : HWND
  98. )               : PWPObject;
  99.  
  100.  
  101. (*************************************************************************
  102.   SOM class API for M_WPMinWinViewer, including type-bound procedures
  103. **************************************************************************)
  104.  
  105. CONST
  106.   M_WPMinWinViewer_MajorVersion   = 1;
  107.   M_WPMinWinViewer_MinorVersion   = 2;
  108.  
  109. TYPE
  110.   M_WPMinWinViewerClassDataStructure   = RECORD
  111.     classObject                          : PSOMClass;
  112.                                          END;
  113.  
  114. VAR
  115.   M_WPMinWinViewerClassData : M_WPMinWinViewerClassDataStructure;
  116.  
  117. TYPE
  118.   (*$SOM+ *)
  119.   M_WPMinWinViewer = RECORD( WPFOLDER.M_WPFolder ) END;
  120.   (*$SOM- *)
  121.  
  122.  
  123. PROCEDURE M_WPMinWinViewerNewClass
  124. (
  125.   majorVersion : INTEGER4;
  126.   minorVersion : INTEGER4
  127. )              : PSOMClass;
  128.  
  129.  
  130. END WPMWV.
  131.