*** gin.cl	Tue May  4 13:52:45 1993
--- gin.cl~	Tue May  4 12:15:21 1993
***************
*** 1124,1132 ****
  (defun deg (d)
    (* (/ lisp:pi d) 180))
  
! (defmethod cw::text-scroll-hook (a b c)
!   (declare (ignore a b c))
!   nil)
  
  ;;;(defun text-scroll-hook ((bms cw::bitmap-stream) x y)
  ;;;  (format t "~%(text-scroll-hook ~a ~a ~a)" bms x y))
--- 1124,1130 ----
  (defun deg (d)
    (* (/ lisp:pi d) 180))
  
! (defmethod cw::text-scroll-hook (a b c) nil)
  
  ;;;(defun text-scroll-hook ((bms cw::bitmap-stream) x y)
  ;;;  (format t "~%(text-scroll-hook ~a ~a ~a)" bms x y))
