Diff of /perl/embperl/trunk/Embperl/Form/Control.pm

Parent Directory | Revision Log | Patch

--- perl/embperl/trunk/Embperl/Form/Control.pm	2006/04/22 13:11:04	396121
+++ perl/embperl/trunk/Embperl/Form/Control.pm	2006/04/22 13:17:34	396122
@@ -32,17 +32,33 @@ sub new
     {
     my ($class, $args) = @_ ;
     
-    bless $args, $class ;
+    my $self = { %$args } ;
+    bless $self, $class ;
     
-    return $args ;
+    $self -> init ;
+    
+    return $self ;
+    }
+
+# ---------------------------------------------------------------------------
+#
+#   init - init the new control
+#
+
+sub init
+
+    {
+    my ($self) = @_ ;
+    
+    return $self ;
     }
     
+        
 # ---------------------------------------------------------------------------
 #
 #   noframe - do not draw frame border if this is the only control
 #
 
-
 sub noframe
 
     {
@@ -54,7 +70,6 @@ sub noframe
 #   is_disabled - do not display this control at all
 #
 
-
 sub is_disabled
 
     {
@@ -68,7 +83,6 @@ sub is_disabled
 #   is_readonly - could value of this control be changed ?
 #
 
-
 sub is_readonly
 
     {
@@ -77,8 +91,6 @@ sub is_readonly
     return $self -> {readonly} ;
     }
 
-
-
 # ---------------------------------------------------------------------------
 #
 #   show - output the control
@@ -118,7 +130,6 @@ sub get_active_id
     return ;
     }
 
-
 # ---------------------------------------------------------------------------
 #
 #   form - return form object
@@ -131,7 +142,6 @@ sub form
     return $Embperl::Form::forms{$self -> {formid}} ;
     }
 
-
 # ---------------------------------------------------------------------------
 #
 #   get_validate_rules - get rules for validation
@@ -275,6 +285,10 @@ that could be overwritten to customize t
 
 Create a new control
 
+=head2 init
+
+Init the new control
+
 =head2 noframe
 
 Do not draw frame border if this is the only control
@@ -353,7 +367,7 @@ If set, will be used as additional CSS c
 
 =head2 readonly
 
-If set, displays a readonly version of t control.
+If set, displays a readonly version of the control.
 
 =head2 disable
 
@@ -377,6 +391,10 @@ With this parameter you can also specify
 the control in percent. This parameter take precendence over
 C<width>
 
+=head2 default
+
+Default value of the control
+
 =head1 AUTHOR
 
 G. Richter (richter@dev.ecos.de)