Author: achiumenti Date: Wed Oct 1 07:57:59 2008 New Revision: 100
Removed: trunk/main/claw-html.dojo/src/djtoolbar.fasl Modified: trunk/main/claw-html.dojo/src/djform.lisp Log: several bugfixes and enhancements
Modified: trunk/main/claw-html.dojo/src/djform.lisp ============================================================================== --- trunk/main/claw-html.dojo/src/djform.lisp (original) +++ trunk/main/claw-html.dojo/src/djform.lisp Wed Oct 1 07:57:59 2008 @@ -79,7 +79,7 @@ (input> :static-id client-id :type type :dojoType dojo-type - :name client-id + :name (name-attr obj) :class class :value value (wcomponent-informal-parameters obj)))) @@ -218,7 +218,7 @@ (setf value (translator-encode translator obj)) (select> :static-id client-id :dojoType dojo-type - :name client-id + :name (name-attr obj) :class class :value value :multiple (cinput-result-as-list-p obj) @@ -333,9 +333,11 @@ (:default-initargs :dojo-require (list "dijit.form.Slider")))
(defclass _djslider-slider (cinput _djslider) - () + ((name :initarg :name + :reader base-cinput-name + :documentation "When specified the name tag attribute, otherwise the given component id is used")) (:metaclass metacomponent) - (:default-initargs :reserved-parameters (list :value :name) :translator *number-translator*) + (:default-initargs :reserved-parameters (list :value) :translator *number-translator*) (:documentation "Base class to map dojo dijit.form.HorizontalSlider and dijit.form.VerticalSlider. More info at http://api.dojotoolkit.org/"))
(defmethod wcomponent-template ((_djslider-slider _djslider-slider))