home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SOURCE / CLASSES / BLOCK.PRG < prev    next >
Text File  |  1994-05-30  |  1KB  |  38 lines
  1. // FiveWin CodeBlock Class
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. CLASS TBlock
  8.  
  9.    DATA   cExpression
  10.    DATA   bBlock
  11.  
  12.    METHOD New( cExpression ) CONSTRUCTOR
  13.  
  14.    METHOD Eval( uPar1, uPar2, uPar3, uPar4, uPar5 ) INLINE ;
  15.                 If( ::bBlock != nil,;
  16.                 Eval( ::bBlock, uPar1, uPar2, uPar3, uPar4, uPar5 ),)
  17.  
  18.    METHOD Exec( uPar1, uPar2, uPar3, uPar4, uPar5 ) INLINE ;
  19.                 If( ::bBlock != nil,;
  20.                 Eval( ::bBlock, uPar1, uPar2, uPar3, uPar4, uPar5 ),)
  21.  
  22. ENDCLASS
  23.  
  24. //----------------------------------------------------------------------------//
  25.  
  26. METHOD New( cExpression ) CLASS TBlock
  27.  
  28.    if Type( cExpression ) $ "UEUI"
  29.       MsgAlert( "Invalid expression at Block constructor" )
  30.    else
  31.       ::cExpression = cExpression
  32.       ::bBlock      = &( cExpression )
  33.    endif
  34.  
  35. return nil
  36.  
  37. //----------------------------------------------------------------------------//
  38.