(FILECREATED " 6-Apr-87 17:13:12" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH026.;1
 6327   

      changes to:  (VARS RGPATCH026COMS))


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

(PRETTYCOMPRINT RGPATCH026COMS)

(RPAQQ RGPATCH026COMS
 ((* * rg 4/6/87 removed some ProtectedCardOperation wrappers that were judged 
			    to be too restrictive)
			 (* * changes to NCCARDS)
			 (FNS NC.ShowLinks NC.ShowInfo)))
(* * rg 4/6/87 removed some ProtectedCardOperation wrappers that were judged to be too 
restrictive)


(* * changes to NCCARDS)


(DEFINEQ

(NC.ShowLinks

  [LAMBDA (TextStream)                                       (* Randy.Gobbel " 6-Apr-87 16:43")

                                                             (* Open an inspector for the links for note card 

							     specified by TextStream above the window for the note 

							     card.)


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




          (* * fgh 5/2/86 Included calls to NC.InsureLinkDisplayMode to handle litatom link display modes.

	  Added InsdiePropListEditor and Reverse indicators to UserData field of Links in show links editor.

	  Also added ShowLinks property onto the editor window so other functions can detect that a window is a show links 

	  window.)




          (* * rht 8/11/86: Now passes non-nil ShowLinksFlg to NC.OpenPropListEditor.)




          (* * rg 4/6/87 removed NC.ProtectedCardOperation wrapper.)



    (LET [Links EditWindow (Card (
NC.CoerceToCard
 (
WINDOW.FROM.TEDIT.THING
 TextStream]
         [
SETQ
 Links (
NCONC
 [for
 Link in
 (
NC.FetchToLinks
 Card)
				   join
 (
LIST
 (
COND

						    ((
EQ
 (fetch
 (Link AnchorMode) of
 Link)
							   (
QUOTE
 GlobalGlobal))
						      "Global TO")
						    (T "TO"))
						  (
LIST
 (create
 Link
							     using

							      Link DisplayMode ←
							      (create
 LINKDISPLAYMODE
								 copying

								  (
NC.InsureLinkDisplayMode

								    (fetch
 (Link DisplayMode)
								       of
 Link))
								  SHOWTITLEFLG ← T SHOWLINKTYPEFLG ← 
								  T)
							      UserData ← (
QUOTE
 (
InsidePropListEditor T]
				(for
 Link in
 (
NC.FetchFromLinks
 Card)
				   join
 (
LIST
 "FROM"
						  (
LIST
 (create
 Link
							     using

							      Link DisplayMode ←
							      (create
 LINKDISPLAYMODE
								 copying

								  (
NC.InsureLinkDisplayMode

								    (fetch
 (Link DisplayMode)
								       of
 Link))
								  SHOWTITLEFLG ← T SHOWLINKTYPEFLG ← 
								  T)
							      SourceCard ← (fetch
 (Link 
										  DestinationCard)
									      of
 Link)
							      DestinationCard ← (fetch

								(Link SourceCard) of
 Link)
							      UserData ←
							      (
QUOTE
 (InsidePropListEditor T 
											 Reversed T]
         (
WINDOWPROP
 (
SETQ
 EditWindow (
NC.OpenPropListEditor
 TextStream Links "List of Links" T 
								   T T))
		       (
QUOTE
 ShowLinks)
		       T)
     EditWindow])

(NC.ShowInfo

  [LAMBDA (Window)                                           (* Randy.Gobbel " 6-Apr-87 16:47")


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




          (* * rht 7/14/86: Now includes card object if global param is set. No longer includes UID.)




          (* * rg 4/1/87 added NC.ProtectedCardOperation wrapper)




          (* * rg 4/6/87 removed NC.ProtectedCardOperation wrapper)



    (LET ((Card (
NC.CoerceToCard
 Window))
	  [Attributes (
BQUOTE
 (Type ItemDate TitleDate LinksDate PropsDate Updates ,@
				      (
AND
 NC.IncludeCardObjectInShowInfo (
QUOTE
 (CardObject]
	  Region AttributesAndValues InfoWindow)
         (
NC.AttachNoteFileName
 Window)
         (
SETQ
 Region (
WINDOWREGION
 Window))
         (for
 Win in
 (
ATTACHEDWINDOWS
 Window) when
 (
WINDOWPROP
 Win (
QUOTE
 ShowInfo))
	    do
 (
CLOSEW
 Win))                             (* close any previous info window)

         [
SETQ
 AttributesAndValues (
BQUOTE
 (Type , (
NC.FetchType
 Card)
						     ItemDate , (
NC.FetchItemDate
 Card)
						     TitleDate , (
NC.FetchTitleDate
 Card)
						     LinksDate , (
NC.FetchLinksDate
 Card)
						     PropsDate , (
NC.FetchPropListDate
 Card)
						     Updates , (
LISTGET
 (
NC.FetchPropList
 Card)
									  (
QUOTE
 Updates))
						     ,@
						     (
AND
 NC.IncludeCardObjectInShowInfo
							    (
BQUOTE
 (CardObject , Card]
         (
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 RGPATCH026 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (571 6246 (NC.ShowLinks 581 . 3114) (NC.ShowInfo 3116 . 6244)))))
STOP