--- deliantra/Deliantra-Client/DC/UI.pm	2006/07/22 13:43:05	1.328
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/07/23 02:44:06	1.329
@@ -85,8 +85,6 @@
    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);
 
@@ -466,8 +464,6 @@
 
    $self->grab_focus;
 
-   warn "button down $ev->{button} $x $y\n";#d#
-
    0
 }
 
@@ -480,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
@@ -1002,10 +1000,10 @@
    $self->{vp}->add ($self->{child} = $widget);
 }
 
-sub invoke_button_down {
+sub invoke_button_up {
    my ($self, $ev) = @_;
 
-   warn "button down $ev->{button}\n";#d#
+   warn "button up $ev->{button}\n";#d#
    
    0
 }