cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Widget.pm

[spadkins]

cvsuser     02/05/09 15:17:19

  Modified:    P5EEx/Blue/P5EEx/Blue Widget.pm
  Log:
  tried to make defaults work (not sure if I succeeded)
  
  Revision  Changes    Path
  1.15      +5 -2      p5ee/P5EEx/Blue/P5EEx/Blue/Widget.pm
  
  Index: Widget.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget.pm,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -w -r1.14 -r1.15
  --- Widget.pm 19 Apr 2002 04:36:08 -0000      1.14
  +++ Widget.pm 9 May 2002 22:17:19 -0000       1.15
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Widget.pm,v 1.14 2002/04/19 04:36:08 spadkins Exp $
  +## $Id: Widget.pm,v 1.15 2002/05/09 22:17:19 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Widget;
  @@ -161,7 +161,7 @@
   
   sub init {
       my ($self, $args) = @_;
  -    my ($name, $absorbable_attribs, $container, $container, $attrib);
  +    my ($name, $absorbable_attribs, $container, $attrib);
   
       $name               = $self->{name};
       $absorbable_attribs = $self->absorbable_attribs();
  @@ -184,6 +184,9 @@
                   $self->{$attrib} = $container->{$attrib};
               }
           }
  +    }
  +    if (defined $self->{default}) {
  +        $self->set_default($self->{default});
       }
   }