(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP" BASE 10)

(FILECREATED "19-Feb-88 12:30:26" {QV}<NOTECARDS>1.3LNEXT>RGPATCH080.;1
 1191   

      changes to%:  (VARS RGPATCH080COMS)
                    (FNS NC.NoteFileMenuWindowP))


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

(PRETTYCOMPRINT RGPATCH080COMS)

(RPAQQ RGPATCH080COMS
 (
          
          (* ;; "rg 2/19/88 NC.NoteFileMenuWindowP now checks Window arg for non-NIL before calling WINDOWPROP with it.")

                       
          
          (* ;; "changes to NCINTERFACE")

                       (FNS NC.NoteFileMenuWindowP)))



(* ;; 
"rg 2/19/88 NC.NoteFileMenuWindowP now checks Window arg for non-NIL before calling WINDOWPROP with it."
)





(* ;; "changes to NCINTERFACE")


(DEFINEQ

(NC.NoteFileMenuWindowP

  [LAMBDA (Window)                                    (* ; "Edited 19-Feb-88 12:27 by Randy.Gobbel")
          
          (* ;; "IS Window a NoteFile menu?")
          
          (* ;; "fgh 6/13/86 First created.")

    (AND Window (WINDOWPROP Window 'NoteFile])
)
(PUTPROPS RGPATCH080 COPYRIGHT ("Xerox Corporation" 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (807 1109 (NC.NoteFileMenuWindowP 817 . 1107)))))
STOP