home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Programmer's Library 1.3 / Microsoft-Programers-Library-v1.3.iso / sampcode / msj / msjv5_1 / pmbasic / cintrfce.c next >
Encoding:
C/C++ Source or Header  |  1989-12-11  |  827 b   |  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.