--- deliantra/Deliantra-Client/DC/UI.pm	2006/07/24 08:23:28	1.338
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/07/30 12:15:19	1.339
@@ -98,7 +98,9 @@
    my ($ev) = @_;
    my ($x, $y) = ($ev->{x}, $ev->{y});
 
-   unless ($BUTTON_STATE) {
+   $BUTTON_STATE |= 1 << ($ev->{button} - 1);
+
+   unless ($GRAB) {
       my $widget = $ROOT->find_widget ($x, $y);
 
       $GRAB = $widget;
@@ -107,8 +109,6 @@
       $TOOLTIP_WATCHER->cb->();
    }
 
-   $BUTTON_STATE |= 1 << ($ev->{button} - 1);
-
    if ($GRAB) {
       if ($ev->{button} == 4 || $ev->{button} == 5) {
          # mousewheel
@@ -1298,6 +1298,14 @@
    ! ! $self->{motion}
 }
 
+sub invoke_visibility_change {
+   my ($self, $visible) = @_;
+
+   delete $self->{motion} unless $visible;
+
+   0
+}
+
 sub _draw {
    my ($self) = @_;