(FILECREATED " 8-Aug-86 14:55:29" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH087.;1
 2973   

      changes to:  (VARS RHTPATCH087COMS))


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

(PRETTYCOMPRINT RHTPATCH087COMS)

(RPAQQ RHTPATCH087COMS
 ((* * Change for NCDOCUMENTCARD)
			  (FNS NC.MakeDocInspectorSelectionFn)))
(* * Change for NCDOCUMENTCARD)


(DEFINEQ

(NC.MakeDocInspectorSelectionFn

  (LAMBDA (Property ValueFlg InspectWin)                     (* rht: " 8-Aug-86 14:39")


          (* * Called when user buttons in the make document inspector menu on the Property parameter.

	  Put up a menu of choices for new values for this parameter.)




          (* * rht 11/17/84: Now can select --CANCEL--. Notice strange way of checking for --DONE-- versus --CANCEL--.

	  This is because the Inspector package doesn't send the property name in Property arg if ValueFlg is on.

	  That bug has been reported.)




          (* * rht 10/11/85: Fixed to have a more correct interface to NC.AskLinkLabel when need to Select.)




          (* * rht 10/22/85: Now uses ChangedFlg to prevent NIL from showing up as value in inspector.)




          (* * rht 8/8/86: Changed call from NCP.GetLinkLabels to NC.RetrieveLinkLabels. Also now allows selection of value 

	  as well as property.)



    (if
 (
FMEMB
 Property (
QUOTE
 (--DONE-- --CANCEL--)))
	then
 (
DETACHWINDOW
 InspectWin)
	       (
CLOSEW
 InspectWin)
	       (if
 ValueFlg
		   then
 (
PUTPROP
 (
QUOTE
 NC.MakeDocParameters)
				     (
QUOTE
 --DONE--)
				     (
QUOTE
 QUIT)))
	       NIL
      else
 (LET ((OldVal (
GETPROP
 (
QUOTE
 NC.MakeDocParameters)
				      Property))
		   (Answer (
MENU
 (create
 MENU
					     ITEMS ←(
CDR
 (
FASSOC
 Property NC.MakeDocParameters))
					     TITLE ← "Choose New Value")))
		   Links ChangedFlg)
	          (
SETQ
 ChangedFlg (if
 (
EQ
 Answer (
QUOTE
 Select))
					 then
 (LET ((CardWin (
MAINWINDOW
 InspectWin)))
						     (
SETQ
 Links
						       (
NC.AskLinkLabel

							 CardWin T T NIL NIL NIL
							 (
COND

							   ((
LISTP
 OldVal))
							   ((
EQ
 OldVal (
QUOTE
 ALL))
							     (
NC.RetrieveLinkLabels

							       (fetch
 (Card NoteFile)
								  of
 (
NC.CoerceToCard
 CardWin))
							       T))
							   (T NIL))
							 T)))
						(if
 Links
						    then
 (
SETQ
 Answer (if
 (
CAR
 Links)
									    else
 (
QUOTE
 NONE)))
							   (
NOT
 (
EQUAL
 Answer OldVal)))
				       else
 (
AND
 Answer (
NOT
 (
EQUAL
 Answer OldVal)))))
	          (if
 ChangedFlg
		      then
 (
PUTPROP
 (
QUOTE
 NC.MakeDocParameters)
					Property Answer)
			     (
INSPECTW.REDISPLAY
 InspectWin Property))
	          (
INSPECTW.SELECTITEM
 InspectWin)
	      NIL))))
)
(PUTPROPS RHTPATCH087 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (377 2891 (NC.MakeDocInspectorSelectionFn 387 . 2889)))))
STOP