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

[Duncan Rose]

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