home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpclrpal.def < prev    next >
Text File  |  1994-05-21  |  3KB  |  98 lines
  1. DEFINITION MODULE WPCLRPAL;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPColorPalette;
  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 WPPALET;
  15.  
  16. TYPE PSOMClass              = SOM.PSOMClass;
  17. TYPE INTEGER4               = SOM.INTEGER4;
  18. TYPE somMToken              = SOM.somMToken;
  19. TYPE somDToken              = SOM.somDToken;
  20. TYPE somMethodProc          = SOM.somMethodProc;
  21. TYPE PWPColorPalette        = POINTER TO WPColorPalette;
  22. TYPE PM_WPColorPalette      = POINTER TO M_WPColorPalette;
  23.  
  24. (************************************************************************
  25.   Additional TYPE- and CONST-declarations supporting WPColorPalette
  26. *************************************************************************)
  27.  
  28. TYPE CELL                   = WPPALET.CELL;
  29.  
  30. TYPE (* Paintpot structure *)
  31.   PAINTPOT                  = RECORD
  32.     cell                      : CELL;     (* Size of the data that follows *)
  33.     ulRGB                     : LONGCARD; (* Color of this paintpot *)
  34.                               END;
  35.   PPAINTPOT                 = POINTER TO PAINTPOT;
  36.  
  37.  
  38.  
  39. (*************************************************************************
  40.   SOM class API for WPColorPalette, including type-bound procedures
  41. **************************************************************************)
  42.  
  43. CONST
  44.   WPColorPalette_MajorVersion     = 1;
  45.   WPColorPalette_MinorVersion     = 2;
  46.  
  47. TYPE 
  48.   WPColorPaletteClassDataStructure   = RECORD
  49.     classObject                        : PSOMClass;
  50.                                        END;
  51.  
  52. VAR
  53.   WPColorPaletteClassData : WPColorPaletteClassDataStructure;
  54.  
  55. TYPE
  56.   (*$SOM+ *)
  57.   WPColorPalette = RECORD( WPPALET.WPPalette ) END;
  58.   (*$SOM- *)
  59.  
  60.  
  61. PROCEDURE WPColorPaletteNewClass
  62. (
  63.   majorVersion  : INTEGER4;
  64.   minorVersion  : INTEGER4
  65. )               : PSOMClass;
  66.  
  67.  
  68. (*************************************************************************
  69.   SOM class API for M_WPColorPalette, including type-bound procedures
  70. **************************************************************************)
  71.  
  72. CONST
  73.   M_WPColorPalette_MajorVersion   = 1;
  74.   M_WPColorPalette_MinorVersion   = 2;
  75.  
  76. TYPE 
  77.   M_WPColorPaletteClassDataStructure   = RECORD
  78.     classObject                          : PSOMClass;
  79.                                          END;
  80.  
  81. VAR
  82.   M_WPColorPaletteClassData : M_WPColorPaletteClassDataStructure;
  83.  
  84. TYPE
  85.   (*$SOM+ *)
  86.   M_WPColorPalette = RECORD( WPPALET.M_WPPalette ) END;
  87.   (*$SOM- *)
  88.  
  89.  
  90. PROCEDURE M_WPColorPaletteNewClass
  91. (
  92.   majorVersion : INTEGER4;
  93.   minorVersion : INTEGER4
  94. )              : PSOMClass;
  95.  
  96.  
  97. END WPCLRPAL.
  98.