--- deliantra/Deliantra-Client/DC/UI.pm	2006/07/17 01:41:53	1.327
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/07/23 02:44:06	1.329
@@ -454,17 +454,17 @@
    $self->emit ("focus_in");
 }
 
-sub invoke_mouse_motion { 1 }
-sub invoke_button_up    { 1 }
-sub invoke_key_down     { 1 }
-sub invoke_key_up       { 1 }
+sub invoke_mouse_motion { 0 }
+sub invoke_button_up    { 0 }
+sub invoke_key_down     { 0 }
+sub invoke_key_up       { 0 }
 
 sub invoke_button_down {
    my ($self, $ev, $x, $y) = @_;
 
    $self->grab_focus;
 
-   1
+   0
 }
 
 sub connect {
@@ -476,6 +476,8 @@
 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
@@ -998,6 +1000,14 @@
    $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) = @_;