home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpcnrvw.def < prev    next >
Text File  |  1994-05-24  |  4KB  |  136 lines
  1. DEFINITION MODULE WPCNRVW;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPCnrView
  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 WPOBJECT;
  16. IMPORT OS2DEF;
  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 PWPCnrView             = POINTER TO WPCnrView;
  24. TYPE PM_WPCnrView           = POINTER TO M_WPCnrView;
  25.  
  26. (************************************************************************
  27.   Additional TYPE- and CONST-declarations supporting WPCnrView
  28. *************************************************************************)
  29.  
  30. TYPE PWPObject              = WPOBJECT.PWPObject;
  31. TYPE HWND                   = OS2DEF.HWND;
  32. TYPE PSZ                    = OS2DEF.PSZ;
  33.  
  34. (*************************************************************************
  35.   SOM class API for WPCnrView, including type-bound procedures
  36. **************************************************************************)
  37.  
  38. CONST
  39.   WPCnrView_MajorVersion     = 1;
  40.   WPCnrView_MinorVersion     = 2;
  41.  
  42. TYPE
  43.   WPCnrViewClassDataStructure     = RECORD
  44.     classObject                     : PSOMClass;
  45.     wpFirst                         : somMToken;
  46.     wpQueryViewAttr                 : somMToken;
  47.     wpQueryFont                     : somMToken;
  48.     wpQueryCnrObject                : somMToken;
  49.     wpQueryView                     : somMToken;
  50.     wpOpenView                      : somMToken;
  51.     wpInitView                      : somMToken;
  52.     wpQueryViewBkgnd                : somMToken;
  53.     wpQueryDetailsClass             : somMToken;
  54.     wpQueryCnrWindow                : somMToken;
  55.     wpQueryViewTitle                : somMToken;
  56.     wpQueryUseItem                  : somMToken;
  57.     wpQueryViewItem                 : somMToken;
  58.     wpSetDetailsInfo                : somMToken;
  59.     wpSetDetailsColumns             : somMToken;
  60.     wpInsertRecord                  : somMToken;
  61.     wpRemoveRecord                  : somMToken;
  62.     wpFillWithChildren              : somMToken;
  63.     wpDeleteChildren                : somMToken;
  64.     wpAddObject                     : somMToken;
  65.     wpFillFolder                    : somMToken;
  66.     wpPopulateTree                  : somMToken;
  67.     wpEmphasis                      : somMToken;
  68.     wpCollectAndInsertObjects       : somMToken;
  69.                                     END;
  70.  
  71. VAR
  72.   WPCnrViewClassData : WPCnrViewClassDataStructure;
  73.  
  74. TYPE
  75.   (*$SOM+ *)
  76.   WPCnrView = RECORD( WPTRANS.WPTransient ) END;
  77.   (*$SOM- *)
  78.  
  79.  
  80. PROCEDURE WPCnrViewNewClass
  81. (
  82.   majorVersion  : INTEGER4;
  83.   minorVersion  : INTEGER4
  84. )               : PSOMClass;
  85.  
  86. PROCEDURE( Self : PWPCnrView ) wpFirst() : PWPObject;
  87.  
  88. PROCEDURE( Self : PWPCnrView ) wpQueryViewAttr( ) : LONGCARD;
  89.  
  90. PROCEDURE( Self : PWPCnrView ) wpQueryCnrWindow( ) : HWND;
  91.  
  92. PROCEDURE( Self : PWPCnrView ) wpQueryViewTitle( ) : PSZ;
  93.  
  94. PROCEDURE( Self : PWPCnrView ) wpQueryFont( ) : PSZ;
  95.  
  96. PROCEDURE( Self : PWPCnrView ) wpQueryCnrObject( ) : PWPObject;
  97.  
  98.  
  99. (*************************************************************************
  100.   SOM class API for M_WPCnrView, including type-bound procedures
  101. **************************************************************************)
  102.  
  103. CONST
  104.   M_WPCnrView_MajorVersion   = 1;
  105.   M_WPCnrView_MinorVersion   = 2;
  106.  
  107. TYPE
  108.   M_WPCnrViewClassDataStructure   = RECORD
  109.     classObject                     : PSOMClass;
  110.     wpclsNewView                    : somMToken;
  111.                                     END;
  112.  
  113. VAR
  114.   M_WPCnrViewClassData : M_WPCnrViewClassDataStructure;
  115.  
  116. TYPE
  117.   (*$SOM+ *)
  118.   M_WPCnrView = RECORD( WPTRANS.M_WPTransient ) END;
  119.   (*$SOM- *)
  120.  
  121.  
  122. PROCEDURE M_WPCnrViewNewClass
  123. (
  124.   majorVersion : INTEGER4;
  125.   minorVersion : INTEGER4
  126. )              : PSOMClass;
  127.  
  128. PROCEDURE( Self : PM_WPCnrView ) wpclsNewView
  129. (
  130.   Object        : PWPObject;
  131.   ulView        : LONGCARD
  132. )               : PWPCnrView;
  133.  
  134.  
  135. END WPCNRVW.
  136.