(FILECREATED "22-Apr-87 12:05:23" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH030.;1
 1973   

      changes to:  (VARS RGPATCH030COMS)
		   (FNS NC.CheckTitle))


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

(PRETTYCOMPRINT RGPATCH030COMS)

(RPAQQ RGPATCH030COMS
 ((* * rg 4/22/87 now returns T even if card remains untitled ; we need a 
			    CANCEL button!)
			 (* * changes to NCCARDS)
			 (FNS NC.CheckTitle)))
(* * rg 4/22/87 now returns T even if card remains untitled ; we need a CANCEL button!)


(* * changes to NCCARDS)


(DEFINEQ

(NC.CheckTitle

  [LAMBDA (Card InterestedWindow)                            (* Randy.Gobbel "22-Apr-87 12:05")

                                                             (* If card specified by ID has no title, ask the user 

							     for a title.)


          (* * rht 11/19/84: Now checks NC.ForceTitlesFlg before griping.)




          (* * rht 12/6/84: Now sends ID rather than Window to NC.AssignTitle.)




          (* * fgh 11/11/85: Updated to handle new Card objects.)




          (* * rg 2/3/87 Now returns T if card already titled)




          (* * rht 3/23/87: Now takes InterestedWindow arg.)




          (* * rg 4/22/87 now returns T even if card remains untitled ; we need a CANCEL button!)



    (
OR
 InterestedWindow (
SETQ
 InterestedWindow (
NC.FetchWindow
 Card)))
    (LET (Title)
         (
COND

	   ((
AND
 NC.ForceTitlesFlg (
OR
 (
NULL
 (
SETQ
 Title (
NC.RetrieveTitle
 Card)))
					   (
EQUAL
 "Untitled" Title)))
	     (
NC.PrintMsg
 InterestedWindow T "This note card has no title." (
CHARACTER
 13))
	     (
NC.AssignTitle
 Card T NIL InterestedWindow))
	   ((
AND
 (
NULL
 NC.ForceTitlesFlg)
		   (
NULL
 (
NC.RetrieveTitle
 Card)))
	     (
NC.AssignTitle
 Card NIL "Untitled" InterestedWindow)))
     T])
)
(PUTPROPS RGPATCH030 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (560 1892 (NC.CheckTitle 570 . 1890)))))
STOP