(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