[mcclim-cvs] CVS update: mcclim/Backends/beagle/native-panes/beagle-slider-pane.lisp mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/native-panes In directory common-lisp.net:/tmp/cvs-serv22111/beagle/native-panes Modified Files: beagle-scroll-bar-pane.lisp Added Files: beagle-slider-pane.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:42 2005 Author: drose Index: mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp diff -u mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp:1.5 mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp:1.6 --- mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp:1.5 Fri Jun 10 20:01:56 2005 +++ mcclim/Backends/beagle/native-panes/beagle-scroll-bar-pane.lisp Sun Jun 12 15:27:42 2005 @@ -1,6 +1,14 @@ (in-package :beagle) +;;; Limitations: +;;; +;;; - ignores different NSControl sizes +;;; - inherits from the 'standard' scroll-bar-pane, rather than from the abstract +;;; scroll bar + +;;; Inheriting from 'scroll-bar' will probably work if we use the :default-initargs +;;; hackery out of gadgets.lisp (but shouldn't these be part of the abstract type?) ;;;(defclass beagle-scroll-bar-pane (scroll-bar) (defclass beagle-scroll-bar-pane (scroll-bar-pane) @@ -107,7 +115,7 @@ :knob-proportion (coerce loz-size 'short-float)))) -(defun action-handler (pane sender) +(defun scroll-bar-action-handler (pane sender) ;; Now we need to decide exactly what we do with these events... not sure ;; if this is the right way to invoke the callbacks... shouldn't
participants (1)
-
drose@common-lisp.net