(FILECREATED " 3-AUG-78 18:17:52" <KRL>DSYSCHANGES.;72
 2385   

     changes to:  DMONITORCOMS PROCESSDEMO1 SetUpKrlMonitor PROCESSDEMO DSYSCHANGESCOMS

     previous date: "19-JUL-78 09:04:24" <KRL>DSYSCHANGES.;69)


(DEFINEQ
)
(PRETTYCOMPRINT DSYSCHANGESCOMS)

(RPAQQ DSYSCHANGESCOMS
 [(* new stuff, temporary 
			   stuff)
	(FNS DWHENTOUCHEDFN1 DWHENFADEOUTFN1 
	     EVALCONTROLIN)
	(* Changes to DMONITOR)
	(* miscellaneous variables, properties, 
	   advice, etc.)
	(FNS NEWDCHANGES FROMTO)
	(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE 
		  DONTCOPY COMPILERVARS
		  (ADDVARS (NLAMA)
			   (NLAML])
(* new stuff, temporary stuff)


(DEFINEQ

(DWHENTOUCHEDFN1

  [LAMBDA (WIN PROMPTING WINCHAIN)                          (* mlm: "24-FEB-78 11:12")

    (for
 DW in
 WINCHAIN::1 do
 (TOUCHWINDOW DW])

(DWHENFADEOUTFN1

  [LAMBDA (BKGRND WIN)                                      (* mlm: "24-FEB-78 12:09")

    T])

(EVALCONTROLIN

  [LAMBDA NIL
    (DECLARE
 (USEDFREE CONTROLIN CONTROLRECORDFIL))         (* mlm: " 6-MAR-78 09:57")

                                                            (* reads an expression from CONTROLIN, records it on the

							    CONTROL record file, and evals the expression)

    (PROG ((EXP (READ CONTROLIN)))
          (PRIN2 EXP CONTROLRECORDFIL)
          (TERPRI CONTROLRECORDFIL)
          (EVAL EXP])
)
(* Changes to DMONITOR)


(* miscellaneous variables, properties, advice, etc.)


(DEFINEQ

(NEWDCHANGES

  [LAMBDA (FILES)                                           (* mlm: " 1-MAR-78 17:51")

    (FILES?)
    (TERPRI)
    (for
 FIL in
 (OR FILES '(DMISC DMONITOR DISPLAYFNS))
       join
 (for
 X in
 (CDR (GETPROP FIL 'FILE)) bind
 collect
 X
	       when
 ~(OR (NEWFILE2 X DSYSCHANGESCOMS 'FNS)
			 (NEWFILE2 X DSYSCHANGESCOMS 'VARS)
			 (NEWFILE2 X DSYSCHANGESCOMS 'PROPS])

(FROMTO

  [LAMBDA (REC)                                             (* mlm: "26-FEB-78 13:56")

    (PRIN1 "From " T)
    (PRIN1 REC:CHANGETTYREC.TYPESCRIPTWIN:WINDOW.NAME T)
    (PRIN1 " to " T)
    (PRINT REC:CHANGETTYREC.OLDWIN:WINDOW.NAME T)
    REC])
)
(DECLARE: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY 
COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (229 240) (669 1436 (
DWHENTOUCHEDFN1 681 . 854) (DWHENFADEOUTFN1 858 .
979) (EVALCONTROLIN 983 . 1433)) (1532 2243 (
NEWDCHANGES 1544 . 1968) (FROMTO 1972 . 2240))))
)
STOP