home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / PMBASIC.ZIP / CINTRFCE.C next >
C/C++ Source or Header  |  1989-12-11  |  827b  |  45 lines
  1.  
  2. #define INCL_WIN
  3. #include <os2.h>
  4.  
  5. extern MRESULT EXPENTRY ClientWndProc ( long near *, int
  6. near *, long near *, long near *);
  7.  
  8. MRESULT EXPENTRY BasClientWndProc(HWND hwnd, USHORT msg,
  9. MPARAM mp1, MPARAM mp2)
  10.  
  11. {
  12.    static long near hwndb;
  13.    static int near  msgb;
  14.    static long near mp1b;
  15.    static long near mp2b;
  16.    hwndb=(long)hwnd;
  17.    msgb=(int)msg;
  18.    mp1b=(long)mp1;
  19.    mp2b=(long) mp2;
  20.    return ClientWndProc(&hwndb, &msgb, &mp1b, &mp2b);
  21.  
  22. } /* BasClientWndProc */
  23.  
  24.  
  25. long pascal far RegBas(void)
  26. {
  27.    return (long) BasClientWndProc;
  28.  
  29. } /* regbas */
  30.  
  31.  
  32. long pascal Makelong (long passedlong)
  33. {
  34.    return passedlong;
  35. } /* MakeLong */
  36.  
  37.  
  38. void pascal BreakLong(int hiword, int loword, int *phiword,
  39. int *ploword)
  40. {
  41.    *phiword = hiword;
  42.    *ploword = loword;
  43. } /* BreakLong */
  44.  
  45.