(FILECREATED "28-Apr-87 11:45:20" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH249.;3
 2306   

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

      previous date: "28-Apr-87 11:40:43" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH249.;1)


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

(PRETTYCOMPRINT RHTPATCH249COMS)

(RPAQQ RHTPATCH249COMS
 ((* * Restores old functionality of CheckTitle, i.e. user only bugged about 
			     untitled when card is new.)
			  (* * Change to NCCARDS)
			  (FNS NC.CheckTitle)))
(* * Restores old functionality of CheckTitle, i.e. user only bugged about untitled when card 
is new.)


(* * Change to NCCARDS)


(DEFINEQ

(NC.CheckTitle

  (LAMBDA (Card InterestedWindow)                            (* rht: "28-Apr-87 11:43")

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




          (* * rht 4/28/87: Now only calls NC.AssignTitle if current title is NIL, i.e. this is a new card.)



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

	   ((
AND
 NC.ForceTitlesFlg (
OR
 (
NULL
 (
SETQ
 Title (
NC.RetrieveTitle
 Card)))
					   (
AND
 (
NC.FetchNewCardFlg
 Card)
						  (
STREQUAL
 Title "Untitled"))))
	     (
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 RHTPATCH249 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (679 2224 (NC.CheckTitle 689 . 2222)))))
STOP