(FILECREATED " 6-Mar-85 13:51:53" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-EVENTS.;3
 1459   

      changes to:  (FNS SETUP.RECORDING)

      previous date: " 1-Mar-85 16:05:52" 
{PHYLUM}<TRILLIUM>BIRTHDAY84>ENHANCEMENTS>RECORDS-NHB>TRI-RECORD-EVENTS.;2)


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

(PRETTYCOMPRINT TRI-RECORD-EVENTSCOMS)

(RPAQQ TRI-RECORD-EVENTSCOMS
 ((FNS SETUP.RECORDING)))
(DEFINEQ

(SETUP.RECORDING

  [LAMBDA NIL                                                (* N.H.Briggs "21-Feb-85 12:15")

    (DECLARE
 (
GLOBALVARS
 CURRENT.FRAME CURRENT.INTERFACE CURRENT.INTERFACE.WINDOW EVENT.FINISH.TIME 
			 EVENT.MODE RECORDED.DELAYS RECORDED.EVENTS RECORDED.KEYSTROKES))
    (
COND

      ((
OR
 (
NULL
 RECORDED.EVENTS)
	   (
CONFIRM
 "There is a session in memory.  Do you still want to record?"))
	(
SETQ
 RECORDED.EVENTS (
CONS
))
	(
SETQ
 RECORDED.DELAYS (
CONS
))
	(
SETQ
 RECORDED.KEYSTROKES (
CONS
))
	(
SETQ
 EVENT.FINISH.TIME (
CLOCK
 0))
	(
WINDOWPROP
 CURRENT.INTERFACE.WINDOW (
QUOTE
 TITLE)
		    (
CONCAT
 "TRILLIUM; interface: " (fetch.interface.fieldq CURRENT.INTERFACE NAME)
			    "; frame: "
			    (fetch.frame.fieldq CURRENT.FRAME NAME)
			    "; Not Operating & Recording Session"))
	(
SETQ
 EVENT.MODE (
QUOTE
 RECORDING])
)
(PUTPROPS TRI-RECORD-EVENTS COPYRIGHT ("Xerox Corporation" 1985))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (453 1371 (SETUP.RECORDING 463 . 1369)))))
STOP