[claw-cvs] r100 - trunk/main/claw-html.dojo/src

[achiumenti at common-lisp.net]

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))