Changeset 81 in text-formbuilder for trunk/lib/Text/FormBuilder

Timestamp:

04/13/05 11:34:05 (20 years ago)

Author:

peichman

Message:

added a !reset directive to name and include a reset button

File:

• trunk/lib/Text/FormBuilder/grammar (modified) (3 diffs)

trunk/lib/Text/FormBuilder/grammar

@@ -64 +64 @@
                 ()
             ),
+            reset => $formspec{reset},
         }
     }
@@ -111 +112 @@
 field_line: <skip:'[ \t]*'> ( field | comment | blank ) "\n"
 
-line: <skip:'[ \t]*'> ( title | author | pattern_def | section_head | heading | submit | group_field | field_group | unknown_directive | field | comment | blank ) /\n+/
+line: <skip:'[ \t]*'> ( title | author | pattern_def | section_head | heading | submit | reset | group_field | field_group | unknown_directive | field | comment | blank ) /\n+/
 
 title: '!title' /.*/
@@ -155 +156 @@
         #warn scalar(@{ $item[2] }) . ' submit button(s)';
         push @submit, @{ $item[2] };
+    }
+
+reset: '!reset' string
+    {
+        warn "[Text::FormBuilder] Reset button redefined at input text line $thisline\n" if defined $formspec{reset};
+        $formspec{reset} = $item{string};
     }