[Use dropdown for page style background selector
clinton@unknownlamer.org**20090213233824
 Ignore-this: 38e3ea8f44bfb768a73dadc3d5fb7a15
] hunk ./src/web-admin.lisp 192
+(defclass image-selector-field (alist-select-field)
+  ()
+  (:default-initargs
+      :data-set (mapcar (lambda (p)
+			  (cons (format nil "~A.~A" (pathname-name p)
+					            (pathname-type p))
+				(format nil "~A.~A" (pathname-name p)
+					            (pathname-type p))))
+			(directory
+			 (format nil "~A~A"
+				 beesknees.site-control::*bee-data-root*
+				 "wwwroot/img/backgrounds/*.*")))
+    :test-fn #'string=))
+
hunk ./src/web-admin.lisp 209
-   (background (string-field :input-size 80
-			     :validators (make-validators 'not-empty-validator))))
+   (background (image-selector-field
+		:validators (make-validators 'not-empty-validator))))