--- deliantra/Deliantra-Client/DC/UI.pm	2006/04/30 13:10:46	1.183
+++ deliantra/Deliantra-Client/DC/UI.pm	2006/05/03 19:56:05	1.184
@@ -741,6 +741,25 @@
    $self->update;
 }
 
+# hmm, this does not work for topleft of $self... but we should not aks for that
+sub _topleft {
+   my ($self, $x, $y) = @_;
+
+   $self->SUPER::_topleft ($x - $self->{view_x}, $y - $self->{view_y})
+}
+
+sub find_widget {
+   my ($self, $x, $y) = @_;
+
+   if (   $x >= $self->{x} && $x < $self->{x} + $self->{w}
+       && $y >= $self->{y} && $y < $self->{y} + $self->{h}
+   ) {
+       $self->child->find_widget ($x + $self->{view_x}, $y + $self->{view_y})
+   } else {
+      $self->CFClient::UI::Base::find_widget ($x, $y)
+   }
+}
+
 sub _render {
    my ($self) = @_;