Index: openacs-4/www/blank-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/www/blank-master.tcl	4 Mar 2004 17:50:34 -0000	1.11
+++ openacs-4/www/blank-master.tcl	4 Mar 2004 18:32:49 -0000	1.12
@@ -29,8 +29,17 @@
 
 set onload {}
 
+# Handle htmlArea widget, which needs special javascript and css in the page header
+global acs_blank_master__htmlareas
+if { [info exists acs_blank_master__htmlareas] } {
+    foreach htmlarea_id $acs_blank_master__htmlareas {
+        append header_stuff "<script type=\"text/javascript\">var editor_var_${htmlarea_id} = null;</script>"
+        lappend onload "acs_initHtmlArea(editor_var_${htmlarea_id}, '${htmlarea_id}');"
+    }
+}
+
 if { ![template::util::is_nil focus] } {
-    # Handle elements wohse name contains a dot
+    # Handle elements where the name contains a dot
     if { [regexp {^([^.]*)\.(.*)$} $focus match form_name element_name] } {
         lappend onload "acs_Focus('${form_name}', '${element_name}');"
     }