[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.327 by root, Mon Jul 17 01:41:53 2006 UTC vs.
Revision 1.329 by root, Sun Jul 23 02:44:06 2006 UTC

    $FOCUS->emit ("focus_out") if $FOCUS;
    $self->emit ("focus_in");
 }
-sub invoke_mouse_motion { 1 }
+sub invoke_mouse_motion { 0 }
-sub invoke_button_up    { 1 }
+sub invoke_button_up    { 0 }
-sub invoke_key_down     { 1 }
+sub invoke_key_down     { 0 }
-sub invoke_key_up       { 1 }
+sub invoke_key_up       { 0 }
 sub invoke_button_down {
    my ($self, $ev, $x, $y) = @_;
    $self->grab_focus;
-   1
+   0
 }
 sub connect {
    my ($self, $signal, $cb) = @_;
    push @{ $self->{signal_cb}{$signal} }, $cb;
 }
 sub emit {
    my ($self, $signal, @args) = @_;
+   #warn +(caller(1))[3] . "emit $signal on $self (parent $self->{parent})\n";#d#
    #d##TODO# stop propagating at first true, do not use sum
    (List::Util::sum map $_->($self, @args), @{$self->{signal_cb}{$signal} || []}) # before
       || ($self->can ("invoke_$signal") || sub { 1 })->($self, @args)             # closure
       || ($self->{parent} && $self->{parent}->emit ($signal, @args))              # parent
 sub add {
    my ($self, $widget) = @_;
    $self->{vp}->add ($self->{child} = $widget);
+}
+sub invoke_button_up {
+   my ($self, $ev) = @_;
+   warn "button up $ev->{button}\n";#d#
+   0
 }
 sub update_slider {
    my ($self) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines