(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