(FILECREATED "27-Mar-87 16:23:19" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH025.;1
 2919   

      changes to:  (VARS PMIPATCH025COMS)
		   (FNS NC.DeleteNoteCard))


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

(PRETTYCOMPRINT PMIPATCH025COMS)

(RPAQQ PMIPATCH025COMS
 ((* * pmi 3/27/87: Changed call of NC.SeverAllLinks to 
			     NC.SeverExternalLinks.)
			  (* * Change to NCCARDS)
			  (FNS NC.DeleteNoteCard)))
(* * pmi 3/27/87: Changed call of NC.SeverAllLinks to NC.SeverExternalLinks.)


(* * Change to NCCARDS)


(DEFINEQ

(NC.DeleteNoteCard

  (LAMBDA (CardIdentifier DontClearFlg NoConfirmFlg QuietFlg InterestedWindow)
                                                             (* pmi: "27-Mar-87 16:22")


          (* * User interface level fn to delete a single note card from a NoteFile)




          (* * rht 3/25/87: Added a bunch of new args. Fixed InterestedWindow stuff.)




          (* * 3/26/87: Now clears InterestedWindow when done.)




          (* * pmi 3/27/87: Changed call of NC.SeverAllLinks to NC.SeverExternalLinks.)



    (LET ((Card (
NC.CoerceToCard
 CardIdentifier)))
         (if
 (
NC.ValidCardP
 Card)
	     then
 (
OR
 InterestedWindow (
SETQ
 InterestedWindow (
NC.CoerceToInterestedWindow

			      Card)))
		    (NC.ProtectedCardOperation Card "Delete Note Card" InterestedWindow
					       (
AND
 (if
 (
NC.TopLevelCardP
 Card)
							  then
 (
NC.PrintMsg
 InterestedWindow T 
								"You cannot delete this FileBox."
										(
CHARACTER
 13))
								 (
DISMISS
 1000)
								 (
NC.ClearMsg
 InterestedWindow T)
								 NIL
							else
 T)
						      (
NC.CheckForNotReadOnly
 Card InterestedWindow 
								     "Can't delete cards from a ")
						      (
OR
 NoConfirmFlg
							    (
PROG1
 (
NC.AskYesOrNo
 
							  "Are you sure you want to delete this?"
										      " -- " "Yes"
										      (
NULL
 
										     DontClearFlg)
										      
										 InterestedWindow NIL 
										      NIL)
								     (
NC.ClearMsg
 InterestedWindow 
										    T)))
						      (
PROGN
 

          (* * Mark UID of card about to be deleted.)



							       (
NC.UIDPutProp
 (fetch

										  (Card UID)
										   of
 Card)
										(
QUOTE
 
									      AboutToBeDeletedFlg)
										T)

          (* * Sever all links into and out of Card)



							       (
NC.SeverExternalLinks
 (
LIST

											  Card)
											QuietFlg 
										 InterestedWindow)

          (* * Now delete the card)



							       (
PROG1
 (
NC.DeleteNoteCardInternal

									  Card QuietFlg 
									  InterestedWindow)
									(
OR
 QuietFlg
									      (
NC.ClearMsg
 
										 InterestedWindow T)))
							       )))))))
)
(PUTPROPS PMIPATCH025 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (553 2837 (NC.DeleteNoteCard 563 . 2835)))))
STOP