kern@cpsvax.cps.msu.edu (John Kern) (08/10/89)
I am trying to specialize the window-update-event-handler method in Coral Common Lisp, using an ancient version (1.1), as follows: (defobfun (window-update-event-handler *fred-window*) () (usual-window-update-event-handler) (eval-enqueue (let* ((temp nil) (left nil) (bottom nil) (height nil) (width nil) (upper nil)) (setq hold (window-position)) (setq left (point-h hold)) (setq bottom (point-v hold)) (setq hold (window-size)) (setq width (point-h hold)) (setq height (point-v hold)) (setq bottom (+ bottom height)) (format t "~%left~T~D~Tbottom~T~D~Twidth~T~D~Theight~T~D" left bottom width height) (format t "~% And the object is ~S" (self)) ) ;; let star ) ;; event queue ) ;; defun Unfortunately, when I try to run this code the editor window isn't proper updated and it doesn't appear to be updated every time. Is my code incorrect or is this caused by the older version of CCL I am running? Any comments or sugguests are greatly appreciated. Sincerely, John Kern The Attic Seeker of Knowledge kern@cpsvax.cps.msu.edu Michigan State University 13501jsk@MSU.bitnet Knowledge Based Systems Group