Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native In directory common-lisp.net:/tmp/cvs-serv22111/beagle/native
Modified Files: lisp-scroller.lisp Added Files: lisp-slider.lisp Log Message: Added native slider pane. Updated README with list of panes that need native equivalents, and whether these are provided yet or not.
Date: Sun Jun 12 15:27:41 2005 Author: drose
Index: mcclim/Backends/beagle/native/lisp-scroller.lisp diff -u mcclim/Backends/beagle/native/lisp-scroller.lisp:1.2 mcclim/Backends/beagle/native/lisp-scroller.lisp:1.3 --- mcclim/Backends/beagle/native/lisp-scroller.lisp:1.2 Fri Jun 10 20:01:52 2005 +++ mcclim/Backends/beagle/native/lisp-scroller.lisp Sun Jun 12 15:27:40 2005 @@ -41,16 +41,5 @@ ;;; (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)) + (scroll-bar-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? 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~%") - ) \ No newline at end of file