(FILECREATED " 5-Jun-86 18:10:48" {QV}<NOTECARDS>1.3K>FGHPATCH056.;2
 8084   

      changes to:  (FNS NC.DefaultLinkIconParametersSelectionFn NC.ClearAllLinkIconImageBoxCaches)
		   (VARS FGHPATCH056COMS)

      previous date: " 5-Jun-86 18:05:40" {QV}<NOTECARDS>1.3K>FGHPATCH056.;1)


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

(PRETTYCOMPRINT FGHPATCH056COMS)

(RPAQQ FGHPATCH056COMS
 ((* * Fix for bug %#64, updates link icon boundbox after parameter changes)
	(* * New FNS for NCPARAMETERS)
	(FNS NC.ClearAllLinkIconImageBoxCaches NC.DefaultLinkIconParametersSelectionFn)
	(* * Redone from NCPARAAMTERS)
	(P (SETPROPLIST (QUOTE NC.NoteCardsParameters)
			(QUOTE (DefaultCardType (NC.DefaultCardType EVAL 
								    NC.DefaultCardTypeSelectionFn 
								    NC.DefaultCardTypeCheckFn)
						FixedTopLevelMenu NC.FixedMenuFlg ShowNoteFileOnCards 
						NC.ShowNoteFileOnCards ShortWindowMenus 
						NC.ShortWindowMenuFlg ForceSources NC.ForceSourcesFlg 
						ForceFiling NC.ForceFilingFlg ForceTitles 
						NC.ForceTitlesFlg CloseCardsOffScreen 
						NC.CloseCardsOffScreenFlg BringUpCardsAtPreviousPos 
						NC.BringUpCardAtOldPosFlg MarkersInFileBoxes 
						NC.MarkersInFileBoxesFlg AlphabetizedFileBoxChildren 
						NC.AlphabetizedFileBoxChildrenFlg 
						DefaultLinkIconAttachBitmap (
						  NC.LinkIconAttachBitmapFlg NIL 
							  NC.DefaultLinkIconParametersSelectionFn NIL)
						DefaultLinkIconShowTitle
						(NC.LinkIconShowTitleFlg NIL 
							  NC.DefaultLinkIconParametersSelectionFn NIL)
						DefaultLinkIconShowLinkType
						(NC.LinkIconShowLinkTypeFlg NIL 
							  NC.DefaultLinkIconParametersSelectionFn NIL)
						SpecialBrowserSpecs NC.SpecialBrowserSpecsFlg 
						AnnoAccessible NC.AnnoFlg LinkDashingInBrowsers 
						NC.LinkDashingInBrowser ArrowHeadsInBrowsers
						(NC.ArrowHeadsInBrowser EVAL 
								NC.ArrowHeadsInBrowserSelectionFn 
								    NC.ArrowHeadsInBrowserCheckFn)
						EnableBravoToTEditConversion
						(NC.EnableBravoToTEditConversionFlg 
							   NC.EnableBravoToTEditConversionFetchFn 
						       NC.EnableBravoToTEditConversionSelectionFn NIL)
						DefaultFont
						(NC.DefaultFont NC.DefaultFontFetchFn 
								NC.DefaultFontSelectionFn FONTP)
						LinkIconFont
						(NC.LinkIconFont NC.DefaultFontFetchFn 
								 NC.DefaultFontSelectionFn FONTP)
						NoteFileIndicatorFont
						(NC.NoteFileIndicatorFont NC.DefaultFontFetchFn 
									NC.DefaultFontSelectionFn 
									  FONTP)
						UseDeletedLinkIconIndicators 
						NC.UseDeletedLinkIconIndicatorsFlg 
						DelTEditProcessWhenShrinking 
						NC.DelTEditProcessAtShrinkFlg ExtraTEditProps
						(NC.UserSpecifiedTEditProps EVAL 
							    NC.UserSpecifiedTEditPropsSelectionFn 
								NC.UserSpecifiedTEditPropsCheckFn)
						MenuLingersAfterNoteFileClose 
						NC.NoteFileMenuLingerFlg VALUE
						(DefaultCardType MenuLingersAfterNoteFileClose 
								 FixedTopLevelMenu ShortWindowMenus 
								 ForceSources ForceFiling ForceTitles 
								 CloseCardsOffScreen 
								 BringUpCardsAtPreviousPos 
								 MarkersInFileBoxes 
								 AlphabetizedFileBoxChildren 
								 DefaultLinkIconAttachBitmap 
								 DefaultLinkIconShowTitle 
								 DefaultLinkIconShowLinkType 
								 UseDeletedLinkIconIndicators 
								 LinkDashingInBrowsers 
								 ArrowHeadsInBrowsers 
								 SpecialBrowserSpecs LinkIconFont 
								 DelTEditProcessWhenShrinking 
								 DefaultFont NoteFileIndicatorFont 
								 ExtraTEditProps 
								 EnableBravoToTEditConversion 
								 AnnoAccessible)))))))
(* * Fix for bug %#64, updates link icon boundbox after parameter changes)


(* * New FNS for NCPARAMETERS)


(DEFINEQ

(NC.ClearAllLinkIconImageBoxCaches

  (LAMBDA NIL                                                (* fgh: " 5-Jun-86 18:01")


          (* * FOr all cards on the screen, clear the image box caches for all the link icons in thee cards)




          (* * fgh 6/5/86 First created.)



    (bind
 Card for
 Window in
 (
OPENWINDOWS
) when
 (
SETQ
 Card (
NC.CoerceToCard
 Window))
       do
 (for
 LinkIcon in
 (
CAR
 (
NC.CollectReferences
 Card NIL T NIL))
	       do
 (
IMAGEOBJPROP
 LinkIcon (
QUOTE
 BOUNDBOX)
				    (
NC.LinkIconImageBoxFn
 LinkIcon (
WINDOWPROP
 Window
										    (
QUOTE
 DSP))))
		    (if
 (
WINDOWPROP
 Window (
QUOTE
 TEXTSTREAM))
			then
 (
TEDIT.OBJECT.CHANGED
 (
TEXTSTREAM
 Window)
						       LinkIcon)
		      else
 (
REDISPLAYW
 Window))))))

(NC.DefaultLinkIconParametersSelectionFn

  (LAMBDA (GlobalVar)                                        (* fgh: " 5-Jun-86 18:09")


          (* * Toggle setting of parameter and then update every card on the screen.)




          (* * fgh 6/5/86 First created.)



    (
PROG1
 (
COND

	       ((
EVAL
 GlobalVar)
		 (
SET
 GlobalVar NIL))
	       (T (
SET
 GlobalVar T)))
	     (NC.ClearAllLinkIconImageBoxCaches
))))
)
(* * Redone from NCPARAAMTERS)


(SETPROPLIST (QUOTE NC.NoteCardsParameters)
	     (QUOTE (DefaultCardType (NC.DefaultCardType EVAL NC.DefaultCardTypeSelectionFn 
							 NC.DefaultCardTypeCheckFn)
				     FixedTopLevelMenu NC.FixedMenuFlg ShowNoteFileOnCards 
				     NC.ShowNoteFileOnCards ShortWindowMenus NC.ShortWindowMenuFlg 
				     ForceSources NC.ForceSourcesFlg ForceFiling NC.ForceFilingFlg 
				     ForceTitles NC.ForceTitlesFlg CloseCardsOffScreen 
				     NC.CloseCardsOffScreenFlg BringUpCardsAtPreviousPos 
				     NC.BringUpCardAtOldPosFlg MarkersInFileBoxes 
				     NC.MarkersInFileBoxesFlg AlphabetizedFileBoxChildren 
				     NC.AlphabetizedFileBoxChildrenFlg DefaultLinkIconAttachBitmap
				     (NC.LinkIconAttachBitmapFlg NIL 
							  NC.DefaultLinkIconParametersSelectionFn NIL)
				     DefaultLinkIconShowTitle
				     (NC.LinkIconShowTitleFlg NIL 
							  NC.DefaultLinkIconParametersSelectionFn NIL)
				     DefaultLinkIconShowLinkType
				     (NC.LinkIconShowLinkTypeFlg NIL 
							  NC.DefaultLinkIconParametersSelectionFn NIL)
				     SpecialBrowserSpecs NC.SpecialBrowserSpecsFlg AnnoAccessible 
				     NC.AnnoFlg LinkDashingInBrowsers NC.LinkDashingInBrowser 
				     ArrowHeadsInBrowsers (NC.ArrowHeadsInBrowser EVAL 
								NC.ArrowHeadsInBrowserSelectionFn 
								    NC.ArrowHeadsInBrowserCheckFn)
				     EnableBravoToTEditConversion
				     (NC.EnableBravoToTEditConversionFlg 
							   NC.EnableBravoToTEditConversionFetchFn 
						       NC.EnableBravoToTEditConversionSelectionFn NIL)
				     DefaultFont
				     (NC.DefaultFont NC.DefaultFontFetchFn NC.DefaultFontSelectionFn 
						     FONTP)
				     LinkIconFont
				     (NC.LinkIconFont NC.DefaultFontFetchFn NC.DefaultFontSelectionFn 
						      FONTP)
				     NoteFileIndicatorFont
				     (NC.NoteFileIndicatorFont NC.DefaultFontFetchFn 
							       NC.DefaultFontSelectionFn FONTP)
				     UseDeletedLinkIconIndicators NC.UseDeletedLinkIconIndicatorsFlg 
				     DelTEditProcessWhenShrinking NC.DelTEditProcessAtShrinkFlg 
				     ExtraTEditProps (NC.UserSpecifiedTEditProps EVAL 
							    NC.UserSpecifiedTEditPropsSelectionFn 
								NC.UserSpecifiedTEditPropsCheckFn)
				     MenuLingersAfterNoteFileClose NC.NoteFileMenuLingerFlg VALUE
				     (DefaultCardType MenuLingersAfterNoteFileClose FixedTopLevelMenu 
						      ShortWindowMenus ForceSources ForceFiling 
						      ForceTitles CloseCardsOffScreen 
						      BringUpCardsAtPreviousPos MarkersInFileBoxes 
						      AlphabetizedFileBoxChildren 
						      DefaultLinkIconAttachBitmap 
						      DefaultLinkIconShowTitle 
						      DefaultLinkIconShowLinkType 
						      UseDeletedLinkIconIndicators 
						      LinkDashingInBrowsers ArrowHeadsInBrowsers 
						      SpecialBrowserSpecs LinkIconFont 
						      DelTEditProcessWhenShrinking DefaultFont 
						      NoteFileIndicatorFont ExtraTEditProps 
						      EnableBravoToTEditConversion AnnoAccessible))))
(PUTPROPS FGHPATCH056 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (3700 5013 (NC.ClearAllLinkIconImageBoxCaches 3710 . 4564) (
NC.DefaultLinkIconParametersSelectionFn 4566 . 5011)))))
STOP