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.15 -r1.16
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	2 Jan 2003 17:11:09 -0000	1.15
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	13 Jan 2003 15:23:50 -0000	1.16
@@ -393,12 +393,18 @@
       append output "$element(history)"
   }
 
-  if { [info exists element(header)] } {
-      append output "<p><b>$element(header)</b></p>"
-  }
+  if { [string equal $element(mode) "edit"] } {
+      if { [info exists element(header)] } {
+          append output "<p><b>$element(header)</b></p>"
+      }
+      
+      append output [textarea $element_reference $tag_attributes]
 
-  append output [textarea $element_reference $tag_attributes]
-
+      if { [info exists element(format_element)] && [info exists element(format_options)] } {
+          append output "<br>Format: [menu $element(format_element) $element(format_options) {} {}]"
+      }
+  }
+      
   return $output
 }