🚀 go-pugleaf

What follows is a replacement for the standard Interlisp
PAGEFULLFN.  PAGEFULLFN is called when a window fills up
with output; the standard function supplied with Interlisp
turns the window reverse-video and waits for you to type
a character.

Rather than reverse-video the window, which I find annoying, the
function below fills your window with a pattern which you define.
I happen to like a lightly speckled pattern which you can get by

    (SETQ PAGEFULL.TEXTURE (CREATETEXTUREFROMBITMAP (EDITBM))

and using the bitmap editor to create an 11x11 bitmap with a single
black dot in the middle.  Otherwise it has the same functionality
as the default PAGEFULLFN.  Enjoy....




(PAGEFULLFN
  [LAMBDA (WINDOW)                  (* PKarp: "28-Sep-88 22:11")

          (* * Replacement for the system function that is called when output to a displaystream fills up the associated window.)

          (* * Actions: If the terminal input buffer is empty then we
fill the window with a distinctive pattern, wait till the user types
something, and then remove the pattern; else we just return because
the user has indicated we should pause.)


    (if (NOT (READP T))
        then (PROGN (BITBLT NIL NIL NIL WINDOW NIL NIL NIL 
                            NIL (QUOTE TEXTURE)
                            (QUOTE INVERT)
                            PAGEFULL.TEXTURE)
                    (CONTROL T)
                    (READC)
                    (CONTROL T)
                    (BITBLT NIL NIL NIL WINDOW NIL NIL NIL 
                            NIL (QUOTE TEXTURE)
                            (QUOTE INVERT)
                            PAGEFULL.TEXTURE])
-------