(FILECREATED "21-Jan-87 12:44:07" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH010.;1
 1187   

      changes to:  (VARS RGPATCH010COMS))


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

(PRETTYCOMPRINT RGPATCH010COMS)

(RPAQQ RGPATCH010COMS
 ((* * rg 1/21/87 Server package side: stream set to NIL on notefile close)
			 (* * changes to NCCLIENT)
			 (FNS NCMultiRemote.CloseNoteFile)))
(* * rg 1/21/87 Server package side: stream set to NIL on notefile close)


(* * changes to NCCLIENT)


(DEFINEQ

(NCMultiRemote.CloseNoteFile

  [LAMBDA (NoteFile InterestedWindow)                        (* Randy.Gobbel "15-Jan-87 18:19")


          (* * Cancels the NoteFile subscription on NoteFile)




          (* * fgh 9/4/86 Added InterestedWindow arg and msg printing.)




          (* * RG 1/15/87 replaced NotClosed w/ CloseFailed.)



    (
NC.PrintMsg
 InterestedWindow NIL "Closing NoteFile on server.  Please wait ...")
    (
COND

      ((
CAR
 (
ERSETQ
 (
NCCLIENT.CANCELNOTEFILESUBSCRIPTION
 NoteFile)))
	NoteFile)
      (T (
QUOTE
 CloseFailed])
)
(PUTPROPS RGPATCH010 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (515 1106 (NCMultiRemote.CloseNoteFile 525 . 1104)))))
STOP