Re: read-only Fred window

[Luke Hohmann <hohmann@csmil.umich.edu>]

Sheldon:

  Here is a 2-minute hack.  Enjoy:


(defobject *ro-fred-window* *fred-window*)

; eat keystrokes from the user.
;
(defobfun (window-key-event-handler *ro-fred-window*) (char)
  (declare (ignore char))
  (values))

; also, ignore clicks.  Maybe will have some problems on
; using the scrollbars, but can fix easily enough.
;
(defobfun (window-click-event-handler *ro-fred-window*) (where)
  (declare (ignore where))
  (values))

; we always want the cursor to appear like an arrow whenever we are
; over a read only fred window
;
;
(defobfun (window-update-cursor *ro-fred-window*) (where)
  (declare (ignore where))
  (set-cursor *arrow-cursor*))


  -- Luke