(FILECREATED " 5-Sep-86 16:04:58" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH100.;1
 2064   

      changes to:  (VARS RHTPATCH100COMS)
		   (FNS NC.CopyStructure))


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT RHTPATCH100COMS)

(RPAQQ RHTPATCH100COMS
 ((* * Changes to NCINTERFACE)
			  (FNS NC.CopyStructure)))
(* * Changes to NCINTERFACE)


(DEFINEQ

(NC.CopyStructure

  (LAMBDA (RootCard DestinationFileBox TraversalSpecs InterestedWindow QuietFlg)
                                                             (* rht: " 5-Sep-86 14:13")


          (* * Copy a NoteCard structure into a filebox)




          (* * kirk 13/7/86: Placed TraversalSpecs after RootCard selection and changed prompt message)




          (* * rht 9/2/86: Threw away CheckFlg arg. Wasn't being used. Changed to call NCP.CollectCards instead of outdated 

	  NC.CollectCards. Changed arg named ToPosition to DestinationFileBox. Also changed FromCard to RootCard.

	  Passes two link types to NC.AskTraversalSpecs.)



    (
OR
 RootCard (
SETQ
 RootCard (
NC.SelectNoteCards
 T NIL NC.SelectingCardMenu NIL NIL 
						    "Shift-select the root card of the structure"))
	  (
ERROR!
))
    (
OR
 TraversalSpecs (
SETQ
 TraversalSpecs (
NC.AskTraversalSpecs
 RootCard (
QUOTE

									  (SubBox FiledCard))))
	  (
ERROR!
))
    (
OR
 DestinationFileBox (
SETQ
 DestinationFileBox (
NC.SelectNoteCards
 T
									      (
FUNCTION
 (LAMBDA (
										    Card)
										  (
NC.FileBoxP

										    Card T)))
									      NC.SelectingCardMenu 
									      NIL NIL 
					     "Shift-select the FileBox to contain the structure."))
	  (
ERROR!
))
    (
NC.CopyCards
 (
NCP.CollectCards
 RootCard (fetch
 (TRAVERSALSPECS LinkTypes) of
 
										   TraversalSpecs)
					(fetch
 (TRAVERSALSPECS Depth) of
 TraversalSpecs))
		    DestinationFileBox RootCard QuietFlg InterestedWindow)))
)
(PUTPROPS RHTPATCH100 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (385 1982 (NC.CopyStructure 395 . 1980)))))
STOP