is a GUI to produce PDFs from scanned documents (using Perl).
| 135_save_tiff_as_ps_with_space.t (gscan2pdf-2.13.1.tar.xz) | : | 135_save_tiff_as_ps_with_space.t (gscan2pdf-2.13.2.tar.xz) |
|---|
| | |
| skipping to change at line 32 | | skipping to change at line 32 |
|---|
| my $slist = Gscan2pdf::Document->new; | | my $slist = Gscan2pdf::Document->new; |
| | |
| # dir for temporary files | | # dir for temporary files |
| my $dir = File::Temp->newdir; | | my $dir = File::Temp->newdir; |
| $slist->set_dir($dir); | | $slist->set_dir($dir); |
| | |
| $slist->import_files( | | $slist->import_files( |
| paths => [ 'test.pnm', 'test.pnm' ], | | paths => [ 'test.pnm', 'test.pnm' ], |
| finished_callback => sub { | | finished_callback => sub { |
| $slist->save_tiff( | | $slist->save_tiff( |
|
| path => 'test.tif', | | path => 'test.tif', |
| list_of_pages => | | list_of_pages => |
| [ $slist->{data}[0][2]{uuid}, $slist->{data}[1][2]{uuid} ], | | [ $slist->{data}[0][2]{uuid}, $slist->{data}[1][2]{uuid} ], |
| options => { | | options => { |
| ps => 'te st.ps', | | ps => 'te st.ps', |
| post_save_hook => 'ps2pdf %i test.pdf', | | post_save_hook => 'ps2pdf %i test.pdf', |
| post_save_hook_options => 'fg', | | post_save_hook_options => 'fg', |
| }, | | }, |
| finished_callback => sub { Gtk3->main_quit } | | finished_callback => sub { Gtk3->main_quit } |
| ); | | ); |
| } | | } |
| | | |
| End of changes. 1 change blocks. |
|---|
| 1 lines changed or deleted | | 1 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 