(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP")

(FILECREATED "12-Aug-88 11:04:45" {QV}<NOTECARDS>1.3LNEXT>PMIPATCH103.;1
 2653   

      changes to%:  (VARS PMIPATCH103COMS))


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

(PRETTYCOMPRINT PMIPATCH103COMS)

(RPAQQ PMIPATCH103COMS
 (

(* ;;; "New file")


                        (DECLARE%: DONTCOPY (PROPS (PMIPATCH103 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH103 FILETYPE)))
                        
                        (* ;; 

                   "pmi 8/12/88: Added InterestedWindow argument to NCP.CopyCards and NCP.MoveCards.")


                        
                        (* ;; "Changed in NCPROGINT")


                        (FNS NCP.CopyCards NCP.MoveCards)))



(* ;;; "New file")


(DECLARE%: DONTCOPY 

(PUTPROPS PMIPATCH103
 MAKEFILE-ENVIRONMENT
 (:PACKAGE "INTERLISP" :READTABLE "INTERLISP"))

(PUTPROPS PMIPATCH103
 FILETYPE
 :BCOMPL)
)



(* ;; "pmi 8/12/88: Added InterestedWindow argument to NCP.CopyCards and NCP.MoveCards.")





(* ;; "Changed in NCPROGINT")


(DEFINEQ

(NCP.CopyCards

  [LAMBDA (Cards DestNoteFileOrFileBox RootCards QuietFlg CopyExternalToLinksMode InterestedWindow)

                                                             (* ; "Edited 12-Aug-88 11:01 by pmi")


    (* ;; "Make copies of Cards and all links among them, not including external links.  RootCards should be a subset of Cards or nil.  If nil, then all cards in Cards are considered roots.  If DestNoteFileOrFileBox is a filebox, then all roots are filed in that box, otherwise, the contents box of the notefile is used.")


    (* ;; "Note that all cards currently must be in the same notefile.")


    (* ;; "pmi 10/29/87: Added CopyExternalToLinksMode argument to be passed down to NC.CopyCards.")


    (* ;; "pmi 8/12/88: Added InterestedWindow argument.")


    (NC.CopyCards Cards DestNoteFileOrFileBox RootCards QuietFlg InterestedWindow 
           CopyExternalToLinksMode])

(NCP.MoveCards

  [LAMBDA (Cards DestNoteFileOrFileBox RootCards QuietFlg CopyExternalToLinksMode InterestedWindow)

                                                             (* ; "Edited 12-Aug-88 11:01 by pmi")


    (* ;; "pmi 10/29/87: Move cards into a filebox.")


    (* ;; "pmi 8/12/88: Added InterestedWindow argument.")


    (NC.MoveCards Cards DestNoteFileOrFileBox RootCards QuietFlg InterestedWindow 
           CopyExternalToLinksMode])
)
(PUTPROPS PMIPATCH103 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1165 2570 (NCP.CopyCards 1175 . 2097) (NCP.MoveCards 2099 . 2568)))))
STOP