Stop making selection floating-point

MANIFEST

@@ -9,6 +9,7 @@ lib/Gtk3/ImageView/Tool/SelectorDragger.pm
 t/1_basics.t
 t/2_transparent.t
 t/3_zoom.t
+t/4_select.t
 t/90_MANIFEST.t
 t/91_critic.t
 t/bigpic.svg

Makefile.PL

@@ -20,6 +20,7 @@ WriteMakefile(
         Test::Differences => 0,
         Image::Magick     => 0,
         Try::Tiny         => 0,
+        Test::MockObject  => 0,
     },
     clean => { FILES => '$(SOURCE_TIDY)' },
     (

lib/Gtk3/ImageView/Tool/Selector.pm

@@ -3,6 +3,7 @@ package Gtk3::ImageView::Tool::Selector;
 use warnings;
 use strict;
 use base 'Gtk3::ImageView::Tool';
+use POSIX qw(round);
 use Glib qw(TRUE FALSE);    # To get TRUE and FALSE
 use List::Util qw(min);
 use Readonly;
@@ -108,7 +109,13 @@ sub _update_selection {
     ( $x, $y ) =
       $self->view->to_image_coords( min( $x, $x2 ), min( $y, $y2 ) );
     $self->view->set_selection(
-        { x => $x, y => $y, width => $w, height => $h } );
+        {
+            x      => round($x),
+            y      => round($y),
+            width  => round($w),
+            height => round($h)
+        }
+    );
     return;
 }
 

t/4_select.t

@@ -0,0 +1,37 @@
+use warnings;
+use strict;
+use Try::Tiny;
+use File::Temp;
+use Test::More tests => 2;
+use Test::MockObject;
+use Carp::Always;
+
+BEGIN {
+    use Glib qw/TRUE FALSE/;
+    use Gtk3 -init;
+    use_ok('Gtk3::ImageView');
+}
+
+#########################
+
+my $window = Gtk3::Window->new('toplevel');
+$window->set_size_request( 300, 200 );
+my $view = Gtk3::ImageView->new;
+$window->add($view);
+$view->set_tool('selector');
+$view->set_pixbuf( Gtk3::Gdk::Pixbuf->new_from_file('t/transp-green.svg'),
+    TRUE );
+$window->show_all;
+$window->hide;
+
+$view->set_zoom(8);
+my $event = Test::MockObject->new;
+$event->set_always( 'x', 7 );
+$event->set_always( 'y', 5 );
+$view->get_tool->button_pressed($event);
+$event->set_always( 'x', 93 );
+$event->set_always( 'y', 67 );
+$view->get_tool->button_released($event);
+is_deeply( $view->get_selection, { x => 32, y => 38, width => 11, height => 8 },
+    'get_selection' );
+