(FILECREATED "10-Dec-84 12:45:22" {PHYLUM}<NOTECARDS>RELEASE1.1>NCPARAMETERS.;5 8440   

      changes to:  (VARS NCPARAMETERSCOMS)

      previous date: "21-Nov-84 11:55:03" {PHYLUM}<NOTECARDS>RELEASE1.1>NCPARAMETERS.;4)


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

(PRETTYCOMPRINT NCPARAMETERSCOMS)

(RPAQQ NCPARAMETERSCOMS ((* * Tailoring parameters for the user to set.)
	(GLOBALVARS NC.FixedMenuFlg NC.GCGAGFlg NC.AdviseWindowMenuFlg NC.ForceSourcesFlg 
		    NC.ForceFilingFlg NC.ForceTitlesFlg NC.MarkersInFileBoxesFlg 
		    NC.AttachBitmapsToLinkIconsFlg NC.MainMenuPosition World5File 
		    NC.SpecialBrowserSpecsFlg NC.AnnoFlg NC.LinkDashingInBrowser NC.DefaultFont 
		    NC.DefaultCardType)
	(INITVARS (NC.FixedMenuFlg NIL)
		  (NC.GCGAGFlg NIL)
		  (NC.ShortWindowMenuFlg T)
		  (NC.ForceSourcesFlg NIL)
		  (NC.ForceFilingFlg T)
		  (NC.ForceTitlesFlg T)
		  (NC.MarkersInFileBoxesFlg T)
		  (NC.AttachBitmapsToLinkIconsFlg T)
		  (NC.MainMenuPosition NIL)
		  (World5File (QUOTE {DSK}WORLD5.MAPDATA))
		  (NC.SpecialBrowserSpecsFlg NIL)
		  (NC.AnnoFlg NIL)
		  (NC.DefaultCardType (QUOTE Text)))
	(VARS (NC.DefaultFont (FONTCREATE (QUOTE TimesRoman)
					  12)))
	(VARS (NC.NoteCardsParameters (QUOTE (DefaultCardType FixedTopLevelMenu ShortWindowMenus 
							      ForceSources ForceFiling ForceTitles 
							      MarkersInFileBoxes 
							      AttachBitmapsToLinkIcons 
							      LinkDashingInBrowsers 
							      SpecialBrowserSpecs AnnoAccessible))))
	(P (SETPROPLIST (QUOTE NC.NoteCardsParameters)
			(QUOTE (DefaultCardType (NC.DefaultCardType NC.ListOfCardTypes)
						FixedTopLevelMenu
						(NC.FixedMenuFlg)
						ShortWindowMenus
						(NC.ShortWindowMenuFlg)
						ForceSources
						(NC.ForceSourcesFlg)
						ForceFiling
						(NC.ForceFilingFlg)
						ForceTitles
						(NC.ForceTitlesFlg)
						MarkersInFileBoxes
						(NC.MarkersInFileBoxesFlg)
						AttachBitmapsToLinkIcons
						(NC.AttachBitmapsToLinkIconsFlg)
						SpecialBrowserSpecs
						(NC.SpecialBrowserSpecsFlg)
						AnnoAccessible
						(NC.AnnoFlg)
						LinkDashingInBrowsers
						(NC.LinkDashingInBrowser)
						VALUE
						(DefaultCardType FixedTopLevelMenu ShortWindowMenus 
								 ForceSources ForceFiling ForceTitles 
								 MarkersInFileBoxes 
								 LinkDashingInBrowsers 
								 SpecialBrowserSpecs AnnoAccessible)))
			))
	(* * Parameter Inspector & Editor)
	(FNS NC.BuildInspector NC.InspectorFetchFn NC.InspectorTitleCommandFn NC.InspectorSelectionFn)
	))
(* * Tailoring parameters for the user to set.)

(DECLARE: DOEVAL@COMPILE DONTCOPY

(GLOBALVARS NC.FixedMenuFlg NC.GCGAGFlg NC.AdviseWindowMenuFlg NC.ForceSourcesFlg NC.ForceFilingFlg 
	    NC.ForceTitlesFlg NC.MarkersInFileBoxesFlg NC.AttachBitmapsToLinkIconsFlg 
	    NC.MainMenuPosition World5File NC.SpecialBrowserSpecsFlg NC.AnnoFlg 
	    NC.LinkDashingInBrowser NC.DefaultFont NC.DefaultCardType)
)

(RPAQ? NC.FixedMenuFlg NIL)

(RPAQ? NC.GCGAGFlg NIL)

(RPAQ? NC.ShortWindowMenuFlg T)

(RPAQ? NC.ForceSourcesFlg NIL)

(RPAQ? NC.ForceFilingFlg T)

(RPAQ? NC.ForceTitlesFlg T)

(RPAQ? NC.MarkersInFileBoxesFlg T)

(RPAQ? NC.AttachBitmapsToLinkIconsFlg T)

(RPAQ? NC.MainMenuPosition NIL)

(RPAQ? World5File (QUOTE {DSK}WORLD5.MAPDATA))

(RPAQ? NC.SpecialBrowserSpecsFlg NIL)

(RPAQ? NC.AnnoFlg NIL)

(RPAQ? NC.DefaultCardType (QUOTE Text))

(RPAQ NC.DefaultFont (FONTCREATE (QUOTE TimesRoman)
				 12))

(RPAQQ NC.NoteCardsParameters (DefaultCardType FixedTopLevelMenu ShortWindowMenus ForceSources 
					       ForceFiling ForceTitles MarkersInFileBoxes 
					       AttachBitmapsToLinkIcons LinkDashingInBrowsers 
					       SpecialBrowserSpecs AnnoAccessible))
