(FILECREATED "20-Oct-86 13:50:45" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH124.;3
 4523   

      changes to:  (VARS RHTPATCH124COMS)
		   (FNS NC.ComputeTextCardMiddleButtonMenuItems NC.AddTextCard)
		   (ADVICE TEDIT.ADD.MENUITEM TEDIT.REMOVE.MENUITEM)

      previous date: "17-Oct-86 20:52:07" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH124.;1)


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

(PRETTYCOMPRINT RHTPATCH124COMS)

(RPAQQ RHTPATCH124COMS
 ((* * Fix for bugs #238, #241.)
			  (* * New stuff for NCTEXTCARD)
			  (FNS NC.ComputeTextCardMiddleButtonMenuItems)
			  (ADVISE TEDIT.ADD.MENUITEM TEDIT.REMOVE.MENUITEM)
			  (* * Change for NCTEXTCARD)
			  (FNS NC.AddTextCard)
			  (* * Code to fix the COMS in NCTEXTCARD)
			  (P (ADDTOFILE (QUOTE NC.ComputeTextCardMiddleButtonMenuItems)
					(QUOTE FNS)
					(QUOTE NCTEXTCARD)
					(QUOTE NC.AddTextCard))
			     (ADDTOFILE (QUOTE TEDIT.ADD.MENUITEM)
					(QUOTE ADVISE)
					(QUOTE NCTEXTCARD))
			     (ADDTOFILE (QUOTE TEDIT.REMOVE.MENUITEM)
					(QUOTE ADVICE)
					(QUOTE NCTEXTCARD)
					(QUOTE TEDIT.ADD.MENUITEM)))))
(* * Fix for bugs #238, #241.)


(* * New stuff for NCTEXTCARD)


(DEFINEQ

(NC.ComputeTextCardMiddleButtonMenuItems

  (LAMBDA NIL                                                (* rht: "17-Oct-86 20:53")


          (* * Using TEDIT.DEFAULT.MENU, build the list of middle button menu items for Text cards.)



    (DECLARE
 (
GLOBALVARS
 TEDIT.DEFAULT.MENU))
    (
APPEND
 (for
 Item in
 (fetch
 (
MENU
 ITEMS) of
 TEDIT.DEFAULT.MENU)
		 collect
 (if
 (
EQ
 Item (
QUOTE
 Quit))
			       then
 (
QUOTE
 (Quit (
FUNCTION
 NC.QuitCard)
						     
					  "Close this note card after saving it in the NoteFile."))
			     else
 Item))
	      (
QUOTE
 ((Restart% Editor (
FUNCTION
 NC.ResetTEdit)
					 "Resets and restarts the editor for this Card/Box."))))))
)

(PUTPROPS TEDIT.ADD.MENUITEM READVICE
 (NIL (AFTER NIL (if (EQ MENU TEDIT.DEFAULT.MENU)
							    then
							    (NCP.ChangeCardTypeFields
							      (QUOTE Text)
							      NIL
							      (BQUOTE ((MiddleButtonMenuItems
									 ,
									 (
NC.ComputeTextCardMiddleButtonMenuItems)))))))))

(PUTPROPS TEDIT.REMOVE.MENUITEM READVICE
 (NIL (AFTER NIL (if (EQ MENU TEDIT.DEFAULT.MENU)
							       then
							       (NCP.ChangeCardTypeFields
								 (QUOTE Text)
								 NIL
								 (BQUOTE ((MiddleButtonMenuItems
									    ,
									    (
NC.ComputeTextCardMiddleButtonMenuItems)))))))))
(READVISE TEDIT.ADD.MENUITEM TEDIT.REMOVE.MENUITEM)
(* * Change for NCTEXTCARD)


(DEFINEQ

(NC.AddTextCard

  (LAMBDA NIL                                                (* rht: "17-Oct-86 20:49")


          (* * fgh 2/17/86 Added attached bit map field.)




          (* * rht 4/7/86: Now you get all TEdit menu items on middle button as well as Restart% Editor.)



    (
NC.AddCardType
 (
QUOTE
 Text)
		      (
QUOTE
 NoteCard)
		      (
BQUOTE
 ((MakeFn , (
FUNCTION
 NC.MakeTEditCard))
				 (EditFn , (
FUNCTION
 NC.BringUpTEditCard))
				 (QuitFn , (
FUNCTION
 NC.TEditCloseFn))
				 (GetFn , (
FUNCTION
 NC.GetTextSubstance))
				 (PutFn , (
FUNCTION
 NC.PutTextSubstance))
				 (CopyFn , (
FUNCTION
 NC.TextCopySubstance))
				 (MarkDirtyFn , (
FUNCTION
 NC.MarkTextDirty))
				 (DirtyPFn , (
FUNCTION
 NC.TextDirtyP))
				 (CollectLinksFn , (
FUNCTION
 NC.CollectReferencesInText))
				 (DeleteLinksFn , (
FUNCTION
 NC.DelReferencesToCardFromText))
				 (UpdateLinkIconsFn , (
FUNCTION
 NC.UpdateLinkImagesInText))
				 (InsertLinkFn , (
FUNCTION
 NC.InsertLinkInTextWindow))
				 (TranslateWindowPositionFn , (
FUNCTION
 
							NC.TranslateWindowPositionToTEditPosition))))
		      (
BQUOTE
 ((LinkDisplayMode Title)
				 (DisplayedInMenuFlg T)
				 (DefaultWidth 300)
				 (DefaultHeight 200)
				 (LinkAnchorModesSupported T)
				 (LinkIconAttachedBitMap , NC.TextCardIcon)
				 (MiddleButtonMenuItems , (NC.ComputeTextCardMiddleButtonMenuItems
))
				 )))))
)
(* * Code to fix the COMS in NCTEXTCARD)


(ADDTOFILE (QUOTE NC.ComputeTextCardMiddleButtonMenuItems)
	   (QUOTE FNS)
	   (QUOTE NCTEXTCARD)
	   (QUOTE NC.AddTextCard))
(ADDTOFILE (QUOTE TEDIT.ADD.MENUITEM)
	   (QUOTE ADVISE)
	   (QUOTE NCTEXTCARD))
(ADDTOFILE (QUOTE TEDIT.REMOVE.MENUITEM)
	   (QUOTE ADVICE)
	   (QUOTE NCTEXTCARD)
	   (QUOTE TEDIT.ADD.MENUITEM))
(PUTPROPS RHTPATCH124 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (1176 1925 (NC.ComputeTextCardMiddleButtonMenuItems 1186 . 1923)) (2627 4072 (
NC.AddTextCard 2637 . 4070)))))
STOP