X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FReaction%2FUI%2FViewPort.pm;h=989c7e0f9d6b3b27106b5b47906a722b27f5f538;hb=52f292b24eca44347e5f1bfcffe4cedf5465766b;hp=41fb9357d9293f9bb90ae2357e667e1b81a70a04;hpb=a86de581e80ee37e60860bde8ddaa975ff7dd6c9;p=catagits%2FReaction.git

diff --git a/lib/Reaction/UI/ViewPort.pm b/lib/Reaction/UI/ViewPort.pm
index 41fb935..989c7e0 100644
--- a/lib/Reaction/UI/ViewPort.pm
+++ b/lib/Reaction/UI/ViewPort.pm
@@ -50,22 +50,22 @@ sub child_event_sinks {
   return values %{$self->_tangent_stacks};
 };
 sub apply_events {
-  my ($self, $ctx, $events) = @_;
+  my ($self, $events) = @_;
   return unless keys %$events;
-  $self->apply_child_events($ctx, $events);
-  $self->apply_our_events($ctx, $events);
+  $self->apply_child_events($events);
+  $self->apply_our_events($events);
 };
 sub apply_child_events {
-  my ($self, $ctx, $events) = @_;
+  my ($self, $events) = @_;
   return unless keys %$events;
   foreach my $child ($self->child_event_sinks) {
     confess blessed($child) ."($child) is not a valid object"
       unless blessed($child) && $child->can('apply_events');
-    $child->apply_events($ctx, $events);
+    $child->apply_events($events);
   }
 };
 sub apply_our_events {
-  my ($self, $ctx, $events) = @_;
+  my ($self, $events) = @_;
   my @keys = keys %$events;
   return unless @keys;
   my $loc = $self->location;
@@ -92,10 +92,9 @@ sub handle_events {
     if (exists $events->{$event}) {
       if (DEBUG_EVENTS) {
         my $name = join(' at ', $self, $self->location);
-        $self->ctx->log->debug(
+        print STDERR
           "Applying Event: $event on $name with value: "
-          .(defined $events->{$event} ? $events->{$event} : '<undef>')
-        );
+          .(defined $events->{$event} ? $events->{$event} : '<undef>');
       }
       $self->$event($events->{$event});
     }