Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	30 Sep 2003 19:27:49 -0000	1.9
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	5 Oct 2003 17:55:55 -0000	1.10
@@ -188,15 +188,12 @@
       append output "<br>Format: [menu "$element(id).format" [template::util::richtext::format_options] $format {}]"
 
       set spellcheck_properties [template::util::spellcheck::spellcheck_properties -element_ref element]
-      set spellcheck_p [lindex $spellcheck_properties 0]
+      set spellcheck [lindex $spellcheck_properties 0]
 
-      if { $spellcheck_p } {
-          set yes_checked [lindex $spellcheck_properties 1]
-          set no_checked [lindex $spellcheck_properties 2]
-          append output " Spellcheck? 
-<input type=\"radio\" name=\"$element(id).spellcheck_p\" value=\"1\" $yes_checked /> Yes \n
-<input type=\"radio\" name=\"$element(id).spellcheck_p\" value=\"0\" $no_checked /> No"
+      if { ![string equal ":nospell:" $spellcheck] } {
+          set selected_option [lindex $spellcheck_properties 1]
 
+          append output " Spellcheck: [menu "$element(id).spellcheck" [nsv_get spellchecker lang_options] $selected_option {}]"
       }   
 
   } else {