my $imp_entry     = Gtk2::Entry->new_with_max_length( 6 ) ;
    ...
    $imp_entry->signal_connect( 'scroll-event' => sub {
            # if($imp_entry->scroll-event->direction() eq 'up'){} !?!?
            $imp_entry->set_text( $imp_entry->get_text() + 0.05 ) ;
        } ) ;


##</code><code>##

METHODS
    ...
    scrolldirection = $eventscroll->direction ($newvalue=0)