cvsuser 02/04/05 14:03:46
Modified: P5EEx/Blue/P5EEx/Blue/Context CGI.pm
Log:
refined some debug statements for calls to handle_events()
Revision Changes Path
1.10 +8 -6 p5ee/P5EEx/Blue/P5EEx/Blue/Context/CGI.pm
Index: CGI.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Context/CGI.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -w -r1.9 -r1.10
--- CGI.pm 12 Mar 2002 17:01:27 -0000 1.9
+++ CGI.pm 5 Apr 2002 22:03:45 -0000 1.10
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: CGI.pm,v 1.9 2002/03/12 17:01:27 spadkins Exp $
+## $Id: CGI.pm,v 1.10 2002/04/05 22:03:45 spadkins Exp $
#############################################################################
package P5EEx::Blue::Context::CGI;
@@ -458,10 +458,10 @@
if ($key =~ /^([^()]+)\.([a-zA-Z0-9_-]+)$/) {
$name = $1;
$event = $2;
- #$self->add_message("Event (input): name=[$name]
event=[$event] args=[@args]\n");
- $self->dbgprint(ref($self), "->process_request(button):
$name->$event(@args)")
- if ($P5EEx::Blue::DEBUG && $self->dbg(1));
+
if ($self->widget_exists($name)) {
+ $self->dbgprint($self->widget($name),
"->handle_event($name, $event, @args) [Context/button]")
+ if ($P5EEx::Blue::DEBUG && $self->dbg(1));
$self->widget($name)->handle_event($name, $event,
@args);
}
else {
@@ -469,6 +469,8 @@
$parent_name = $name;
while ($parent_name =~ s/\.[^\.]+$//) {
if ($self->widget_exists($parent_name)) {
+ $self->dbgprint($self->widget($parent_name),
"->handle_event($name, $event, @args) [Context/button]")
+ if ($P5EEx::Blue::DEBUG && $self->dbg(1));
$self->widget($parent_name)->handle_event($name, $event, @args);
last;
}
@@ -494,9 +496,9 @@
}
@args = split(/ *, */,$args) if ($args ne "");
- #$self->add_message("Event (hidden): name=[$name]
event=[$event] args=[@args]\n");
- $self->dbgprint(ref($self), "->process_request(hidden):
$name->$event(@args)")
+ $self->dbgprint(ref($self), "->process_request[hidden]:
$name->$event(@args)")
if ($P5EEx::Blue::DEBUG && $self->dbg(1));
+
$self->widget($name)->handle_event($name, $event,
@args);
}
}
