Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Jul 2007 12:35:20 -0000	1.10
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Jul 2007 12:47:15 -0000	1.11
@@ -72,6 +72,7 @@
         textarea    {my class [self class]::textarea}
         richtext    {my class [self class]::richtext}
         boolean     {my class [self class]::boolean}
+        scale       {my class [self class]::scale}
         numeric     {my class [self class]::text; #for the time being
         }
         select      {my class [self class]::select}
@@ -328,17 +329,17 @@
     next
   }
 
-  #Class FormField::scale -superclass FormField -parameter {{n 5}}
-  #FormField::scale instproc initialize {} {
-  #  my instvar n display_html 
-  #  my set widget_type text
-  #  for {set i 1} {$i < $n} {incr i} {
-  #    set checked ""
-  #    if {[my exists value] && [my value] == $i} {set checked " checked='checked'"}
-  #    append display_html "<input type='radio' name='[my name]' value='$i' $checked> "
-  #  }
-  #}
- 
+  Class FormField::scale -superclass FormField::radio -parameter {{n 5} {horizontal true}}
+  FormField::scale instproc initialize {} {
+    my instvar n
+    set options [list]
+    for {set i 1} {$i <= $n} {incr i} {
+      lappend options [list $i $i]
+    }
+    my options $options
+    next
+  }
+
   #
   # a few test cases
   #