(FILECREATED "12-Jun-87 11:58:32" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH278.;1
 1803   

      changes to:  (VARS RHTPATCH278COMS)
		   (FNS NC.DefaultCardTypeSelectionFn))


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

(PRETTYCOMPRINT RHTPATCH278COMS)

(RPAQQ RHTPATCH278COMS
 ((* * Fixes bug reported by Walt whereby clicking on DefaultCardType in edit 
			     parameters causes value to change to T and stay that way.)
			  (* * Change to NCPARAMETERS)
			  (FNS NC.DefaultCardTypeSelectionFn)))
(* * Fixes bug reported by Walt whereby clicking on DefaultCardType in edit parameters causes 
value to change to T and stay that way.)


(* * Change to NCPARAMETERS)


(DEFINEQ

(NC.DefaultCardTypeSelectionFn

  (LAMBDA (GlobalVar)                                        (* rht: "12-Jun-87 11:56")


          (* * Let user choose from a menu of card types.)




          (* * pmi 3/25/87: Added NC.MenuFont to all menus and cleaned up to use NC.NoteCardTypeMenu)




          (* * rht 6/12/87: Somehow this was broken in such a way that it wasn't calling MENU when NC.NoteCardTypeMenu was 

	  bound.)



    (DECLARE
 (
GLOBALVARS
 NC.NoteCardTypeMenu NC.MenuFont))
    (
OR
 (
AND
 (
BOUNDP
 (
QUOTE
 NC.NoteCardTypeMenu))
		 (type?
 MENU NC.NoteCardTypeMenu))
	  (
SETQ
 NC.NoteCardTypeMenu (create
 MENU
						ITEMS ←(
NC.ListOfCardTypes
 T)
						CENTERFLG ← T
						TITLE ← "Card Types"
						MENUFONT ← NC.MenuFont
						ITEMHEIGHT ←(
IPLUS
 (
FONTPROP
 NC.MenuFont
										 (
QUOTE
 HEIGHT))
								     1))))
    (
OR
 (
MENU
 NC.NoteCardTypeMenu (
CREATEPOSITION
 LASTMOUSEX LASTMOUSEY))
	  (
QUOTE
 NOTCHANGED))))
)
(PUTPROPS RHTPATCH278 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (702 1721 (NC.DefaultCardTypeSelectionFn 712 . 1719)))))
STOP