Index: openacs-4/packages/acs-templating/www/doc/demo/sandwich.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/doc/demo/sandwich.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-templating/www/doc/demo/sandwich.tcl	27 Oct 2014 16:40:19 -0000	1.4
+++ openacs-4/packages/acs-templating/www/doc/demo/sandwich.tcl	7 Aug 2017 23:48:02 -0000	1.5
@@ -1,28 +1,35 @@
 ad_page_contract {
   @cvs-id $Id$
 } {
-  {grid ""}
+  {grid:boolean ""}
 } -properties {}
 
+set title "Sandwich Demo"
 
-form create sandwich
+form create sandwich -has_submit 1 \
+    -elements {
+        grid -label "grid" -optional -datatype text -widget hidden
+    
+        nickname -html { size 30 } -label "Sandwich Name" -datatype text
+    
+        protein -label "Protein" -datatype text -widget radio \
+            -options { \
+                           {Bacon bacon} \
+                           {Chicken chicken} \
+                           {Beef beef} \
+                       }
+    
+        vitamins -label "Vitamins" -datatype text -widget checkbox -optional \
+            -options { \
+                           {Lettuce lettuce} \
+                           {Tomato tomato} \
+                           {Pickle pickle} \
+                           {Sprouts sprouts} \
+                       }
+        
+        ok -widget submit -label Submit
+    }
 
-element create sandwich grid \
-  -label "grid" -optional \
-  -datatype text -widget hidden
-
-element create sandwich nickname -html { size 30 } \
-  -label "Sandwich Name" -datatype text
-
-element create sandwich protein \
- -label "Protein" -datatype text -widget radio \
- -options { {Bacon bacon} {Chicken chicken} {Beef beef} }
-
-element create sandwich vitamins \
- -label "Vitamins" -datatype text -widget checkbox -optional \
- -options { {Lettuce lettuce} {Tomato tomato} \
-            {Pickle pickle} {Sprouts sprouts} }
-
 # Set defaults
 if { [form is_request sandwich] } {
   element set_properties sandwich vitamins -value {tomato}
@@ -32,5 +39,11 @@
 
 # Choose standard or gridded output
 if {[element get_value sandwich grid] == "t"} {
-  ad_return_template sandwich-grid
+    ad_return_template sandwich-grid
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: