home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / os2pm / shell.def < prev    next >
Text File  |  2020-01-01  |  1KB  |  45 lines
  1. DEFINITION MODULE Shell;
  2.  
  3.    FROM OS2DEF IMPORT
  4.       USHORT, HWND;
  5.  
  6.    FROM PMWIN IMPORT
  7.       MPARAM, MRESULT, SWP;
  8.  
  9.    EXPORT QUALIFIED
  10.       Class, Child, Title, FrameWindow, ClientWindow,
  11.       ChildFrameWindow, ChildClientWindow, Pos, SetPort,
  12.       WindowProc, ChildWindowProc;
  13.  
  14.    CONST
  15.       Class = "PCKermit";
  16.       Child ="Child";
  17.       Title = "PCKermit -- Microcomputer to Mainframe Communications";
  18.  
  19.  
  20.    VAR
  21.       FrameWindow : HWND;
  22.       ClientWindow : HWND;
  23.       ChildFrameWindow : HWND;
  24.       ChildClientWindow : HWND;
  25.       Pos : SWP;   (* Screen Dimensions: position & size *)
  26.       comport : CARDINAL;
  27.  
  28.  
  29.    PROCEDURE SetPort;
  30.  
  31.    PROCEDURE WindowProc ['WindowProc'] (
  32.       hwnd : HWND;
  33.       msg  : USHORT;
  34.       mp1  [VALUE] : MPARAM;
  35.       mp2  [VALUE] : MPARAM) : MRESULT [LONG, WINDOWS];
  36.  
  37.    PROCEDURE ChildWindowProc ['ChildWindowProc'] (
  38.       hwnd : HWND;
  39.       msg  : USHORT;
  40.       mp1  [VALUE] : MPARAM;
  41.       mp2  [VALUE] : MPARAM) : MRESULT [LONG, WINDOWS];
  42.  
  43. END Shell.
  44.  
  45.