git.shiar.nl
/
unifont.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
unibdf2hex: count lines not glyphs
[unifont.git]
/
src
/
unifont-viewer
diff --git
a/src/unifont-viewer
b/src/unifont-viewer
index 7556f4b9649a579a4a59d07863b3b7ef838f7e29..bc82d2e7db2cf3c86cd2ec0034bc7682384d5589 100755
(executable)
--- a/
src/unifont-viewer
+++ b/
src/unifont-viewer
@@
-12,7
+12,7
@@
sub LoadHexFile {
my ($input) = @_;
my %hexlist = ();
my ($input) = @_;
my %hexlist = ();
- open (HEXFILE, "$input") or die ("Cannot open
file
\n");
+ open (HEXFILE, "$input") or die ("Cannot open
hex file for input
\n");
while (<HEXFILE>) {
chomp;
while (<HEXFILE>) {
chomp;
@@
-35,7
+35,7
@@
sub Hex2PNG {
my %hexlist = %$hexlist_ref;
if ($pagenum > 0x10FF) {
my %hexlist = %$hexlist_ref;
if ($pagenum > 0x10FF) {
- die ("Invalid page\n");
+ die ("Invalid page
.
\n");
}
my $charxoffset = 4;
}
my $charxoffset = 4;
@@
-66,7
+66,7
@@
sub Hex2PNG {
$ymax = 3;
$charmaxwidth = 8;
} else {
$ymax = 3;
$charmaxwidth = 8;
} else {
- die ("Invalid height\n");
+ die ("Invalid height
.
\n");
}
# Create box and set as tile pattern
}
# Create box and set as tile pattern
@@
-217,12
+217,12
@@
sub load_gd {
my ($self, $gd) = @_;
my $png = $gd->png;
my ($self, $gd) = @_;
my $png = $gd->png;
- open my $fh, '<', \$png;
+ open my $fh, '<', \$png
or die ("Cannot create PNG file for viewing.\n")
;
my $handler = Wx::PNGHandler->new ();
my $image = Wx::Image->new ();
my $bitmap;
$handler->LoadFile ($image, $fh);
my $handler = Wx::PNGHandler->new ();
my $image = Wx::Image->new ();
my $bitmap;
$handler->LoadFile ($image, $fh);
- close $fh;
+ close $fh
or die ("Cannot properly close output file.\n")
;
$bitmap = Wx::Bitmap->new ($image);
if ($bitmap->Ok ()) {
$bitmap = Wx::Bitmap->new ($image);
if ($bitmap->Ok ()) {
@@
-341,7
+341,7
@@
sub OpenFile {
$self->{filename} = $dlg->GetPath ();
$self->SetTitle ("Unifont Viewer - " . $dlg->GetFilename ());
$self->{filename} = $dlg->GetPath ();
$self->SetTitle ("Unifont Viewer - " . $dlg->GetFilename ());
- open HEXFILE, "<$self->{filename}" || die "Cannot open $self->{filename}\n";
+ open HEXFILE, "<$self->{filename}" || die "Cannot open $self->{filename}
.
\n";
while (<HEXFILE>) {
chomp;
while (<HEXFILE>) {
chomp;
@@
-395,10
+395,10
@@
sub SaveFile {
$self->{imagepanel}->load_gd ($im);
$self->{imagepanel}->load_gd ($im);
- open (PICTURE, ">$filename") or die ("Cannot save image\n");
+ open (PICTURE, ">$filename") or die ("Cannot save image
.
\n");
binmode PICTURE;
binmode PICTURE;
- print PICTURE $im->png;
- close PICTURE;
+ print PICTURE $im->png
or die
;
+ close PICTURE
or die ("Cannot properly close output file.\n")
;
}
}
}
}
}
}