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

Modified Files: panes.lisp text-editor-gadget.lisp Log Message:

In make-pane, convert keyword types to their corresponding symbols in the CLIM package.

--- /project/mcclim/cvsroot/mcclim/panes.lisp 2006/12/05 02:08:44 1.174 +++ /project/mcclim/cvsroot/mcclim/panes.lisp 2006/12/19 04:02:14 1.175 @@ -27,7 +27,7 @@ ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;;; Boston, MA 02111-1307 USA.

-;;; $Id: panes.lisp,v 1.174 2006/12/05 02:08:44 rgoldman Exp $ +;;; $Id: panes.lisp,v 1.175 2006/12/19 04:02:14 ahefner Exp $

(in-package :clim-internals)

@@ -377,6 +377,10 @@ (prin1 (pane-name pane) sink)))

(defun make-pane (type &rest args) + (when (eql (symbol-package type) + (symbol-package :foo)) + (setf type (or (find-symbol (symbol-name type) (find-package :clim)) + type))) (apply #'make-pane-1 *pane-realizer* *application-frame* type args))

(defmethod medium-foreground ((pane pane)) @@ -2095,7 +2099,7 @@ (check-type scroll-bar scroll-bar-spec) ; (member :vertical :horizontal :both t nil)) (when (member scroll-bar '(:vertical :both t)) (setq vscrollbar - (make-pane 'scroll-bar-pane + (make-pane 'scroll-bar :orientation :vertical :client (first (sheet-children viewport)) :drag-callback (lambda (gadget new-value) @@ -2121,7 +2125,7 @@ (sheet-adopt-child pane vscrollbar)) (when (member scroll-bar '(:horizontal :both t)) (setq hscrollbar - (make-pane 'scroll-bar-pane + (make-pane 'scroll-bar :orientation :horizontal :client (first (sheet-children viewport)) :drag-callback (lambda (gadget new-value) --- /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2006/11/24 22:43:03 1.5 +++ /project/mcclim/cvsroot/mcclim/text-editor-gadget.lisp 2006/12/19 04:02:14 1.6 @@ -89,7 +89,7 @@ (setf (gadget-value object) value))

(defmethod make-pane-1 :around (fm (frame application-frame) - (type (eql :text-editor)) + (type (eql 'text-editor)) &rest args &key) (apply #'make-pane-1 fm frame :drei :drei-class 'text-editor-pane @@ -278,14 +278,14 @@ ;;; Drei/Goatee selection.

(defmethod make-pane-1 :around (fm (frame application-frame) - (type (eql :text-field)) + (type (eql 'text-field)) &rest args &key) (if *use-goatee* (apply #'make-pane-1 fm frame 'goatee-text-field-pane args) (apply #'make-pane-1 fm frame 'text-field-pane args)))

(defmethod make-pane-1 :around (fm (frame application-frame) - (type (eql :text-editor)) + (type (eql 'text-editor)) &rest args &key) (if *use-goatee* (apply #'make-pane-1 fm frame 'goatee-text-editor-pane args)