Re: Scrolling Fred Window on output

[poeck@informatik.uni-wuerzburg.de (Karsten Poeck)]

>Is there a convenient and efficient way to make a fred window so that
>current output is always visible?
>

(defclass *autoscroll-window* (Fred-Window)
  ())

(Defmethod Stream-Tyo ((Ich *autoscroll-window*) char)
  (declare (ignore char))
  (Call-Next-Method)
  (When (zerop (Stream-Column ich))
    (window-show-cursor Ich))
  )

#|
(let ((window (make-instance '*autoscroll-window*)))
  (dotimes (x 100)
    (format window "Line ~a~%" x)))
|#

Karsten