$imp_entry->signal_connect( 'scroll-event' => sub {
        my  $eventscroll     = Gtk2->get_current_event ;
        my  $scrolldirection = $eventscroll->direction() ;
        if( $scrolldirection eq 'up' ) {
            $imp_entry->set_text( $imp_entry->get_text() - 1 ) ;
        }
        elsif( $scrolldirection eq 'down' ) {
            $imp_entry->set_text( $imp_entry->get_text() + 1 ) ;
        }
        return FALSE ;
} ) ;