(FILECREATED "18-Feb-87 16:16:05" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH017.;2
 2827   

      changes to:  (FNS NC.ResetNoteFileInterface)
		   (VARS PMIPATCH017COMS)

      previous date: "18-Feb-87 16:13:46" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH017.;1)


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

(PRETTYCOMPRINT PMIPATCH017COMS)

(RPAQQ PMIPATCH017COMS
 ((* * pmi 2/18/87: Fixes bug 326: Now deletes "RO:" in title of NoteFile 
			     menu if NoteFile was open Read-only)
			  (* * Change to NCINTERFACE)
			  (FNS NC.ResetNoteFileInterface)))
(* * pmi 2/18/87: Fixes bug 326: Now deletes "RO:" in title of NoteFile menu if NoteFile was 
open Read-only)


(* * Change to NCINTERFACE)


(DEFINEQ

(NC.ResetNoteFileInterface

  (LAMBDA (NoteFile)                                         (* pmi: "18-Feb-87 16:15")


          (* * Close up the control menu for a NoteFile)




          (* * rht 5/1/86: Now does nothing if NC.NoteFileMenuLingerFlg is non-nil.)




          (* * rht 5/6/86: Now smashes WhenSelectedFn and shades menu items if NC.NoteFileMenuLingerFlg is non-nil.)




          (* * pmi 2/18/87: Now deletes "RO:" in title of NoteFile menu if NoteFile was open Read-only)



    (DECLARE
 (
GLOBALVARS
 NC.NoteFileMenuLingerFlg))
    (LET ((Menu (fetch
 (NoteFile Menu) of
 NoteFile))
	  Window FullFileName)
         (if
 Menu
	     then
 (
SETQ
 Window (
WFROMMENU
 Menu))
		    (if
 NC.NoteFileMenuLingerFlg
			then
 (for
 Item in
 (fetch
 (
MENU
 ITEMS) of
 Menu)
				  do
 (
SHADEITEM
 Item Menu GRAYSHADE))
			       (replace
 (
MENU
 WHENSELECTEDFN) of
 Menu
				  with
 (
FUNCTION
 NC.ClosedNoteFileMenuWhenSelectedFn))
			       (if
 (
NC.ReadOnlyNoteFileP
 NoteFile)
				   then
 (
SETQ
 FullFileName (fetch
 (NoteFile FullFileName)
								  of
 NoteFile))
					  (replace
 (
MENU
 TITLE) of
 Menu
					     with
 (
CONCAT
 (
FILENAMEFIELD
 FullFileName
									       (
QUOTE
 NAME))
							      ";"
							      (
FILENAMEFIELD
 FullFileName
									       (
QUOTE
 VERSION))))
					  (replace
 (
MENU
 IMAGE) of
 Menu with
 NIL) 
                                                             (* KLUDGE. Fetching the image height forces the menu 

							     package to recompute the menu image.)

					  (fetch
 (
MENU
 IMAGEHEIGHT) of
 Menu)
					  (
AND
 Window (
REDISPLAYW
 Window)))
		      else
 (
WINDOWPROP
 Window (
QUOTE
 NoteFile)
					   NIL)
			     (replace
 (NoteFile Menu) of
 NoteFile with
 NIL)
			     (
WINDOWPROP
 Window (
QUOTE
 CLOSEFN)
					   NIL)
			     (
DELETEMENU
 Menu T))))))
)
(PUTPROPS PMIPATCH017 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (723 2745 (NC.ResetNoteFileInterface 733 . 2743)))))
STOP