(FILECREATED "13-Jul-86 17:00:20" {QV}<NOTECARDS>1.3K>KIRKPATCH015.;2
 1499   

      changes to:  (FNS NC.CopyStructure)

      previous date: "13-Jul-86 15:25:26" {QV}<NOTECARDS>1.3K>KIRKPATCH015.;1)


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

(PRETTYCOMPRINT KIRKPATCH015COMS)

(RPAQQ KIRKPATCH015COMS
 ((* * this changes Copy and Move Structure command order and prompt message)
			   (FNS NC.CopyStructure)))
(* * this changes Copy and Move Structure command order and prompt message)


(DEFINEQ

(NC.CopyStructure

  (LAMBDA (FromCard ToPosition TraversalSpecs CheckFlg)      (* kirk: "13-Jul-86 16:56")


          (* * Copy a NoteCard structure into a filebox)




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



    (
OR
 FromCard (
SETQ
 FromCard (
NC.SelectNoteCards
 T NIL NC.SelectingCardMenu NIL NIL 
						   "Shift-select the root cards of the structure"))
	  (
ERROR!
))
    (
OR
 TraversalSpecs (
SETQ
 TraversalSpecs (
NC.AskTraversalSpecs
 FromCard))
	  (
ERROR!
))
    (
OR
 ToPosition (
SETQ
 ToPosition (
NC.SelectNoteCards
 T NIL NC.SelectingCardMenu NIL NIL 
					     "Shift-select the FileBox to contain the structure."))
	  (
ERROR!
))
    (
NC.CopyCards
 (
NC.CollectCards
 (
LIST
 FromCard)
				       TraversalSpecs)
		    ToPosition FromCard)))
)
(PUTPROPS KIRKPATCH015 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (529 1416 (NC.CopyStructure 539 . 1414)))))
STOP