(FILECREATED " 5-Jul-86 21:06:21" {QV}<NOTECARDS>1.3K>FGHPATCH090.;1
 2935   

      changes to:  (VARS FGHPATCH090COMS)
		   (FNS NC.DeleteNoteCards))


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

(PRETTYCOMPRINT FGHPATCH090COMS)

(RPAQQ FGHPATCH090COMS
 ((* * Fix to DeleteNoteCards in RHTPATCH052)
			  (FILES RHTPATCH052)
			  (FNS NC.DeleteNoteCards)))
(* * Fix to DeleteNoteCards in RHTPATCH052)


(FILESLOAD RHTPATCH052)
(DEFINEQ

(NC.DeleteNoteCards

  (LAMBDA (CardIdentifiers NoCheckFlg DontClearFlg InterestedWindow)
                                                             (* fgh: " 5-Jul-86 20:55")

                                                             (* Delete note cards. If no card specified then get a 

							     list of note cards to be deleted.

							     Then delete these cards.)


          (* * fgh 11/11/85: Updated to handle new Card objects. Also split off main work of deleteing a single note card 

	  into NC.DeleteNoteCard function.)




          (* * kirk 21Feb86 Added InterestedWindow)




          (* * kirk 29Apr86 Now returns CardIdentifiers)




          (* * fgh 6/9/86 Added checks to see if other operations are in progress)




          (* * rht 7/4/86: Now checks that card is not read-only.)




          (* * fgh 7/5/86 Fixed preceeding fix. Valence of NC.CheckForReadOnly was wrong in COND. Added NULL.)



    (
OR
 CardIdentifiers (
SETQ
 CardIdentifiers (
NC.SelectNoteCards
 NIL NIL 
									NC.DeleteSelectingMenu 
									InterestedWindow NIL 
						    "Please select the Note Cards to be deleted.")))
    (bind
 Card OperationInProgress for
 CardIdentifier in
 (
MKLIST
 CardIdentifiers)
       do
 (
SETQ
 Card (
NC.CoerceToCard
 CardIdentifier))
	    (
COND

	      ((
NULL
 Card))
	      ((
NC.TopLevelCardP
 Card)
		(
NC.PrintMsg
 (
NC.FetchWindow
 Card)
			       T "You cannot delete this FileBox." (
CHARACTER
 13))
		(
DISMISS
 1000)
		(
NC.ClearMsg
 (
NC.FetchWindow
 Card)
			       T))
	      ((
NULL
 (
NC.CheckForReadOnly
 Card (
NC.FetchWindow
 Card)
					      "Can't delete cards from a ")))
	      (T (if
 (
SETQ
 OperationInProgress (
NC.OperationInProgress
 Card))
		     then
 (
NC.PrintOperationInProgressMsg
 (
NC.FetchWindow
 Card)
							      "Delete Card(s)" OperationInProgress)
		   else
 (NC.ProtectedCardOperation Card Delete% Card%(s%)
						     (
AND
 (
OR
 NoCheckFlg
								  (
PROG1
 (
NC.AskYesOrNo

									     
							  "Are you sure you want to delete this?"
									     " -- " "Yes"
									     (
NULL
 DontClearFlg)
									     (
NC.FetchWindow
 Card)
									     NIL NIL)
									   (
NC.ClearMsg
)))
							    (
NC.DeleteNoteCard
 Card)))))))
    CardIdentifiers))
)
(PUTPROPS FGHPATCH090 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (463 2853 (NC.DeleteNoteCards 473 . 2851)))))
STOP