(FILECREATED "19-May-86 13:09:54" {QV}<NOTECARDS>1.3K>FGHPATCH039.;1
 1639   

      changes to:  (VARS FGHPATCH039COMS)
		   (FNS NC.TEditGetFn))


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

(PRETTYCOMPRINT FGHPATCH039COMS)

(RPAQQ FGHPATCH039COMS
 ((* * Fix to Bug # 66)
			  (* * From NCTEXTCARD)
			  (FNS NC.TEditGetFn)))
(* * Fix to Bug # 66)


(* * From NCTEXTCARD)


(DEFINEQ

(NC.TEditGetFn

  (LAMBDA (TextStream FileName When?)                        (* fgh: "19-May-86 13:09")


          (* * This function called from the GETFN for all NC TextStreams)




          (* * fgh 5/19/86 Added WINDOWP check to make sure that the window title isn't changed if there is no window.)



    (
SELECTQ
 When?
	       (BEFORE (LET ((LinkIcons (
TEDIT.LIST.OF.OBJECTS
 (
TEXTOBJ
 TextStream)
								 (
FUNCTION
 NC.LinkIconImageObjP))))

          (* * Delete all the links currentluy in the text stream)



			    (for
 LinkIconPair in
 LinkIcons do
 (
TEDIT.DELETE
 TextStream
										    (
CADR
 
										     LinkIconPair)
										    1))))
	       (AFTER (LET ((Card (
NC.CardFromTextStream
 TextStream)))

          (* * Mark the card dirty ala NoteCards)



		           (
NC.MarkCardDirty
 Card)

          (* * Reset the NC title)



		           (
AND
 (
WINDOWP
 (
WINDOW.FROM.TEDIT.THING
 TextStream))
				  (
WINDOWPROP
 (
WINDOW.FROM.TEDIT.THING
 TextStream)
						(
QUOTE
 TITLE)
						(
NC.RetrieveTitle
 Card)))))
	       NIL)))
)
(PUTPROPS FGHPATCH039 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (415 1557 (NC.TEditGetFn 425 . 1555)))))
STOP