(FILECREATED " 8-Apr-87 12:43:23" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH027.;2
 5324   

      changes to:  (VARS RGPATCH027COMS)

      previous date: " 8-Apr-87 12:36:31" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH027.;1)


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

(PRETTYCOMPRINT RGPATCH027COMS)

(RPAQQ RGPATCH027COMS
 ((* * rg 4/8/87 deleted unused args to NC.CloseNoteCards)
			 (* * changes to NCINTERFACE)
			 (* * following changes call to NC.CloseNoteCards in menu item)
			 [P [if (BOUNDP NCINTERFACECOMS)
				then
				(EDITV NCINTERFACECOMS (R (NC.CloseNoteCards NIL NIL NIL 
									   NC.NoteCardsIconWindow)
							  (NC.CloseNoteCards NIL 
									   NC.NoteCardsIconWindow]
			    (EDITV NC.CardOpsItems (R (NC.CloseNoteCards NIL NIL NIL 
									 NC.NoteCardsIconWindow)
						      (NC.CloseNoteCards NIL NC.NoteCardsIconWindow]
			 (FNS NC.CloseNoteCards NC.CloseStructure)))
(* * rg 4/8/87 deleted unused args to NC.CloseNoteCards)


(* * changes to NCINTERFACE)


(* * following changes call to NC.CloseNoteCards in menu item)


[if (BOUNDP NCINTERFACECOMS)
    then
    (EDITV NCINTERFACECOMS (R (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
			      (NC.CloseNoteCards NIL NC.NoteCardsIconWindow]
(EDITV NC.CardOpsItems (R (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow)
			  (NC.CloseNoteCards NIL NC.NoteCardsIconWindow)))
(DEFINEQ

(NC.CloseNoteCards

  [LAMBDA (CardIdOrCardList InterestedWindow)                (* Randy.Gobbel " 8-Apr-87 12:26")


          (* * Close note acrds on the screen)




          (* * fgh 11/14/85 Updated to handle Card object.)




          (* * kirk 21Feb86 Added InterestedWindow)




          (* * fgh 6/27/86 Fixed call to NC.SelectNoteCards to use just InterestedWindow)




          (* * pmi 12/5/86: Modified message to NC.SelectNoteCards to mention SHIFT-selection.)




          (* * pmi 12/12/86: Removed obsolete ReturnLinksFlg argument in call to NC.SelectNoteCards.)




          (* * rht 3/9/87: Changed NC.DeleteSelectingMenu to NC.SelectingCardsMenu.)




          (* * rg 3/9/87 added NC.ProtectedSessionOperation wrapper)




          (* * rg 4/1/87 changes NC.ProtectedSessionOperation to NCP.WithLockedCards ; also added NC.IfAllCardsFree wrapper)




          (* * rg 4/8/87 fixed bug 156: deleted unused args)



    (DECLARE
 (
GLOBALVARS
 NC.SelectingCardsMenu))
    (NCP.WithLockedCards (NC.IfAllCardsFree (
NC.LockListOfCards
 (
MKLIST
 CardIdOrCardList)
								  "Close Note Cards")
					    (LET (Cards Window)
					         [
SETQ
 Cards
						   (
COND

						     ((
LISTP
 CardIdOrCardList))
						     (CardIdOrCardList (
NC.CoerceToCard
 
										 CardIdOrCardList))
						     (T (
NC.SelectNoteCards
 NIL NIL 
									    NC.SelectingCardsMenu 
									      InterestedWindow 
						    "Please shift-select the cards to be closed."]
					         (
ALLOW.BUTTON.EVENTS
)
					         (for
 Card in
 (
MKLIST
 Cards)
						    do
 (
COND

							   ((
AND
 (
NC.ActiveCardP
 Card)
								   (
SETQ
 Window (
NC.FetchWindow

								       Card)))
							     (
COND

							       ((
NEQ
 (
NC.QuitCard
 Card T)
								       (
QUOTE
 DON'T))
								 (while
 (
OPENWP
 Window)
								    do
 (
BLOCK
])

(NC.CloseStructure

  [LAMBDA (RootCards TraversalSpecs InterestedWindow QuietFlg)
                                                             (* Randy.Gobbel " 8-Apr-87 12:27")


          (* * rht 9/2/86: Replaced call to outdated NC.CollectCards with NCP.CollectCards. Threw away useless NoCheckFlg and

	  Don'tClearFlg args.)




          (* * pmi 12/12/86: Removed obsolete ReturnLinksFlg argument in call to NC.SelectNoteCards.)




          (* * rht 3/9/87: Now accepts multiple root cards.)




          (* * rg 3/9/87 added NC.ProtectedSessionOperation wrapper)




          (* * rg 4/1/87 changes NC.ProtectedSessionOperation to NCP.WithLockedCards ; added NC.IfAllCardsFree wrapper)



    (NCP.WithLockedCards (
SETQ
 RootCards (
MKLIST
 RootCards))
			 (NC.IfAllCardsFree (
NC.LockListOfCards
 RootCards "Close Structure")
					    (
OR
 RootCards (
SETQ
 RootCards
						    (
NC.SelectNoteCards
 NIL NIL 
									  NC.SelectingCardsMenu NIL 
						   "Shift-select the root cards of the structure"))
						  (
ERROR!
))
					    [
OR
 TraversalSpecs (
SETQ
 TraversalSpecs
						    (
NC.AskTraversalSpecs
 (fetch
 (Card NoteFile)
									       of
 (
CAR
 RootCards))
									    (
QUOTE
 (SubBox 
											FiledCard]
					    (if
 (
AND
 RootCards TraversalSpecs)
						then
 (
OR
 QuietFlg (
NC.PrintMsg
 InterestedWindow 
										     T 
								  "Collecting cards to close ..."))
						       (NC.CloseNoteCards

							 (
NCP.CollectCards
 RootCards
									     (fetch
 (TRAVERSALSPECS
											LinkTypes)
										of
 TraversalSpecs)
									     (fetch
 (TRAVERSALSPECS
											Depth)
										of
 TraversalSpecs))
							 InterestedWindow)
						       (
OR
 QuietFlg (
NC.ClearMsg
 InterestedWindow 
										     T))
						       RootCards])
)
(PUTPROPS RGPATCH027 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1397 5243 (NC.CloseNoteCards 1407 . 3360) (NC.CloseStructure 3362 . 5241)))))
STOP