(FILECREATED "13-Jul-86 23:04:06" {QV}<NOTECARDS>1.3K>KIRKPATCH016.;1
 1771   

      changes to:  (VARS KIRKPATCH016COMS f))


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

(PRETTYCOMPRINT KIRKPATCH016COMS)

(RPAQQ KIRKPATCH016COMS
 ((* * change to NCTYPESMECH to fix closing prompt windows)
			   (FNS NC.CardTypeLoader NC.LoadCardType)))
(* * change to NCTYPESMECH to fix closing prompt windows)


(DEFINEQ

(NC.CardTypeLoader

  (LAMBDA (TypeName FileSuggestion)                          (* kirk: "13-Jul-86 22:46")


          (* * Load card type TypeName using FileSuggestion as the first place to look. Otherwise look in the directories 

	  specified by NoteCardsDirectories.)




          (* * fgh 2/3/86 First written.)




          (* * kirk 1Jul86 Added new process.)



    (
ALLOW.BUTTON.EVENTS
)
    (
ADD.PROCESS
 (
BQUOTE
 (NC.LoadCardType
 (
QUOTE
 , TypeName)
						(
QUOTE
 , FileSuggestion)))
		   (
QUOTE
 NAME)
		   (
CONCAT
 "Loading " TypeName " Card code"))))

(NC.LoadCardType

  (LAMBDA (TypeName FileSuggestion)                          (* kirk: "13-Jul-86 22:45")


          (* * Load card type TypeName using FileSuggestion as the first place to look. Otherwise look in the directories 

	  specified by NoteCardsDirectories.)




          (* * fgh 2/3/86 First written.)




          (* * kirk 26Jun86 Changed to use NC.FindCardTypeFile)



    (LET (FullFileName)
         (
SETQ
 FullFileName (
NC.FindCardTypeFile
 TypeName FileSuggestion))
         (
AND
 FullFileName (
LOAD?
 FullFileName NC.LOADFLG))
         (
CLOSEW
 (
TTYDISPLAYSTREAM
)))))
)
(PUTPROPS KIRKPATCH016 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (434 1688 (NC.CardTypeLoader 444 . 1055) (NC.LoadCardType 1057 . 1686)))))
STOP