diff --git a/lispusers/BICLOCK b/lispusers/BICLOCK index a803e2004..9a5d4b0f3 100644 --- a/lispusers/BICLOCK +++ b/lispusers/BICLOCK @@ -1,15 +1,13 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "12-Sep-88 01:29:15" {ERINYES}MEDLEY>BICLOCK.;5 38172 +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) - changes to%: (FNS BICLOCK BICLOCKPROCESS) - (VARS BICLOCKCOMS) +(FILECREATED "15-Jul-2026 16:32:51" {DSK}larry>il>medley>LISPUSERS>BICLOCK.;2 37975 - previous date%: "14-Dec-87 17:32:47" {ERINYES}MEDLEY>BICLOCK.;2) + :EDIT-BY "lmm" + :CHANGES-TO (VARS BICLOCKCOMS) + + :PREVIOUS-DATE "12-Sep-88 01:29:15" {DSK}larry>il>medley>LISPUSERS>BICLOCK.;1) -(* " -Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Linkoeping. All rights reserved. -") (PRETTYCOMPRINT BICLOCKCOMS) @@ -27,7 +25,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link BICLOCKINITIALPROPS BICLOCKIDLEPROPS] [DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BICLOCKWINDOW (BICLOCK BICLOCKINITIALPROPS] (ADDVARS (IDLE.FUNCTIONS (Biclock 'IDLE.BICLOCK)) - (IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS)) + (IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS BICLOCKPROCESS#2)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA BICLOCK]) @@ -634,7 +632,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link (DECLARE%: EVAL@COMPILE (DATATYPE BICLOCKPARMS (SECONDSMODE COLORMODE MARKMODE DIGMODE CHIMEMODE ROMANDIGS ALARMTIME - ADJUSTALARM ADJUSTEVENT)) + ADJUSTALARM ADJUSTEVENT)) (RECORD UPTIMEREC (YEAR MONTH DAY HOUR MINUTE SECOND QQQ)) ) @@ -654,8 +652,8 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link (RPAQ? BICLOCKWINDOW ) -(RPAQ? BICLOCKDEFAULTPROPS '(SECONDS T COLOR SHADOW MARKS NIL DIGITS 1 CHIME NIL ALARM NIL SIZE - 152 HORIZONTAL LEFT-OF-LOGO VERTICAL TOP CREATE T)) +(RPAQ? BICLOCKDEFAULTPROPS '(SECONDS T COLOR SHADOW MARKS NIL DIGITS 1 CHIME NIL ALARM NIL SIZE 152 + HORIZONTAL LEFT-OF-LOGO VERTICAL TOP CREATE T)) (RPAQ? BICLOCKUSERPROPS ) @@ -672,7 +670,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link (ADDTOVAR IDLE.FUNCTIONS (Biclock 'IDLE.BICLOCK)) -(ADDTOVAR IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS) +(ADDTOVAR IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS BICLOCKPROCESS#2) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDTOVAR NLAMA ) @@ -681,10 +679,9 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link (ADDTOVAR LAMA BICLOCK) ) -(PUTPROPS BICLOCK COPYRIGHT ("Bernt Nilsson @ University of Linkoeping" 1984 1985 1986 1987 1988)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (1744 36493 (BICLOCK 1754 . 7779) (BICLOCKBEFN 7781 . 13339) (BICLOCKCFN 13341 . 13412) -(BICLOCKFINDFONT 13414 . 14853) (BICLOCKNRFN 14855 . 16271) (BICLOCKPROCESS 16273 . 32113) ( -BICLOCKRPFN 32115 . 32188) (BICLOCKRSFN 32190 . 32347) (BICLOCKSETALARM 32349 . 34451) ( -BICLOCKSETALARM1 34453 . 35474) (BICLOCKSETALARM2 35476 . 35811) (IDLE.BICLOCK 35813 . 36491))))) + (FILEMAP (NIL (1637 36386 (BICLOCK 1647 . 7672) (BICLOCKBEFN 7674 . 13232) (BICLOCKCFN 13234 . 13305) +(BICLOCKFINDFONT 13307 . 14746) (BICLOCKNRFN 14748 . 16164) (BICLOCKPROCESS 16166 . 32006) ( +BICLOCKRPFN 32008 . 32081) (BICLOCKRSFN 32083 . 32240) (BICLOCKSETALARM 32242 . 34344) ( +BICLOCKSETALARM1 34346 . 35367) (BICLOCKSETALARM2 35369 . 35704) (IDLE.BICLOCK 35706 . 36384))))) STOP diff --git a/lispusers/BICLOCK.LCOM b/lispusers/BICLOCK.LCOM index fec217b77..8b6c576ae 100644 Binary files a/lispusers/BICLOCK.LCOM and b/lispusers/BICLOCK.LCOM differ diff --git a/sources/IDLER b/sources/IDLER index 0ad4e9ebe..028906d84 100644 --- a/sources/IDLER +++ b/sources/IDLER @@ -1,15 +1,13 @@ -(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) +(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10) -(FILECREATED " 4-Oct-2022 16:42:36" {DSK}larry>medley>sources>IDLER.;2 47709 +(FILECREATED "15-Jul-2026 16:47:22" {DSK}larry>il>medley>sources>IDLER.;3 47462 - :CHANGES-TO (FNS \IDLE.OUT) + :EDIT-BY "lmm" - :PREVIOUS-DATE "28-Sep-2022 19:54:40" {DSK}larry>medley>sources>IDLER.;1) + :CHANGES-TO (FNS \IDLER) + :PREVIOUS-DATE " 4-Oct-2022 16:42:36" {DSK}larry>il>medley>sources>IDLER.;1) -(* ; " -Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation. -") (PRETTYCOMPRINT IDLERCOMS) @@ -237,7 +235,8 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation. (T (TERPRI PROMPTWINDOW]) (\IDLER - [LAMBDA (FROMTIMEOUT) (* ; "Edited 28-Sep-2022 09:05 by lmm") + [LAMBDA (FROMTIMEOUT) (* ; "Edited 15-Jul-2026 16:44 by lmm") + (* ; "Edited 28-Sep-2022 09:05 by lmm") (* ; "Edited 22-Sep-2022 15:04 by lmm") (* ; "Edited 29-Jun-88 14:36 by drc:") @@ -268,12 +267,6 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation. (\USEREVENT 'AFTERDOSAVEVM] (RESETSAVE NIL (LIST (FUNCTION NOTIFY.EVENT) \IDLING.OVER)) - [for X in IDLE.SUSPEND.PROCESS.NAMES bind PROC do - (* ; - "Turn off things like CROCK, LAFITEMAILWATCH, SPACEWINDOW, REMINDERS") - (COND - ((SETQ PROC (FIND.PROCESS X)) - (PROCESS.EVAL PROC '(\IDLE.WAIT] (RESETSAVE \AFTERLOGINFNS NIL) (* ;  "So that SETPASSWORD doesn't trigger any activity") [for X in IDLE.RESETVARS do (* ; @@ -297,6 +290,10 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation. (RESETSAVE (CHANGENAME '\LOGIN.READ 'PROVIDE.PROMPTING.WINDOW '\IDLE.PROMPTING.WINDOW) '(CHANGENAME \LOGIN.READ \IDLE.PROMPTING.WINDOW PROVIDE.PROMPTING.WINDOW)) + [MAP.PROCESSES (FUNCTION (LAMBDA (PROC) + (IF (MEMB (FETCH (PROCESS PROCNAME) OF PROC) + IDLE.SUSPEND.PROCESS.NAMES) + THEN (PROCESS.EVAL PROC '(\IDLE.WAIT] (COND ((OR [AND FROMTIMEOUT (NOT (AND (SMALLP IDLE.TIMEOUT) (\SECONDSCLOCKGREATERP \LASTUSERACTION @@ -910,13 +907,12 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation. (GLOBALVARS IDLE.FUNCTIONS IDLE.BOUNCING.BOX) ) -(PUTPROPS IDLER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1992 2022)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (7315 37483 (IDLE 7325 . 7773) (IDLE.SET.OPTION 7775 . 11074) (IDLE.SHOW.OPTIONS 11076 - . 11640) (IDLE.SHOW.OPTION 11642 . 13166) (\IDLER 13168 . 22570) (\IDLE.WAIT 22572 . 22675) ( -\OK.TO.IDLE? 22677 . 22855) (\IDLE.TIME 22857 . 23639) (\IDLE.OUT 23641 . 24162) (\IDLE.EXIT? 24164 . -28150) (\IDLE.PROMPT.WATCHER 28152 . 28798) (\IDLE.EXIT.ABORT 28800 . 29068) (\IDLE.PROMPTING.WINDOW -29070 . 29805) (\IDLE.IS.PREVIOUS 29807 . 31666) (\IDLE.ISMEMBER 31668 . 34271) (\IDLE.AUTHENTICATE -34273 . 36393) (\IDLERKEYACTION 36395 . 37481)) (42738 47252 (IDLE.BOUNCING.BOX 42748 . 44211) ( -IDLE.BITMAP 44213 . 46316) (IDLE.RANDOM 46318 . 47250))))) + (FILEMAP (NIL (7265 37333 (IDLE 7275 . 7723) (IDLE.SET.OPTION 7725 . 11024) (IDLE.SHOW.OPTIONS 11026 + . 11590) (IDLE.SHOW.OPTION 11592 . 13116) (\IDLER 13118 . 22420) (\IDLE.WAIT 22422 . 22525) ( +\OK.TO.IDLE? 22527 . 22705) (\IDLE.TIME 22707 . 23489) (\IDLE.OUT 23491 . 24012) (\IDLE.EXIT? 24014 . +28000) (\IDLE.PROMPT.WATCHER 28002 . 28648) (\IDLE.EXIT.ABORT 28650 . 28918) (\IDLE.PROMPTING.WINDOW +28920 . 29655) (\IDLE.IS.PREVIOUS 29657 . 31516) (\IDLE.ISMEMBER 31518 . 34121) (\IDLE.AUTHENTICATE +34123 . 36243) (\IDLERKEYACTION 36245 . 37331)) (42588 47102 (IDLE.BOUNCING.BOX 42598 . 44061) ( +IDLE.BITMAP 44063 . 46166) (IDLE.RANDOM 46168 . 47100))))) STOP diff --git a/sources/IDLER.LCOM b/sources/IDLER.LCOM index abe1deb90..a486350f0 100644 Binary files a/sources/IDLER.LCOM and b/sources/IDLER.LCOM differ