[mcclim-cvs] CVS update: mcclim/Backends/beagle/native/lisp-slider.lisp mcclim/Backends/beagle/native/lisp-scroller.lisp

[Duncan Rose]

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