home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTBLOC.PRG < prev    next >
Text File  |  1994-05-30  |  553b  |  23 lines
  1. // Disk-Storable CodeBlocks Objects
  2. // (c) FiveWin Object-tools
  3.  
  4. #include "FiveWin.ch"
  5.  
  6. //----------------------------------------------------------------------------//
  7.  
  8. function Main()
  9.  
  10.    local oBlock
  11.  
  12.    oBlock = TBlock():New( "{ | cMsg | MsgInfo( cMsg ) }" )
  13.  
  14.    oBlock:Eval( "CodeBlocks storables on disk!" )
  15.  
  16.    // Now lets try to build a 'bad' CodeBlock
  17.  
  18.    oBlock = TBlock():New( "{ || MsgAlert( cTest )" )   // '}' missing !
  19.    
  20. return nil
  21.  
  22. //----------------------------------------------------------------------------//
  23.