(FILECREATED " 4-Jul-86 23:24:42" {QV}<NOTECARDS>1.3K>RHTPATCH056.;2
 5563   

      changes to:  (FNS NC.ClearMsg NC.ShowInfo)
		   (VARS RHTPATCH056COMS)

      previous date: " 4-Jul-86 23:22:28" {QV}<NOTECARDS>1.3K>RHTPATCH056.;1)


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

(PRETTYCOMPRINT RHTPATCH056COMS)

(RPAQQ RHTPATCH056COMS
 ((* * Changes to NCUTILITIES)
			  (FNS NC.ClearMsg)
			  (* * Change to NCCARDS)
			  (FNS NC.ShowInfo)))
(* * Changes to NCUTILITIES)


(DEFINEQ

(NC.ClearMsg

  (LAMBDA (MainWindow ClosePromptWindowFlg)                  (* rht: " 4-Jul-86 23:24")

                                                             (* 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.)




          (* * fgh 5/1/86 Fix to above fix. If clearing MainWindow, still need to check the ClosePromptWindowFlg.

	  Don't close the main window if this flag in NIL.)




          (* * fgh 6/8/86 Added call to REPOSITIONATTACHEDWINDOWS)




          (* * fgh 6/13/86 Now uses prompt window for NF menus as well as cards.)




          (* * fgh 6/27/86 Updated to match window width changes in NC.PrintMsg)




          (* * fgh&rht 7/4/86: Now checks that window isn't shrunken before calling REPOSITIONATTACHEDWINDOWS)



    (LET (PromptWindow)
         (if
 (
WINDOWP
 MainWindow)
	     then
 (if
 (
NC.NoteCardsWindowP
 MainWindow)
			then
 (
SETQ
 PromptWindow (
NC.GETPROMPTWINDOW
 MainWindow NIL NIL T))
			       (if
 (
OPENWP
 PromptWindow)
				   then
 (
CLEARW
 PromptWindow))
			       (
WINDOWPROP
 PromptWindow (
QUOTE
 MaxLineWidth)
					     NIL)
			       (
WINDOWPROP
 PromptWindow (
QUOTE
 LastLineLength)
					     NIL)
			       (
WINDOWPROP
 PromptWindow (
QUOTE
 OldMaxWidth)
					     0)
			       (
WINDOWPROP
 MainWindow (
QUOTE
 PromptWindowLastNotCR)
					     NIL)
			       (if
 ClosePromptWindowFlg
				   then
 (
CLOSEW
 PromptWindow)
					  (
AND
 (
OPENWP
 MainWindow)
						 (
REPOSITIONATTACHEDWINDOWS
 MainWindow)))
		      else
 (
CLEARW
 MainWindow)
			     (if
 ClosePromptWindowFlg
				 then
 (
CLOSEW
 MainWindow)))
	   else
 (
CLRPROMPT
)))))
)
(* * Change to NCCARDS)


(DEFINEQ

(NC.ShowInfo

  (LAMBDA (Window)                                           (* rht: " 4-Jul-86 23:24")


          (* * Bring up an inspector on certain attribute/value pairs of this card. The default ones are card part dates and 

	  Updates.)




          (* * Need a hook so that users can provide other attribute/value pairs for given card types.)




          (* * kirk: 1May86 added NC.AttachNoteFileName)




          (* * fgh 6/13/86 Now places and sizes window with less visual nnoise.)




          (* * fgh&rht 7/4/86: Now also print card type.)



    (LET ((Card (
NC.CoerceToCard
 Window))
	  (Attributes (
QUOTE
 (CardUID Type ItemDate TitleDate LinksDate PropsDate Updates)))
	  Region AttributesAndValues InfoWindow)
         (
NC.AttachNoteFileName
 Window)
         (
SETQ
 Region (
WINDOWREGION
 Window))
         (for
 window in
 (
ATTACHEDWINDOWS
 Window) when
 (
WINDOWPROP
 window (
QUOTE
 ShowInfo))
	    do
 (
CLOSEW
 Window))                          (* close any previous info window)

         (
SETQ
 AttributesAndValues (
LIST
 (
QUOTE
 CardUID)
					     (fetch
 (Card UID) of
 Card)
					     (
QUOTE
 Type)
					     (
NC.FetchType
 Card)
					     (
QUOTE
 ItemDate)
					     (
NC.FetchItemDate
 Card)
					     (
QUOTE
 TitleDate)
					     (
NC.FetchTitleDate
 Card)
					     (
QUOTE
 LinksDate)
					     (
NC.FetchLinksDate
 Card)
					     (
QUOTE
 PropsDate)
					     (
NC.FetchPropListDate
 Card)
					     (
QUOTE
 Updates)
					     (
LISTGET
 (
NC.FetchPropList
 Card)
							(
QUOTE
 Updates))))
         (
SETQ
 InfoWindow (
INSPECTW.CREATE
 AttributesAndValues Attributes (
FUNCTION
 LISTGET)
					       NIL "Can't set values of these attributes." NIL NIL 
					       "Card attributes"
					       NIL
					       (
CREATEW
 (
CREATEREGION
 (fetch
 (
POSITION
 XCOORD)
									     of
 
									     NC.OffScreenPosition)
									  (fetch
 (
POSITION
 YCOORD)
									     of
 
									     NC.OffScreenPosition)
									  (fetch
 (REGION WIDTH)
									     of
 Region)
									  50)
							  NIL NIL)))
         (
SHAPEW
 InfoWindow (create
 REGION
				 using
 (
WINDOWPROP
 InfoWindow (
QUOTE
 REGION))
					 HEIGHT ←(
HEIGHTIFWINDOW
 (fetch
 (REGION HEIGHT)
								      of
 (
WINDOWPROP

									     InfoWindow
									     (
QUOTE
 EXTENT)))
								   T)))
         (
ATTACHWINDOW
 InfoWindow Window (
QUOTE
 TOP)
			 (
QUOTE
 JUSTIFY)
			 (
QUOTE
 LOCALCLOSE))
         (
NC.MoveWindowOntoScreen
 Window)
         (
REDISPLAYW
 InfoWindow)
         (
WINDOWPROP
 InfoWindow (
QUOTE
 ShowInfo)
		       (
QUOTE
 Showing))
         (
WINDOWADDPROP
 InfoWindow (
QUOTE
 CLOSEFN)
			  (
FUNCTION
 FREEATTACHEDWINDOW)
			  T))))
)
(PUTPROPS RHTPATCH056 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (512 2562 (NC.ClearMsg 522 . 2560)) (2593 5481 (NC.ShowInfo 2603 . 5479)))))
STOP