(SETPROPLIST (QUOTE NC.NoteCardsParameters)
	     (QUOTE (DefaultCardType (NC.DefaultCardType NC.ListOfCardTypes)
				     FixedTopLevelMenu
				     (NC.FixedMenuFlg)
				     ShortWindowMenus
				     (NC.ShortWindowMenuFlg)
				     ForceSources
				     (NC.ForceSourcesFlg)
				     ForceFiling
				     (NC.ForceFilingFlg)
				     ForceTitles
				     (NC.ForceTitlesFlg)
				     MarkersInFileBoxes
				     (NC.MarkersInFileBoxesFlg)
				     AttachBitmapsToLinkIcons
				     (NC.AttachBitmapsToLinkIconsFlg)
				     SpecialBrowserSpecs
				     (NC.SpecialBrowserSpecsFlg)
				     AnnoAccessible
				     (NC.AnnoFlg)
				     LinkDashingInBrowsers
				     (NC.LinkDashingInBrowser)
				     VALUE
				     (DefaultCardType FixedTopLevelMenu ShortWindowMenus ForceSources 
						      ForceFiling ForceTitles MarkersInFileBoxes 
						      LinkDashingInBrowsers SpecialBrowserSpecs 
						      AnnoAccessible))))
(* * Parameter Inspector & Editor)

(DEFINEQ

(NC.BuildInspector
  (LAMBDA NIL                                                (* rht: "25-Oct-84 15:31")

          (* * Build and dislay an inspector window on the user tailoring flgs)


    (PROG (InspectWindow)
          (COND
	    ((SETQ InspectWindow (for Window in (OPENWINDOWS) when (WINDOWPROP Window (QUOTE 
									       NoteCardsInspector))
				    do (RETURN Window)))
	      (INSPECTW.REDISPLAY InspectWindow)
	      (MOVEW InspectWindow))
	    (T (SETQ InspectWindow (INSPECTW.CREATE T NC.NoteCardsParameters (FUNCTION 
						      NC.InspectorFetchFn)
						    NIL NIL NIL (FUNCTION NC.InspectorTitleCommandFn)
						    "NoteCards Parameters"
						    (FUNCTION NC.InspectorSelectionFn)
						    NIL NIL))
	       (WINDOWPROP InspectWindow (QUOTE NoteCardsInspector)
			   T))))))

(NC.InspectorFetchFn
  (LAMBDA (Object Property)                                  (* rht: "25-Oct-84 15:30")

          (* * Fetches the value of the atom specified by property. Object is a dummy argument in this case.)



          (* * rht 10/25/84: Now find relevant globalvar on proplist of NC.NoteCardsParameters. If there is a valuesfn, then 
	  we just display the value. If not, then it's assumed to be a binary T/NIL type globalvar and we display either Yes 
	  or No.)


    (PROG ((GlobalVar (CAR (GETPROP (QUOTE NC.NoteCardsParameters)
				    Property)))
	   (ValuesFn (CADR (GETPROP (QUOTE NC.NoteCardsParameters)
				    Property))))
          (RETURN (COND
		    (ValuesFn (EVAL GlobalVar))
		    ((EVAL GlobalVar)
		      (QUOTE Yes))
		    (T (QUOTE No)))))))

(NC.InspectorTitleCommandFn
  (LAMBDA (InspectWindow Object)                             (* fgh: " 8-Aug-84 14:29")
    (AND (EQ (MENU (create MENU
			   ITEMS ←(QUOTE (Yes No))
			   TITLE ← "Close?"))
	     (QUOTE Yes))
	 (CLOSEW InspectWindow))))

(NC.InspectorSelectionFn
  (LAMBDA (Property ValueFlg InspectWindow)                  (* rht: "25-Oct-84 15:48")

          (* * Actions to be taken when the user selects an item in the Inspector. If a value, then ignore.
	  If a property, ask for a new value.)



          (* * KLUDGED to hadle the NC.DefaultcardType property --- should be fixed to be general!!!!!!! fgh 10/23/84)



          (* * rht 10/25/84: Rewritten to access the NC.NoteCardsParameters variable's prop list to get all info including the
	  name of the relevant globalvar for this parameter and an optional function. The latter returns a list of possible 
	  values. If no such function, then just toggle between Yes and No.)


    (PROG (Answer ValuesFn GlobalVar)
          (AND ValueFlg (RETURN (INSPECTW.SELECTITEM InspectWin)))
          (SETQ ValuesFn (CADR (GETPROP (QUOTE NC.NoteCardsParameters)
					Property)))
          (SETQ GlobalVar (CAR (GETPROP (QUOTE NC.NoteCardsParameters)
					Property)))
          (if ValuesFn
	      then (SETQ Answer (MENU (create MENU
					      ITEMS ←(APPLY* ValuesFn)
					      TITLE ← "Choose New Value")))
		   (if Answer
		       then (SET GlobalVar Answer)
			    (INSPECTW.REDISPLAY InspectWindow Property))
	    else (if (EVAL GlobalVar)
		     then (SET GlobalVar NIL)
		   else (SET GlobalVar T))
		 (INSPECTW.REDISPLAY InspectWindow Property))
          (INSPECTW.SELECTITEM InspectWindow))))
)
(PUTPROPS NCPARAMETERS COPYRIGHT ("Xerox Corporation" 1984))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (4728 8357 (NC.BuildInspector 4738 . 5633) (NC.InspectorFetchFn 5635 . 6488) (
NC.InspectorTitleCommandFn 6490 . 6775) (NC.InspectorSelectionFn 6777 . 8355)))))
STOP