--- deliantra/Deliantra-Client/DC/UI.pm	2006/07/17 01:41:53	1.327
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/07/22 13:43:05	1.328
@@ -85,6 +85,8 @@
    my ($ev) = @_;
    my ($x, $y) = ($ev->{x}, $ev->{y});
 
+   warn "button down $ev->{button}\n";#d#
+
    if (!$BUTTON_STATE) {
       my $widget = $ROOT->find_widget ($x, $y);
 
@@ -454,17 +456,19 @@
    $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
+   warn "button down $ev->{button} $x $y\n";#d#
+
+   0
 }
 
 sub connect {
@@ -998,6 +1002,14 @@
    $self->{vp}->add ($self->{child} = $widget);
 }
 
+sub invoke_button_down {
+   my ($self, $ev) = @_;
+
+   warn "button down $ev->{button}\n";#d#
+   
+   0
+}
+
 sub update_slider {
    my ($self) = @_;