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 -r1.187 -r1.188 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 3 Dec 2010 20:30:43 -0000 1.187 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 28 Dec 2010 11:35:27 -0000 1.188 @@ -909,7 +909,7 @@ # ########################################################### - Class color -superclass FormField -superclass text + Class color -superclass text color instproc initialize {} { next my type color @@ -921,7 +921,7 @@ # ########################################################### - Class datetime -superclass FormField -superclass text + Class datetime -superclass text datetime instproc initialize {} { next my type datetime @@ -936,7 +936,7 @@ # ########################################################### - Class datetime-local -superclass FormField -superclass text + Class datetime-local -superclass text datetime-local instproc initialize {} { next my type datetime-local @@ -948,7 +948,7 @@ # ########################################################### - Class time -superclass FormField -superclass text + Class time -superclass text time instproc initialize {} { next my type time @@ -960,7 +960,7 @@ # ########################################################### - Class week -superclass FormField -superclass text + Class week -superclass text week instproc initialize {} { next my type datetime @@ -972,7 +972,7 @@ # ########################################################### - Class email -superclass FormField -superclass text + Class email -superclass text email instproc initialize {} { next my type email @@ -984,7 +984,7 @@ # ########################################################### - Class search -superclass FormField -superclass text + Class search -superclass text search instproc initialize {} { next my type search @@ -995,7 +995,7 @@ # ########################################################### - Class tel -superclass FormField -superclass text + Class tel -superclass text tel instproc initialize {} { next my type tel @@ -2060,7 +2060,7 @@ # ########################################################### - Class DD -superclass FormField -superclass select + Class DD -superclass select DD instproc initialize {} { my options { {01 1} {02 2} {03 3} {04 4} {05 5} {06 6} {07 7} {08 8} {09 9} {10 10} @@ -2077,7 +2077,7 @@ # ########################################################### - Class HH24 -superclass FormField -superclass select + Class HH24 -superclass select HH24 instproc initialize {} { my options { {00 0} {01 1} {02 2} {03 3} {04 4} {05 5} {06 6} {07 7} {08 8} {09 9} @@ -2093,7 +2093,7 @@ # ########################################################### - Class MI -superclass FormField -superclass select + Class MI -superclass select MI instproc value args { if {[llength $args] == 0} {return [my set value]} else { set v [lindex $args 0] @@ -2117,7 +2117,7 @@ # ########################################################### - Class MM -superclass FormField -superclass select + Class MM -superclass select MM instproc initialize {} { my options { {01 1} {02 2} {03 3} {04 4} {05 5} {06 6} {07 7} {08 8} {09 9} {10 10}