(FILECREATED "17-Jan-85 16:42:15" {ERIS}<LISPCORE>32MB>SPACEWINDOW.;2 4345 changes to: (VARS SPACEWINDOWCOMS) (FNS UPDATE.SPACE.WINDOW UPDATE.SPACE.WINDOW.PLINE) previous date: "22-Aug-84 14:43:11" {ERIS}<LISPUSERS>SPACEWINDOW.;5) (* Copyright (c) 1984, 1985 by Xerox Corporation. All rights reserved.) (PRETTYCOMPRINT SPACEWINDOWCOMS) (RPAQQ SPACEWINDOWCOMS [(FNS SPACEWINDOW UPDATE.SPACE.WINDOW UPDATE.SPACE.WINDOW.PLINE) [INITVARS (\LASTVMEMFILEPAGE 16383) (SPACEWINDOWPOSITION (QUOTE (675 . 0] (GLOBALVARS \LASTVMEMFILEPAGE SPACEWINDOWPOSITION) (DECLARE: DONTEVAL@LOAD DOCOPY (P (SPACEWINDOW]) (DEFINEQ (SPACEWINDOW [LAMBDA (WINDOW MSECS) (* bvm: "22-Aug-84 14:41") (if (NOT (WINDOWP WINDOW)) then (SETQ WINDOW (CREATEW (CREATEREGION (fetch XCOORD of SPACEWINDOWPOSITION) (fetch YCOORD of SPACEWINDOWPOSITION) 349 65) "Space Allocation"))) [WINDOWPROP WINDOW (QUOTE REPAINTFN) (FUNCTION (LAMBDA (WINDOW REG) (DSPFILL REG WHITESHADE NIL WINDOW) (UPDATE.SPACE.WINDOW WINDOW] [WINDOWPROP WINDOW (QUOTE RESHAPEFN) (FUNCTION (LAMBDA (WINDOW REG) (CLEARW WINDOW) (REDISPLAYW WINDOW] (ADD.PROCESS (LIST [FUNCTION (LAMBDA (WINDOW MSECS) (REDISPLAYW WINDOW) (while (OPENWP WINDOW) do (UPDATE.SPACE.WINDOW WINDOW T) (BLOCK (if (NUMBERP MSECS) else 60000] (KWOTE WINDOW) (KWOTE MSECS)) (QUOTE NAME) (QUOTE SPACEWINDOW) (QUOTE RESTARTABLE) (QUOTE HARDRESET]) (UPDATE.SPACE.WINDOW [LAMBDA (WINDOW NO.TITLES.FLG) (* bvm: "17-Jan-85 16:38") (* DECLARATIONS: (RECORD SPACEDATA (MDSFREE MDSFRAC 8MBFRAC ATOMSFREE ATOMFRAC))) (PROG [(SPACEDATA (STORAGE.LEFT)) (BEGIN.X (STRINGWIDTH "8MBData: " (DSPFONT NIL WINDOW] (DSPXPOSITION (DSPLEFTMARGIN NIL WINDOW) WINDOW) (DSPYPOSITION (IPLUS (DSPLINEFEED NIL WINDOW) (WINDOWPROP WINDOW (QUOTE HEIGHT))) WINDOW) (for TITLE in (QUOTE (8MBData: Data: Atoms: Vmem:)) as SPACE in (LIST (fetch (SPACEDATA 8MBFRAC) of SPACEDATA) (fetch (SPACEDATA MDSFRAC) of SPACEDATA) (fetch (SPACEDATA ATOMFRAC) of SPACEDATA) (FQUOTIENT (IDIFFERENCE \LASTVMEMFILEPAGE (VMEMSIZE)) \LASTVMEMFILEPAGE)) do (UPDATE.SPACE.WINDOW.PLINE WINDOW BEGIN.X (COND (NO.TITLES.FLG NIL) (T TITLE)) SPACE]) (UPDATE.SPACE.WINDOW.PLINE [LAMBDA (WINDOW BEGINX TITLE FREE.FRACTION) (* bvm: "16-Jan-85 14:21") (PROG ((MAX.WIDTH (IDIFFERENCE (DSPRIGHTMARGIN NIL WINDOW) BEGINX)) USED.WIDTH BEGINY HEIGHTY HALF.HEIGHT) (COND (TITLE (PRIN1 TITLE WINDOW))) (COND ((LESSP MAX.WIDTH 0) (TERPRI WINDOW) (RETURN))) (SETQ BEGINY (DSPYPOSITION NIL WINDOW)) (SETQ HEIGHTY (ABS (DSPLINEFEED NIL WINDOW))) (SETQ HALF.HEIGHT (IQUOTIENT HEIGHTY 2)) [SETQ USED.WIDTH (IDIFFERENCE MAX.WIDTH (FIXR (FTIMES FREE.FRACTION MAX.WIDTH] (TERPRI WINDOW) (DSPFILL (create REGION LEFT ← BEGINX BOTTOM ← BEGINY HEIGHT ← HALF.HEIGHT WIDTH ← USED.WIDTH) BLACKSHADE NIL WINDOW) (DSPFILL (create REGION LEFT ← BEGINX BOTTOM ←(IPLUS BEGINY HALF.HEIGHT) HEIGHT ← HALF.HEIGHT WIDTH ← USED.WIDTH) GRAYSHADE NIL WINDOW) (DSPFILL (create REGION LEFT ←(IPLUS BEGINX USED.WIDTH) BOTTOM ← BEGINY HEIGHT ← HEIGHTY WIDTH ←(IDIFFERENCE MAX.WIDTH USED.WIDTH)) GRAYSHADE NIL WINDOW]) ) (RPAQ? \LASTVMEMFILEPAGE 16383) (RPAQ? SPACEWINDOWPOSITION (QUOTE (675 . 0))) (DECLARE: DOEVAL@COMPILE DONTCOPY (GLOBALVARS \LASTVMEMFILEPAGE SPACEWINDOWPOSITION) ) (DECLARE: DONTEVAL@LOAD DOCOPY (SPACEWINDOW) ) (PUTPROPS SPACEWINDOW COPYRIGHT ("Xerox Corporation" 1984 1985)) (DECLARE: DONTCOPY (FILEMAP (NIL (650 4034 (SPACEWINDOW 660 . 1626) (UPDATE.SPACE.WINDOW 1628 . 2734) ( UPDATE.SPACE.WINDOW.PLINE 2736 . 4032))))) STOP