home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / windef.def < prev    next >
Text File  |  1995-08-24  |  8KB  |  208 lines
  1. DEFINITION MODULE WINDEF;
  2.  
  3. (************************************************************************
  4.   OS/2 2.x/3.0 General Window Management types, constants and functions
  5.  
  6.                19.02.95 23.01 : WC_... now implemented as initialized
  7.                                 typed constant variables
  8.                22.02.95 21.48 : MPARAM and MRESULT are now of type LONGWORD
  9.                23.02.95 13.31 : MPVOID is now an initialized zero variable
  10.                24.08.95 12.48 : WC_... values are now string constants
  11.  
  12.   Copyright (c) 1992, 1995 by Juergen Neuhoff
  13. *************************************************************************)
  14.  
  15. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  16. (*$CDECL+    C-style procedures                                         *)
  17. (*$A         default alignment for record fields                        *)
  18.  
  19. IMPORT SYSTEM;
  20. FROM   SYSTEM  IMPORT ADDRESS, BYTE, WORD, LONGWORD;
  21. FROM   OS2DEF  IMPORT HWND, PSZ, PCHAR, LHANDLE;
  22.  
  23. TYPE
  24.   PVOID    = ADDRESS;
  25.   MPARAM   = LONGWORD;              (* message parameter *)
  26.   PMPARAM  = POINTER TO MPARAM;
  27.   MRESULT  = LONGWORD;              (* general return value *)
  28.   PMRESULT = POINTER TO MRESULT;
  29.  
  30. VAR
  31.   MPVOID   : MPARAM;   (* MPARAM initialized to zero *)
  32.  
  33.  
  34. (* function procedures to make an MPARAM from standard types. *)
  35. PROCEDURE MPFROMP      ( p : ADDRESS            ) : MPARAM;
  36. PROCEDURE MPFROMHWND   ( WinHandle : HWND       ) : MPARAM;
  37. PROCEDURE MPFROMCHAR   ( ch : BYTE              ) : MPARAM;
  38. PROCEDURE MPFROMSHORT  ( s : WORD               ) : MPARAM;
  39. PROCEDURE MPFROM2SHORT ( l,h : WORD             ) : MPARAM;
  40. PROCEDURE MPFROMSH2CH  ( l : WORD; hl,hh : BYTE ) : MPARAM;
  41. PROCEDURE MPFROMLONG   ( l : LONGWORD           ) : MPARAM;
  42.  
  43.  
  44. (* function procedures to extract standard types from an MPARAM *)
  45. PROCEDURE PVOIDFROMMP  ( mp : MPARAM            ) : ADDRESS;
  46. PROCEDURE HWNDFROMMP   ( mp : MPARAM            ) : HWND;
  47. PROCEDURE CHAR1FROMMP  ( mp : MPARAM            ) : CHAR;
  48. PROCEDURE CHAR2FROMMP  ( mp : MPARAM            ) : CHAR;
  49. PROCEDURE CHAR3FROMMP  ( mp : MPARAM            ) : CHAR;
  50. PROCEDURE CHAR4FROMMP  ( mp : MPARAM            ) : CHAR;
  51. PROCEDURE SHORT1FROMMP ( mp : MPARAM            ) : CARDINAL;
  52. PROCEDURE SHORT2FROMMP ( mp : MPARAM            ) : CARDINAL;
  53. PROCEDURE LONGFROMMP   ( mp : MPARAM            ) : LONGCARD;
  54.  
  55.  
  56. (* function procedures to make an MRESULT from standard types. *)
  57. PROCEDURE MRFROMP      ( p : ADDRESS            ) : MRESULT;
  58. PROCEDURE MRFROMSHORT  ( s : WORD               ) : MRESULT;
  59. PROCEDURE MRFROM2SHORT ( l,h : WORD             ) : MRESULT;
  60. PROCEDURE MRFROMLONG   ( l : LONGWORD           ) : MRESULT;
  61.  
  62.  
  63. (* function procedures to extract standard types from an MRESULT *)
  64. PROCEDURE PVOIDFROMMR  ( mr : MRESULT           ) : PVOID;
  65. PROCEDURE SHORT1FROMMR ( mr : MRESULT           ) : CARDINAL;
  66. PROCEDURE SHORT2FROMMR ( mr : MRESULT           ) : CARDINAL;
  67. PROCEDURE LONGFROMMR   ( mr : MRESULT           ) : LONGCARD;
  68.  
  69.  
  70. (*************************************************************************
  71. * This is the standard function definition for window procedures.
  72. * Typically they are names like "XxxxxxxxWndProc", where the prefix
  73. * "Xxxxxxxxx" is replaced by some name descriptive of the window procedure
  74. * being declared.  
  75. *
  76. * The OS/2 Developers Toolkit 2.x documentation says that
  77. * window procedures must be EXPORTED in the definitions
  78. * file used by the linker. Hence they are declared as EXPENTRY in C-language.
  79. * In Modula-2 this would mean that the callback function is to be introduced
  80. * in a Modula-2 defintion module and implemented in an implementation module.
  81. * Actual programming practice has shown that this restriction is not needed.
  82. * The callback procedure only has to be specified as (*$CDECL+*) to make
  83. * it compatible with OS/2 "_system" linkage convention.
  84. * 
  85. *
  86. *    PROCEDURE MyclassWndProc
  87. *    ( WinHandle : HWND;
  88. *      MessageId : LONGCARD;
  89. *      Param1    : MPARAM;
  90. *      Param2    : MPARAM
  91. *    )           : MRESULT;
  92. *
  93. *************************************************************************)
  94.  
  95.  
  96. TYPE (* Pointer to a window procedure function *)
  97.   PFNWP = PROCEDURE( HWND, LONGCARD, MPARAM, MPARAM ):MRESULT;
  98.  
  99.  
  100.  
  101. CONST (* Predefined window handles *)
  102.   HWND_DESKTOP            =  HWND( 1 );
  103.   HWND_OBJECT             =  HWND( 2 );
  104.   HWND_TOP                =  HWND( 3 );
  105.   HWND_BOTTOM             =  HWND( 4 );
  106.   HWND_THREADCAPTURE      =  HWND( 5 );
  107.  
  108.  
  109.  
  110. CONST (* standard window classes, e.g. for WinCreateWindow *)
  111.   WC_FRAME                = "#1";    (* 0001H *)
  112.   WC_COMBOBOX             = "#2";    (* 0002H *)
  113.   WC_BUTTON               = "#3";    (* 0003H *)
  114.   WC_MENU                 = "#4";    (* 0004H *)
  115.   WC_STATIC               = "#5";    (* 0005H *)
  116.   WC_ENTRYFIELD           = "#6";    (* 0006H *)
  117.   WC_LISTBOX              = "#7";    (* 0007H *)
  118.   WC_SCROLLBAR            = "#8";    (* 0008H *)
  119.   WC_TITLEBAR             = "#9";    (* 0009H *)
  120.   WC_MLE                  = "#10";   (* 000AH *)
  121.                                      (* 000BH to 000FH reserved *)
  122.   WC_APPSTAT              = "#16";   (* 0010H *)
  123.   WC_KBDSTAT              = "#17";   (* 0011H *)
  124.   WC_PECIC                = "#18";   (* 0012H *)
  125.   WC_DBE_KKPOPUP          = "#19";   (* 0013H *)
  126.                                      (* 0014H to 001FH reserved *)
  127.   WC_SPINBUTTON           = "#32";   (* 0020H *)
  128.                                      (* 0021H to 0024H reserved *)
  129.   WC_CONTAINER            = "#37";   (* 0025H *)
  130.   WC_SLIDER               = "#38";   (* 0026H *)
  131.   WC_VALUESET             = "#39";   (* 0027H *)
  132.   WC_NOTEBOOK             = "#40";   (* 0028H *)
  133.                                      (* 0029H to 0030H reserved *)
  134.                                      (* 0030H to 003FH reserved *)
  135.  
  136.  
  137. CONST (* Standard Window Styles *)
  138.   WS_VISIBLE        = 80000000H;
  139.   WS_DISABLED       = 40000000H;
  140.   WS_CLIPCHILDREN   = 20000000H;
  141.   WS_CLIPSIBLINGS   = 10000000H;
  142.   WS_PARENTCLIP     = 08000000H;
  143.   WS_SAVEBITS       = 04000000H;
  144.   WS_SYNCPAINT      = 02000000H;
  145.   WS_MINIMIZED      = 01000000H;
  146.   WS_MAXIMIZED      = 00800000H;
  147.   WS_ANIMATE        = 00400000H;
  148.  
  149.  
  150. CONST (* Dialog manager styles *)
  151.   WS_GROUP          = 00010000H;
  152.   WS_TABSTOP        = 00020000H;
  153.   WS_MULTISELECT    = 00040000H;
  154.  
  155.  
  156. CONST (* Class styles *)
  157.   CS_MOVENOTIFY     = 00000001H;
  158.   CS_SIZEREDRAW     = 00000004H;
  159.   CS_HITTEST        = 00000008H;
  160.   CS_PUBLIC         = 00000010H;
  161.   CS_FRAME          = 00000020H;
  162.   CS_CLIPCHILDREN   = 20000000H;
  163.   CS_CLIPSIBLINGS   = 10000000H;
  164.   CS_PARENTCLIP     = 08000000H;
  165.   CS_SAVEBITS       = 04000000H;
  166.   CS_SYNCPAINT      = 02000000H;
  167.  
  168.  
  169. CONST (* Extended Attribute Flags (Association Table) *)
  170.   EAF_DEFAULTOWNER  = 0001H;
  171.   EAF_UNCHANGEABLE  = 0002H;
  172.   EAF_REUSEICON     = 0004H;
  173.  
  174.  
  175. (* atom to pointer conversion *)
  176. PROCEDURE MAKEINTATOM( a:SYSTEM.LONGWORD ):PCHAR;
  177.  
  178.  
  179. CONST (* misc. definitions *)
  180.   STR_DLLNAME       = "keyremap";
  181.  
  182.  
  183. CONST (* DBCS window manager window message range *)
  184.   WM_DBCSFIRST      = 00B0H;
  185.   WM_DBCSLAST       = 00CFH;
  186.  
  187.  
  188. TYPE (* program handle *)
  189.   HPROGRAM               = LHANDLE;                 (* hprog *)
  190.   PHPROGRAM              = POINTER TO HPROGRAM;
  191.   HAPP                   = LHANDLE;
  192.  
  193.  
  194. TYPE (* ini file handle *)
  195.   HINI                   = LHANDLE;                 (* hini *)
  196.   PHINI                  = POINTER TO HINI;
  197.  
  198.  
  199. CONST
  200.   HINI_PROFILE           = HINI( NIL );
  201.   HINI_USERPROFILE       = HINI( -1 );
  202.   HINI_SYSTEMPROFILE     = HINI( -2 );
  203.   HINI_USER              = HINI_USERPROFILE;
  204.   HINI_SYSTEM            = HINI_SYSTEMPROFILE;
  205.  
  206.  
  207. END WINDEF.
  208.