home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBCCLONE.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  582 b   |  20 lines
  1.     // TBCClone.prg
  2.     //
  3.     // Return a clone of an existing TBColumn object
  4.  
  5.     FUNCTION TBClone(oTbcOld)
  6.  
  7.     LOCAL oTbcNew := TBColumnNew()
  8.  
  9.       oTbcNew:block      := oTbcOld:block
  10.       oTbcNew:cargo      := oTbcOld:cargo
  11.       oTbcNew:colorBlock := oTbcOld:colorBlock
  12.       oTbcNew:defColor   := oTbcOld:defColor
  13.       oTbcNew:footing    := oTbcOld:footing
  14.       oTbcNew:footSep    := oTbcOld:footSep
  15.       oTbcNew:heading    := oTbcOld:heading
  16.       oTbcNew:headSep    := oTbcOld:headSep
  17.       oTbcNew:width      := oTbcOld:width
  18.  
  19.     RETURN oTbcNew
  20.