restrict mouse motion to image

1 files changed, 9 insertions, 2 deletions

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index 558f6bfd1..ca2f6f790 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -295,10 +295,17 @@ sub image_button_pressed {
     update_theme_from_rect();
 }
 
+sub restrict_to_interval {
+    my ($x, $min, $max) = @_;
+    max($min, min($max, $x));
+}
+
 sub image_motion_notify {
     my (undef, $event) = @_;
     member('button1-mask', @{$event->state}) or return;
-    my $point = { X => $event->x, Y => $event->y };
-    $current_point and %$current_point = %$point;
+    %$current_point = (
+        X => restrict_to_interval($event->x, 0, $theme{res_w}),
+        Y => restrict_to_interval($event->y, 0, $theme{res_h}),
+    ) if $current_point;
     update_theme_from_rect();
 }