cvsuser 02/02/28 21:12:58
Modified: P5EEx/Blue/P5EEx/Blue Widget.pm
Log:
add container inference based on dotted name notation and fixed get_value()
Revision Changes Path
1.7 +9 -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.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- Widget.pm 5 Feb 2002 22:16:05 -0000 1.6
+++ Widget.pm 1 Mar 2002 05:12:58 -0000 1.7
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: Widget.pm,v 1.6 2002/02/05 22:16:05 spadkins Exp $
+## $Id: Widget.pm,v 1.7 2002/03/01 05:12:58 spadkins Exp $
#############################################################################
package P5EEx::Blue::Widget;
@@ -132,10 +132,14 @@
sub init {
my ($self, $args) = @_;
- my ($absorbable_attribs, $container_name, $container, $attrib);
+ my ($name, $absorbable_attribs, $container_name, $container, $attrib);
+ $name = $self->{name};
$absorbable_attribs = $self->absorbable_attribs();
- $container_name = $self->{container};
+ if (!$container_name && $name =~ /^(.*)\.[^\.]+$/) {
+ $container_name = $1;
+ $self->{container} = $container_name;
+ }
# absorb attributes of the container config if ...
# TODO: sort out whether we need to absorb attributes more often
@@ -280,12 +284,12 @@
my ($self, $format) = @_;
$format = $self->get("format") if (!defined $format);
if (! defined $format) {
- return $self->{context}->wget_value($self->{name}, "");
+ return $self->get_value("");
}
else {
my ($value, $type);
$type = $self->get("validate");
- $value = $self->get_value($self->{name}, "");
+ $value = $self->get_value("");
if ($type) {
$value = P5EEx::Blue::Widget->format($value, $type, $format);
}
