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

(FILECREATED "28-Jul-88 10:16:09" |{NB:PARC:XEROX}<NOTECARDS>1.3LNEXT>PMIPATCH100.;1|
 2997   

      changes to%:  (FNS NC.MoveCards))


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

(PRETTYCOMPRINT PMIPATCH100COMS)

(RPAQQ PMIPATCH100COMS
 (

(* ;;; "New file")


                        (DECLARE%: DONTCOPY (PROPS (PMIPATCH100 MAKEFILE-ENVIRONMENT)
                                                   (PMIPATCH100 FILETYPE)))
                        
          
          (* ;; "pmi 7/28/88: NC.MoveCards now returns new cards instead of old ones.")


                        
          
          (* ;; "Changed in NCDATABASE")


                        (FNS NC.MoveCards)))



(* ;;; "New file")


(DECLARE%: DONTCOPY 

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

(PUTPROPS PMIPATCH100 FILETYPE
 :BCOMPL)
)



(* ;; "pmi 7/28/88: NC.MoveCards now returns new cards instead of old ones.")





(* ;; "Changed in NCDATABASE")


(DEFINEQ

(NC.MoveCards

  [LAMBDA (Cards DestNoteFileOrFileBox RootCards QuietFlg InterestedWindow CopyExternalToLinksMode)

                                                             (* ; "Edited 28-Jul-88 10:03 by pmi")


(* ;;; "Move cards into a filebox by copying and deleting.")


(* ;;; "rht&rg&pmi 4/22/87: Took out ERROR!")


(* ;;; "rg 6/2/87 added NCP.WithLockedCards wrapper")


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


(* ;;; "pmi 7/28/88: Now returns new cards instead of old ones.")


    (DECLARE
 (GLOBALVARS NC.SelectingCardsMenu))
    (LET (NewCards)
         (NCP.WithLockedCards (NC.IfAllCardsFree (NC.LockListOfCards Cards "Move Cards")
                                     (OR Cards (SETQ Cards (NC.SelectNoteCards NIL NIL 
                                                                  NC.SelectingCardsMenu NIL 
                                                 "Shift-select from the same NoteFile cards to move:"
                                                                  )))
                                     (if
 Cards
                                         then
 (SETQ Cards (MKLIST Cards))
                                              (SETQ NewCards (NC.CopyCards Cards 
                                                                    DestNoteFileOrFileBox RootCards 
                                                                    QuietFlg InterestedWindow 
                                                                    CopyExternalToLinksMode))
                                              (NC.DeleteNoteCards Cards T NIL InterestedWindow 
                                                     QuietFlg NIL))
                                     NewCards])
)
(PUTPROPS PMIPATCH100 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (1099 2914 (NC.MoveCards 1109 . 2912)))))
STOP