"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "lib/Gscan2pdf/Canvas.pm" between
gscan2pdf-2.13.1.tar.xz and gscan2pdf-2.13.2.tar.xz

About: gscan2pdf is a GUI to produce PDFs from scanned documents (using Perl).

Canvas.pm  (gscan2pdf-2.13.1.tar.xz)	:	Canvas.pm  (gscan2pdf-2.13.2.tar.xz)
skipping to change at line 33		skipping to change at line 33
Readonly my $EMPTY_LIST => -1;		Readonly my $EMPTY_LIST => -1;
my $device;		my $device;
my ( $_100_PERCENT, $MAX_CONFIDENCE_DEFAULT, $MIN_CONFIDENCE_DEFAULT );		my ( $_100_PERCENT, $MAX_CONFIDENCE_DEFAULT, $MIN_CONFIDENCE_DEFAULT );
BEGIN {		BEGIN {
Readonly $_100_PERCENT => 100;		Readonly $_100_PERCENT => 100;
Readonly $MAX_CONFIDENCE_DEFAULT => 95;		Readonly $MAX_CONFIDENCE_DEFAULT => 95;
Readonly $MIN_CONFIDENCE_DEFAULT => 50;		Readonly $MIN_CONFIDENCE_DEFAULT => 50;
}		}
our $VERSION = '2.13.1';		our $VERSION = '2.13.2';
use Glib::Object::Subclass GooCanvas2::Canvas::, signals => {		use Glib::Object::Subclass GooCanvas2::Canvas::, signals => {
'zoom-changed' => {		'zoom-changed' => {
param_types => ['Glib::Float'], # new zoom		param_types => ['Glib::Float'], # new zoom
},		},
'offset-changed' => {		'offset-changed' => {
param_types => [ 'Glib::Int', 'Glib::Int' ], # new offset		param_types => [ 'Glib::Int', 'Glib::Int' ], # new offset
},		},
},		},
properties => [		properties => [
skipping to change at line 264		skipping to change at line 264
sub string2hsv {		sub string2hsv {
my ($spec) = @_;		my ($spec) = @_;
my %rgb;		my %rgb;
( $rgb{r}, $rgb{g}, $rgb{b} ) = string2rgb($spec);		( $rgb{r}, $rgb{g}, $rgb{b} ) = string2rgb($spec);
return { rgb2hsv(%rgb) };		return { rgb2hsv(%rgb) };
}		}
sub string2rgb {		sub string2rgb {
my ($spec) = @_;		my ($spec) = @_;
my $color = Gtk3::Gdk::Color::parse($spec)->to_string;		my $color = Gtk3::Gdk::Color::parse($spec)->to_string;
my @color = unpack 'xA4A4A4', $color;		my @color = unpack 'xA4A4A4', $color;
for (@color) { $_ = hex }		for (@color) { $_ = hex }
return @color;		return @color;
}		}
sub set_text { # FIXME: why is this called twice when running OCR from tools?		sub set_text { # FIXME: why is this called twice when running OCR from tools?
my ( $self, $page, $layer, $edit_callback, $idle, $finished_callback ) = @_;		my ( $self, $page, $layer, $edit_callback, $idle, $finished_callback ) = @_;
if ( not defined $idle ) {		if ( not defined $idle ) {
$idle = TRUE;		$idle = TRUE;
}		}
if ( $self->{old_idles} ) {		if ( $self->{old_idles} ) {
End of changes. 2 change blocks.
3 lines changed or deleted		3 lines changed or added

---