(FILECREATED "20-Apr-87 14:29:48" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH243.;1
 2892   

      changes to:  (VARS RHTPATCH243COMS)
		   (FNS NC.FileInOrphanBox))


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

(PRETTYCOMPRINT RHTPATCH243COMS)

(RPAQQ RHTPATCH243COMS
 ((* * Fix to bug #526: deleting browser card doesn't orphanize new cards 
			     that were created. Changed so that orphan filing is forced for new cards 
			     that are active but not displayed.)
			  (* * Change to NCLINKS)
			  (FNS NC.FileInOrphanBox)))
(* * Fix to bug #526: deleting browser card doesn't orphanize new cards that were created. 
Changed so that orphan filing is forced for new cards that are active but not displayed.)


(* * Change to NCLINKS)


(DEFINEQ

(NC.FileInOrphanBox

  (LAMBDA (Link DestinationCard)                             (* rht: "20-Apr-87 14:25")


          (* * Hook card to orphan if this is the last link.)




          (* * rht 7/4/86: Changed to call NC.FetchSpecialCards so that RegistryCard, etc. won't have to be filed somewhere.)




          (* * rg 11/18/86 Added globalvars declaration)




          (* * rht 4/20/87: Changed to work on new cards unless they're displayed on screen. Also removed reference to 

	  long-demised NC.OrphansID.)



    (LET ((SourceCard (fetch
 (Link SourceCard) of
 Link)))
         (
AND
 (
NOT
 (
FMEMB
 DestinationCard (
NC.FetchSpecialCards
 (fetch
 (Card NoteFile)
									   of
 DestinationCard))))
		(
NOT
 (
NC.SameCardP
 SourceCard DestinationCard))
		(
NOT
 (
AND
 (
NC.FetchNewCardFlg
 DestinationCard)
			      (
NC.FetchWindow
 DestinationCard)))
		(
NOT
 (
NC.SameCardP
 SourceCard (fetch
 (NoteFile OrphansCard)
						     of
 (fetch
 (Card NoteFile) of
 SourceCard))))
		(
COND

		  ((
OR
 (
NULL
 (
NC.FetchFromLinks
 DestinationCard))
			 (for
 FromLink in
 (
NC.FetchFromLinks
 DestinationCard)
			    always
 (
NC.SameCardP
 (fetch
 (Link SourceCard) of
 FromLink)
						     DestinationCard)))
		    (
NC.PrintMsg
 NIL T "You have just removed the last link to " (
NC.RetrieveTitle

				     DestinationCard)
				   "."
				   (
CHARACTER
 13)
				   "It is being filed in the Orphan FileBox.")
		    (
NC.HookToOrphanCard
 DestinationCard))
		  ((for
 FromLink in
 (
NC.FetchFromLinks
 DestinationCard)
		      never
 (
FMEMB
 (fetch
 (Link Label) of
 FromLink)
				       (
QUOTE
 (SubBox FiledCard))))
		    (
NC.PrintMsg
 NIL T "You have just unfiled " (
NC.RetrieveTitle
 DestinationCard)
				   " from its last filebox."
				   (
CHARACTER
 13)
				   "It is being filed in the Orphan FileBox.")
		    (
NC.HookToOrphanCard
 DestinationCard))))
     Link)))
)
(PUTPROPS RHTPATCH243 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (771 2810 (NC.FileInOrphanBox 781 . 2808)))))
STOP