(FILECREATED " 7-Nov-85 19:28:03" {QV}<NOTECARDS>1.3K>RHTPATCH005.;1
 2251   

      changes to:  (VARS RHTPATCH005COMS))


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

(PRETTYCOMPRINT RHTPATCH005COMS)

(RPAQQ RHTPATCH005COMS
 ((* * Fix to NCP.SelectCards allows access to most of the args to 
			   NC.SelectNoteCards. Fix to NC.ClearMsg to handle case of a non-notecards 
			   window.)
			(FNS NCP.SelectCards NC.ClearMsg)))
(* * Fix to NCP.SelectCards allows access to most of the args to NC.SelectNoteCards. Fix to 
NC.ClearMsg to handle case of a non-notecards window.)


(DEFINEQ

(NCP.SelectCards

  (LAMBDA (IDOrWindow SingleCardFlg SelectionPredicate Msg CheckForCancelFlg)
                                                             (* rht: " 7-Nov-85 19:14")


          (* * Return a list of cards selected. A menu pops up near the prompt window with "DONE" and "CANCEL" buttons.

	  User selects by clicking in card's title bar.)




          (* * rht 11/7/85: Now takes a bunch of arguments that NC.SelectNoteCards wants. Only ones left out are Menu and 

	  ReturnLinksFlg.)



    (
NC.SelectNoteCards
 SingleCardFlg SelectionPredicate NC.SelectingCardsMenu IDOrWindow NIL Msg 
			CheckForCancelFlg)))

(NC.ClearMsg

  (LAMBDA (MainWindow ClosePromptWindowFlg)                  (* rht: " 7-Nov-85 19:17")

                                                             (* Clear and optionally close the promnpt window for 

							     MainWindow)


          (* * rht 9/10/85: Fixed so closes instead of removing prompt window and clears whether prompt win gets closed or 

	  not.)




          (* * rht 11/7/85: Now checks if MainWindow is a NC window. If so, clears its promptwindow. If not, clears MainWindow

	  itself.)



    (LET (PromptWindow)
      (if
 (
WINDOWP
 MainWindow)
	  then
 (if
 (
NC.IDFromWindow
 MainWindow)
		   then
 (
CLEARW
 (
SETQ
 PromptWindow (
GETPROMPTWINDOW
 MainWindow)))
			(if
 ClosePromptWindowFlg
			    then
 (
CLOSEW
 PromptWindow))
		 else
 (
CLEARW
 MainWindow))
	else
 (
CLRPROMPT
)))))
)
(PUTPROPS RHTPATCH005 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (612 2169 (NCP.SelectCards 622 . 1274) (NC.ClearMsg 1276 . 2167)))))
STOP