home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a065 / 1.img / TBLIB.EXE / TBRCLONE.PRG < prev    next >
Encoding:
Text File  |  1992-03-09  |  1.0 KB  |  30 lines
  1.     // TBRClone.prg
  2.     //
  3.     // TBRClone()  - Return a clone of an existing TBrowse object
  4.  
  5.     FUNCTION TBRClone(oTbrOld)
  6.  
  7.     LOCAL oTbrNew := TBrowseNew()
  8.  
  9.       oTbrNew:autoLite      := oTbrOld:autoLite
  10.       oTbrNew:cargo         := oTbrOld:cargo
  11.       oTbrNew:colorSpec     := oTbrOld:colorSpec
  12.       oTbrNew:colPos        := oTbrOld:colPos
  13.       oTbrNew:footSep       := oTbrOld:footSep
  14.       oTbrNew:freeze        := oTbrOld:freeze
  15.       oTbrNew:goBottomBlock := oTbrOld:goBottomBlock
  16.       oTbrNew:goTopBlock    := oTbrOld:goTopBlock
  17.       oTbrNew:headSep       := oTbrOld:headSep
  18.       oTbrNew:hitBottom     := oTbrOld:hitBottom
  19.       oTbrNew:hitTop        := oTbrOld:hitTop
  20.       oTbrNew:nBottom       := oTbrOld:nBottom
  21.       oTbrNew:nLeft         := oTbrOld:nLeft
  22.       oTbrNew:nRight        := oTbrOld:nRight
  23.       oTbrNew:nTop          := oTbrOld:nTop
  24.       oTbrNew:rowPos        := oTbrOld:rowPos
  25.       oTbrNew:skipBlock     := oTbrOld:skipBlock
  26.       oTbrNew:stable        := oTbrOld:stable
  27.  
  28.     RETURN oTbrNew
  29.  
  30.