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

[spadkins]

cvsuser     02/09/24 13:49:52

  Modified:    P5EEx/Blue/P5EEx/Blue Widget.pm
  Log:
  widget names can only by standard symbol names
  
  Revision  Changes    Path
  1.18      +5 -5      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.17
  retrieving revision 1.18
  diff -u -w -r1.17 -r1.18
  --- Widget.pm 7 Jun 2002 22:00:35 -0000       1.17
  +++ Widget.pm 24 Sep 2002 20:49:52 -0000      1.18
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: Widget.pm,v 1.17 2002/06/07 22:00:35 spadkins Exp $
  +## $Id: Widget.pm,v 1.18 2002/09/24 20:49:52 spadkins Exp $
   #############################################################################
   
   package P5EEx::Blue::Widget;
  @@ -166,7 +166,7 @@
       $name               = $self->{name};
       $absorbable_attribs = $self->absorbable_attribs();
       $container          = "session";
  -    if ($name =~ /^(.+)\.[^\.]+$/) {
  +    if ($name =~ /^(.+)\.[a-zA-Z][a-zA-Z0-9_]*$/) {
           $container = $1;
       }
   
  @@ -227,7 +227,7 @@
       }
       else {
           $container = "session";
  -        if ($name =~ /^(.+)\.[^\.]+$/) {
  +        if ($name =~ /^(.+)\.[a-zA-Z][a-zA-Z0-9_]*$/) {
               $container = $1;
           }
           $context = $self->{context};
  @@ -261,7 +261,7 @@
   sub set_value {
       my ($self, $value) = @_;
       my $name = $self->{name};
  -    if ($name =~ /^(.+)\.([^.]+)$/) {
  +    if ($name =~ /^(.+)\.([a-zA-Z][a-zA-Z0-9_]*)$/) {
           $self->{context}->wset($1, $2, $value);
       }
       else {
  @@ -288,7 +288,7 @@
   sub get_value {
       my ($self, $default, $setdefault) = @_;
       my $name = $self->{name};
  -    if ($name =~ /^(.+)\.([^.]+)$/) {
  +    if ($name =~ /^(.+)\.([a-zA-Z][a-zA-Z0-9_]*)$/) {
           return $self->{context}->wget($1, $2, $default, $setdefault);
       }
       else {