home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / wpfntpal.def < prev    next >
Text File  |  1994-05-21  |  3KB  |  105 lines
  1. DEFINITION MODULE WPFNTPAL;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.1 Workplace class interface for WPFontPalette;
  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. 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 PWPFontPalette        = POINTER TO WPFontPalette;
  23. TYPE PM_WPFontPalette      = POINTER TO M_WPFontPalette;
  24.  
  25. (************************************************************************
  26.   Additional TYPE- and CONST-declarations supporting WPFontPalette
  27. *************************************************************************)
  28.  
  29. TYPE CELL                   = WPPALET.CELL;
  30. TYPE FATTRS                 = OS2DEF.FATTRS;
  31.  
  32. CONST
  33.   CCHFONTNAME   = 80;
  34.  
  35. TYPE  (* Fontpot structure *)
  36.   FONTPOT       = RECORD
  37.    cell           : CELL;     (* Size of the data that follows *)
  38.    fAttrs         : FATTRS;   (* fattrs from WinFontDlg/wpfattrsfrompsz *)
  39.    szFont         : ARRAY [0..CCHFONTNAME] OF CHAR;
  40.                   END;
  41.   PFONTPOT      = POINTER TO FONTPOT;
  42.  
  43.  
  44.  
  45. (*************************************************************************
  46.   SOM class API for WPFontPalette, including type-bound procedures
  47. **************************************************************************)
  48.  
  49. CONST
  50.   WPFontPalette_MajorVersion     = 1;
  51.   WPFontPalette_MinorVersion     = 2;
  52.  
  53. TYPE
  54.   WPFontPaletteClassDataStructure   = RECORD
  55.     classObject                       : PSOMClass;
  56.     wpGetFattrsFromPsz                : somMToken;
  57.                                       END;
  58.  
  59. VAR
  60.   WPFontPaletteClassData : WPFontPaletteClassDataStructure;
  61.  
  62. TYPE
  63.   (*$SOM+ *)
  64.   WPFontPalette = RECORD( WPPALET.WPPalette ) END;
  65.   (*$SOM- *)
  66.  
  67.  
  68. PROCEDURE WPFontPaletteNewClass
  69. (
  70.   majorVersion  : INTEGER4;
  71.   minorVersion  : INTEGER4
  72. )               : PSOMClass;
  73.  
  74.  
  75. (*************************************************************************
  76.   SOM class API for M_WPFontPalette, including type-bound procedures
  77. **************************************************************************)
  78.  
  79. CONST
  80.   M_WPFontPalette_MajorVersion   = 1;
  81.   M_WPFontPalette_MinorVersion   = 2;
  82.  
  83. TYPE
  84.   M_WPFontPaletteClassDataStructure   = RECORD
  85.     classObject                         : PSOMClass;
  86.                                         END;
  87.  
  88. VAR
  89.   M_WPFontPaletteClassData : M_WPFontPaletteClassDataStructure;
  90.  
  91. TYPE
  92.   (*$SOM+ *)
  93.   M_WPFontPalette = RECORD( WPPALET.M_WPPalette ) END;
  94.   (*$SOM- *)
  95.  
  96.  
  97. PROCEDURE M_WPFontPaletteNewClass
  98. (
  99.   majorVersion : INTEGER4;
  100.   minorVersion : INTEGER4
  101. )              : PSOMClass;
  102.  
  103.  
  104. END WPFNTPAL.
  105.