(FILECREATED " 1-Apr-85 11:52:42" {PHYLUM}<NOTECARDS>RELEASE1.2>FGHPATCH008.;1
 2770   

      changes to:  (VARS FGHPATCH008COMS)
		   (FNS NC.ListOfCardTypes NC.AskNoteCardType))


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

(PRETTYCOMPRINT FGHPATCH008COMS)

(RPAQQ FGHPATCH008COMS
 ((FNS NC.ListOfCardTypes NC.AskNoteCardType)))
(DEFINEQ

(NC.ListOfCardTypes

  (LAMBDA (ForMenuFlg)                                       (* fgh: " 1-Apr-85 11:50")


          (* * Return a list of the note card types)




          (* * Special processing for older types to make them not all caps.)



    (for
 CardType in
 NC.CardTypes when
 (
AND
 CardType (
OR
 (
NULL
 ForMenuFlg)
							 (fetch
 (NoteCardType CardDisplayedInMenuFlg)
							    of
 CardType)))
       collect
 (fetch
 (NoteCardType TypeName) of
 CardType))))

(NC.AskNoteCardType

  (LAMBDA (Region)                                           (* fgh: " 1-Apr-85 11:50")

                                                             (* Ask user to choose a note card type)


          (* * rht 1/12/85: Now takes an optional Region argument dictating where to place the NoteCardTypeMenu.

	  If NIL, then uses MainMenu.)



    (
PROG
 (W Z (Font (
FONTCREATE
 (
QUOTE
 HELVETICA)
				 10
				 (
QUOTE
 BOLD))))
          (
OR
 (
AND
 (
BOUNDP
 (
QUOTE
 NC.NoteCardTypeMenu))
		   (type?
 MENU NC.NoteCardTypeMenu))
	      (
SETQ
 NC.NoteCardTypeMenu (create
 MENU
						ITEMS ←(NC.ListOfCardTypes
 T)
						CENTERFLG ← T
						TITLE ← "Type?"
						MENUFONT ← Font
						ITEMHEIGHT ←(
IPLUS
 (
FONTPROP
 Font (
QUOTE
 HEIGHT))
								   1))))
          (replace
 MENUPOSITION of
 NC.NoteCardTypeMenu
	     with
 (
COND

		    (Region (
CONS
 (fetch
 (REGION LEFT) of
 Region)
				  (
IPLUS
 (fetch
 (REGION BOTTOM) of
 Region)
					 (fetch
 (REGION HEIGHT) of
 Region)
					 (
IMINUS
 (fetch
 (
MENU
 IMAGEHEIGHT) of
 NC.NoteCardTypeMenu)))))
		    (T (
CONS
 (
IPLUS
 (fetch
 (REGION LEFT) of
 (
SETQ
 Z (
WINDOWPROP
 (
WFROMMENU
 
										      NC.MainMenu)
										(
QUOTE
 REGION))))
				    (fetch
 (REGION LEFT)
				       of
 (
SETQ
 W (
MENUITEMREGION
 (
CAR
 (
NTH
 (fetch
 (
MENU
 ITEMS)
									       of
 NC.MainMenu)
									    3))
								  NC.MainMenu))))
			     (
IPLUS
 (fetch
 (REGION BOTTOM) of
 Z)
				    (fetch
 (REGION TOP) of
 W)
				    (
IMINUS
 (fetch
 (
MENU
 IMAGEHEIGHT) of
 NC.NoteCardTypeMenu)))))))
          (
RETURN
 (
MENU
 NC.NoteCardTypeMenu)))))
)
(PUTPROPS FGHPATCH008 COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (363 2688 (NC.ListOfCardTypes 373 . 893) (NC.AskNoteCardType 895 . 2686)))))
STOP