Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native In directory common-lisp.net:/tmp/cvs-serv26538/beagle/native
Modified Files: lisp-scroller.lisp Log Message: Some tidying of native scroll bar (NSScroller) code; added .cvsignore and updated README with current OpenMCL version used (0.14.3) and what's left to do with NSScroller.
Date: Fri Jun 10 20:01:52 2005 Author: drose
Index: mcclim/Backends/beagle/native/lisp-scroller.lisp diff -u mcclim/Backends/beagle/native/lisp-scroller.lisp:1.1 mcclim/Backends/beagle/native/lisp-scroller.lisp:1.2 --- mcclim/Backends/beagle/native/lisp-scroller.lisp:1.1 Fri Jun 10 00:42:31 2005 +++ mcclim/Backends/beagle/native/lisp-scroller.lisp Fri Jun 10 20:01:52 2005 @@ -37,22 +37,20 @@ (:metaclass ns:+ns-object))
-;;; See if this makes a difference... it doesn't. -#+nil -(define-objc-method ((:<BOOL> is-flipped) lisp-view) - #$YES) - ;;; This method is the 'recipient' of any actions sent by the scrollbar ;;; (we set the scrollbar up as its own action 'target'). It just calls ;;; back into Lisp [BEAGLE-SCROLL-BAR-PANE] to handle things. (define-objc-method ((:void :take-scroller-action (:id sender)) lisp-scroller) (action-handler (view-lisp-scroller self) sender))
+ ;;; Need to get scroll wheel events handled... not sure quite how though. (define-objc-method ((:void :scroll-wheel event) lisp-scroller) ;; Do what? Should pass them on to either the parent of the scroller ;; (scroll-pane?), or onto the viewport. Can it be guaranteed that - ;; there will *be* a viewport? + ;; there will *be* a viewport? Should send this to the next object in + ;; the responder chain, but that (parent) view appears not to be + ;; interested in scroll wheel events. Bah. #+nil (format *trace-output* "Received scroll-wheel event~%") )