[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv11335/Drei

Modified Files:
	drei-clim.lisp 
Log Message:
Patch from rpg: now handle both CLIM 2.2 and CLIM 2.0-style scroller
options.


--- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2006/11/24 22:43:03	1.12
+++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp	2006/12/04 22:31:18	1.13
@@ -403,7 +403,7 @@
                                    (drei-class 'drei-gadget-pane))
   (check-type initial-contents array)
   (check-type border-width integer)
-  (check-type scroll-bars (member :vertical :horizontal t nil))
+  (check-type scroll-bars (member t :both :vertical :horizontal nil))
   (with-keywords-removed (args (:minibuffer :scroll-bars :border-width :syntax))
     (let* ((borderp (and border-width (plusp border-width)))
            (minibuffer-pane (cond ((eq minibuffer t)