[Remove `select-field' `render-options' method
clinton@unknownlamer.org**20090213233538
 Ignore-this: c5aeff28d66e54dcd81157b33d8c1a3f
 This *did not work* because <ucw:select MUST be used with <ucw:option
 and <ucw:option is a bit evil in that it modifies a lexical variable
 bound by the enclosing <ucw:select. Naturally having the options
 rendered in another function does not work as a result.
] hunk ./src/form.lisp 574
-   (render-options field)))
-
-(defgeneric render-options (select-field)
-  (:documentation "Function used to render the list of options of
-  a select field. Methods are always called AFTER the data-map
-  has been setup."))
-
-(defmethod render-options ((field select-field))
-  (dolist* ((key-string . value) (data-map field))
-    (<:option :value key-string
-              :selected  (string= (client-value field) key-string)
-      (render-value field value))))
+   (dolist* ((key-string . value) (data-map field))
+     (<ucw:option :value key-string
+		  :selected  (string= (client-value field) key-string)
+		  (render-value field value)))))
hunk ./src/form.lisp 605
-(defmethod render-options ((field mapping-select-field))
-  (dolist* ((key-string . key) (data-map field))
-    (<:option :value key-string
-              :selected  (string= (client-value field) key-string)
-              (render-key field key))))
-
-(defgeneric render-key (field key)
-  (:method ((field mapping-select-field) (key t))
-    (<:as-html key)))
+(defmethod render ((field mapping-select-field))
+  (<ucw:select
+   :accessor (client-value field)
+   :title (tooltip field)
+   :id (html-element.dom-id field)
+   :accesskey (accesskey field)
+   :tabindex (tabindex field)
+   :class (html-element.css-class field)
+   :style (html-element.css-style field)
+   (setf (data-map field) (build-data-map field))
+   (dolist* ((key-string . key) (data-map field))
+    (<ucw:option :value key-string
+		 :selected  (string= (client-value field) key-string)
+		 (render-key field key)))))