Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	22 Sep 2003 21:45:31 -0000	1.23
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	30 Sep 2003 19:27:49 -0000	1.24
@@ -209,6 +209,17 @@
 
   set output [textarea_internal $element(name) attributes $value $mode]
 
+  set spellcheck_properties [template::util::spellcheck::spellcheck_properties -element_ref element]
+  set spellcheck_p [lindex $spellcheck_properties 0]
+
+  if { $spellcheck_p } {
+      set yes_checked [lindex $spellcheck_properties 1]
+      set no_checked [lindex $spellcheck_properties 2]
+      append output "<br>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"
+  }   
+  
   return $output
 }
 
@@ -321,7 +332,18 @@
 
   upvar $element_reference element
 
-  return [input text element $tag_attributes]
+  set spellcheck_properties [template::util::spellcheck::spellcheck_properties -element_ref element]
+  set spellcheck_p [lindex $spellcheck_properties 0]
+
+  if { [string equal $element(mode) "edit"] && $spellcheck_p } {
+      set yes_checked [lindex $spellcheck_properties 1]
+      set no_checked [lindex $spellcheck_properties 2]
+      return "[input text element $tag_attributes] <br>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"
+  } else {
+      return [input text element $tag_attributes]
+  }
 }