EntryCompletion.pm (gscan2pdf-2.13.1.tar.xz) | : | EntryCompletion.pm (gscan2pdf-2.13.2.tar.xz) | ||
---|---|---|---|---|
skipping to change at line 12 | skipping to change at line 12 | |||
use strict; | use strict; | |||
use warnings; | use warnings; | |||
use Gtk3; | use Gtk3; | |||
use Glib qw(TRUE FALSE); # To get TRUE and FALSE | use Glib qw(TRUE FALSE); # To get TRUE and FALSE | |||
BEGIN { | BEGIN { | |||
use Exporter (); | use Exporter (); | |||
our ( $VERSION, @EXPORT_OK, %EXPORT_TAGS ); | our ( $VERSION, @EXPORT_OK, %EXPORT_TAGS ); | |||
$VERSION = '2.13.1'; | $VERSION = '2.13.2'; | |||
use base qw(Exporter Gtk3::Entry); | use base qw(Exporter Gtk3::Entry); | |||
%EXPORT_TAGS = (); # eg: TAG => [ qw!name1 name2! ], | %EXPORT_TAGS = (); # eg: TAG => [ qw!name1 name2! ], | |||
# your exported package globals go here, | # your exported package globals go here, | |||
# as well as any optionally exported functions | # as well as any optionally exported functions | |||
@EXPORT_OK = qw(); | @EXPORT_OK = qw(); | |||
} | } | |||
sub new { | sub new { | |||
my ( $class, $text, $suggestions ) = @_; | my ( $class, $text, $suggestions ) = @_; | |||
my $self = Gtk3::Entry->new; | my $self = Gtk3::Entry->new; | |||
my $completion = Gtk3::EntryCompletion->new; | my $completion = Gtk3::EntryCompletion->new; | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |