(FILECREATED "19-Aug-86 15:01:35" {QV}<NOTECARDS>1.3K>NEXT>KIRKPATCH025.;2
 2112   

      changes to:  (FNS NC.CardTypeLoader)
		   (VARS KIRKPATCH025COMS foo)

      previous date: "19-Aug-86 14:43:35" {QV}<NOTECARDS>1.3K>NEXT>KIRKPATCH025.;1)


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

(PRETTYCOMPRINT KIRKPATCH025COMS)

(RPAQQ KIRKPATCH025COMS
 ((* * prompt window bug fixes)
			   (FNS NC.CardTypeLoader)))
(* * prompt window bug fixes)


(DEFINEQ

(NC.CardTypeLoader

  (LAMBDA (TypeName FileSuggestion QuietFlg)                 (* kirk: "19-Aug-86 14:57")


          (* * 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.)




          (* * kirk 15Jul86 Removed new process and added FGH's RESETLST to close stream.)




          (* * fgh 7/16/86 Added PRINTOUT to inform user before find file begins.)




          (* * kirk 8/7/86 Added QuietFlg. Will not stop LOAD messages though.)




          (* * kirk 19/8/86 Added OPENWP check before CLOSEW and set QuietFlg T)



    (
RESETLST
 (
RESETSAVE
 NIL (if
 (
OPENWP
 (
WFROMDS
 (
TTYDISPLAYSTREAM
)
							    T))
				     then
 (
SETQ
 QuietFlg T)
					    (
QUOTE
 (
NILL
))
				   else
 (
BQUOTE
 (
AND
 (
OPENWP
 , (
WFROMDS
 (
TTYDISPLAYSTREAM
)
										  ))
							   (
CLOSEW
 , (
WFROMDS
 (
TTYDISPLAYSTREAM
)
										  ))))))
		(LET (FullFileName (Window (
WFROMDS
 (
TTYDISPLAYSTREAM
))))
		     (if
 (
NOT
 QuietFlg)
			 then
 (
CLEARW
 Window)
				(
FLASHWINDOW
 Window)
				(PRINTOUT Window "Card type " TypeName " not loaded." T 
					  "Attempting to autoload."
					  T))
		     (
SETQ
 FullFileName (
NC.FindCardTypeFile
 TypeName FileSuggestion))
		     (
AND
 FullFileName (
LOAD?
 FullFileName NC.LOADFLG))))))
)
(PUTPROPS KIRKPATCH025 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (482 2029 (NC.CardTypeLoader 492 . 2027)))))
STOP