summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draksplash11
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();
}