home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / PNL Libraries / Assembly / StubLDEF.p < prev    next >
Encoding:
Text File  |  1993-05-03  |  614 b   |  21 lines  |  [TEXT/CWIE]
  1. unit SimpleLDEF;
  2.  
  3. interface
  4.  
  5.     procedure Main (message: integer; select: boolean; var r: Rect; c: Cell; dataOffset, dataLen: integer; lh: ListHandle);
  6.  
  7. implementation
  8.  
  9.     procedure CallProc (message: integer; select: boolean; var r: Rect; c: Cell; dataOffset, dataLen: integer; lh: ListHandle; proc: procPtr);
  10.     inline
  11.         $205F, $4E90;
  12.  
  13.     procedure Main (message: integer; select: boolean; var r: Rect; c: Cell; dataOffset, dataLen: integer; lh: ListHandle);
  14.         var
  15.             rc: longInt;
  16.     begin
  17.         if procPtr(lh^^.refCon) <> nil then
  18.             CallProc(message, select, r, c, dataOffset, dataLen, lh, procPtr(lh^^.refCon));
  19.     end;
  20.  
  21. end.