home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBFWHLE.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  471 b   |  15 lines
  1.     // TbFwhle.prg
  2.     //
  3.     //   TBForWhile()     - Return TBrowse object implementing for and
  4.     //                      while conditions. Pass as blocks.
  5.  
  6.     FUNCTION TBForWhile(bFirst, bLast, bFor, bWhile)
  7.  
  8.     LOCAL oTbr := TBrowseNew()
  9.  
  10.       oTbr:goTopBlock    := {||  TBFwFirst(bFirst, bWhile, bFor) }
  11.       oTbr:goBottomBlock := {||  TBFwLast(bLast, bWhile, bFor) }
  12.       oTbr:skipBlock     := {|n| TBFwSkip(n, bWhile, bFor) }
  13.  
  14.     RETURN oTbr
  15.