[Rt-commit] r7457 - in rt/branches/3.7-EXPERIMENTAL: html/Widgets/Form

[ruz at bestpractical.com]

Author: ruz
Date: Wed Apr  4 17:52:41 2007
New Revision: 7457

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Widgets/Form/Integer

Log:
 r4890 at cubic-pc:  cubic | 2007-04-04 17:04:04 +0400
 * make Name mandatory arg
 * add InputOnly method


Modified: rt/branches/3.7-EXPERIMENTAL/html/Widgets/Form/Integer
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Widgets/Form/Integer	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Widgets/Form/Integer	Wed Apr  4 17:52:41 2007
@@ -1,6 +1,6 @@
 <div id="form-box-<% lc $Name %>">
-<span class="description"><% $Description %></span>:
-<input type="text" name="<% $Name %>" value="<% $CurrentValue || '' %>" />
+<span class="description"><% $Description %></span>:\
+<& SELF:InputOnly, %ARGS &>
 % if ( $Empty ) {
 <span class="comment"><% $EmptyLabel %></span>
 % }
@@ -8,7 +8,8 @@
 <%INIT>
 </%INIT>
 <%ARGS>
-$Name         => undef,
+$Name
+
 $Description  => undef,
 
 $CurrentValue => '',
@@ -18,11 +19,20 @@
 $EmptyLabel   => loc( 'Leaving this empty will default to the system default of [_1]', $EmptyValue ),
 </%ARGS>
 
+<%METHOD InputOnly>
+<input type="text" name="<% $Name %>" value="<% $CurrentValue || '' %>" />\
+<%ARGS>
+$Name
+$CurrentValue => '',
+</%ARGS>
+</%METHOD>
+
 <%METHOD Process>
 <%ARGS>
+$Name
+
 $Arguments    => {},
 
-$Name         => undef,
 $CurrentValue => '',
 $Empty        => 0,
 </%ARGS>