API tools faq
paste
lumberjack55

Untitled

lumberjack55
Mar 31st, 2013
235
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 253.94 KB | None | 0 0
raw download clone embed print report
  1. #!/usr/bin/perl
  2.  
  3. eval 'exec /usr/bin/perl  -S $0 ${1+"$@"}'
  4.     if 0; # not running under some shell
  5.  
  6. # gscan2pdf --- to aid the scan to PDF or DjVu process
  7. # Copyright (C) 2006--2013 Jeffrey Ratcliffe <[email protected]>
  8.  
  9. # This program is free software: you can redistribute it and/or modify
  10. # it under the terms of the version 3 GNU General Public License as
  11. # published by the Free Software Foundation.
  12.  
  13. # This program is distributed in the hope that it will be useful,
  14. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. # GNU General Public License for more details.
  17.  
  18. # You should have received a copy of the GNU General Public License
  19. # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  20.  
  21. # Release procedure:
  22. #    Use
  23. #      make tidy
  24. #      TEST_AUTHOR=1 make test
  25. #    immediately before release so as not to affect any patches
  26. #    in between, and then consistently before each commit afterwards.
  27. # 0. Test scan in lineart, greyscale and colour.
  28. # 1. New screendump required? Print screen creates screenshot.png in Desktop.
  29. #    Download new translations (https://translations.launchpad.net/gscan2pdf)
  30. #    Upload .pot
  31. #    Update translators in credits (https://launchpad.net/gscan2pdf/+topcontributors)
  32. #    Check a locale with LC_ALL=de_DE LC_MESSAGES=de_DE LC_CTYPE=de_DE LANG=de_DE LANGUAGE=de_DE bin/gscan2pdf --log=log --locale=<wherever the locale directory is>
  33. #    Check $version
  34. #    Make appropriate updates to debian/changelog
  35. # 2. perl Makefile.PL
  36. #    make rpmdist debdist
  37. #    test dist sudo dpkg -i gscan2pdf_x.x.x_all.deb
  38. # 3. git status
  39. #    git tag vx.x.x
  40. #    git push --tags ssh://[email protected]/p/gscan2pdf/code master
  41. # 4. make remote-html
  42. # 5. create version directory in https://sourceforge.net/projects/gscan2pdf/files/gscan2pdf
  43. #    make file_releases
  44. # 6. Freshmeat freshmeat.net/projects/gscan2pdf/releases/new (requires summary of changes)
  45. # 7. Launchpad (https://launchpad.net/gscan2pdf/trunk/+addrelease)
  46. # 8. make ppa
  47. #    name the release -0~ppa1<release>, where release is precise, hardy, etc
  48. #    debuild -S -sa, dput gscan2pdf-ppa .changes
  49. #    https://launchpad.net/~jeffreyratcliffe/+archive
  50. #    [email protected], [email protected], [email protected], [email protected]
  51. #    ftp-master (check contents with dpkg-deb --contents)
  52.  
  53. use warnings;
  54. use strict;
  55. use feature "switch";
  56.  
  57. use Gscan2pdf::Document;
  58. use Gscan2pdf::Frontend::Sane;
  59. use Gscan2pdf::Frontend::CLI;
  60. use Gscan2pdf::NetPBM;
  61. use Gscan2pdf::Scanner::Options;
  62. use Gscan2pdf::Dialog::Scan::Sane;
  63. use Gscan2pdf::Tesseract;
  64. use Gscan2pdf::Ocropus;
  65. use Gscan2pdf::Cuneiform;
  66. use Gscan2pdf::Unpaper;
  67. use Gscan2pdf::Dialog::Renumber;
  68. use Sane 0.05;    # To get SANE_* enums
  69. use Gtk2::ImageView;
  70. use Goo::Canvas;
  71. use Gtk2::Ex::Simple::List;
  72. use Gtk2 -init;    # Could just call init separately
  73. use Gtk2::Gdk::Keysyms;
  74. use Cwd;                    # To obtain current working directory
  75. use File::Basename;         # Split filename into dir, file, ext
  76. use File::Copy;
  77. use File::Temp;             # To create temporary files
  78. use Glib qw(TRUE FALSE);    # To get TRUE and FALSE
  79. use Config::General 2.40;
  80. use PDF::API2;
  81. use Getopt::Long;
  82. use Set::IntSpan 1.10;      # For size method for page numbering issues
  83. use Proc::Killfam;
  84. use Fcntl qw(:flock)
  85.   ;    # import LOCK_* constants to prevent us clobbering running instances
  86. use Log::Log4perl;
  87. use Try::Tiny;
  88. use Data::Dumper;
  89.  
  90. # To sort out LC_NUMERIC and $SIG{CHLD}
  91. use POSIX qw(locale_h :signal_h :errno_h :sys_wait_h);
  92. use Locale::gettext 1.05;    # For translations
  93.  
  94. Glib::set_application_name('gscan2pdf');
  95. my $prog_name = Glib::get_application_name;
  96. my $version   = '1.1.3';
  97.  
  98. # Window parameters
  99. my $border_width = 6;
  100.  
  101. # Image border to ensure that a scaled to fit image gets no scrollbars
  102. my $border = 1;
  103.  
  104. # Set up domain for gettext (internationalisation)
  105. # Expects /usr/share/locale/LANGUAGE/LC_MESSAGES/$prog_name.mo
  106. # or whatever is set by $d->dir([NEWDIR]);
  107. my $d      = Locale::gettext->domain($prog_name);
  108. my $d_sane = Locale::gettext->domain('sane-backends');
  109.  
  110. my $debug = FALSE;
  111. my ( $test, $help, $log, $log_level, @device,
  112.  $locale, @device_list, $test_image );
  113. my @args = (
  114.  'device=s'     => \@device,
  115.  'test=s%'      => \$test,
  116.  'test-image=s' => \$test_image,
  117.  'locale=s'     => \$locale,
  118.  'help'         => \$help,
  119.  'log=s'        => \$log,
  120.  'debug'        => sub { $log_level = 'DEBUG'; $debug = TRUE },
  121.  'info'  => sub { $log_level = 'INFO' },
  122.  'warn'  => sub { $log_level = 'WARN' },
  123.  'error' => sub { $log_level = 'ERROR' },
  124.  'fatal' => sub { $log_level = 'FATAL' },
  125.  'version' => sub { warn "$prog_name $version\n"; exit 0 },
  126. );
  127. exit 1 unless ( GetOptions(@args) );
  128. $Sane::DEBUG = $debug;
  129.  
  130. if ( not defined($log_level) ) {
  131.  if ( defined $log ) {
  132.   $log_level = 'DEBUG';
  133.   $debug     = TRUE;
  134.  }
  135.  else {
  136.   $log_level = 'ERROR';
  137.  }
  138. }
  139. my $log_conf = <<'EOS';
  140.  log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
  141.  log4perl.appender.Screen.layout = Log::Log4perl::Layout::SimpleLayout
  142. EOS
  143.  
  144. if ( defined $log ) {
  145.  $log_conf .= <<"EOS";
  146.  log4perl.appender.Logfile          = Log::Log4perl::Appender::File
  147.  log4perl.appender.Logfile.filename = $log
  148.  log4perl.appender.Logfile.mode     = write
  149.  log4perl.appender.Logfile.layout   = Log::Log4perl::Layout::SimpleLayout
  150.  log4perl.category                  = $log_level, Logfile, Screen
  151. EOS
  152. }
  153. else {
  154.  $log_conf .= <<"EOS";
  155.  log4perl.category                  = $log_level, Screen
  156. EOS
  157. }
  158.  
  159. if ( defined $help ) {
  160.  system("perldoc $0") == 0 or die $d->get('Error displaying help'), "\n";
  161. }
  162.  
  163. Log::Log4perl::init( \$log_conf );
  164. my $logger = Log::Log4perl::get_logger();
  165.  
  166. $logger->info("Starting $prog_name $version");
  167. $logger->info("Log level $log_level");
  168.  
  169. if ( defined $locale ) {
  170.  if ( $locale =~ /^\//x ) {
  171.   $d->dir($locale);
  172.  }
  173.  else {
  174.   $d->dir( getcwd . "/$locale" );
  175.  }
  176. }
  177.  
  178. for (@device) {
  179.  push @device_list, { name => $_, label => $_ };
  180. }
  181.  
  182. # Set LC_NUMERIC to C to prevent decimal commas (or anything else) confusing
  183. # scanimage
  184. setlocale( LC_NUMERIC, "C" );
  185. $logger->info( "Using ", setlocale(LC_CTYPE), " locale" );
  186. $logger->info( "Startup LC_NUMERIC ", setlocale(LC_NUMERIC) );
  187.  
  188. # Read config file
  189. my $rc = "$ENV{'HOME'}/.$prog_name";
  190. $logger->info("Reading config from $ENV{'HOME'}/.$prog_name");
  191. system("touch $rc") unless ( -r $rc );
  192. my $conf;
  193. our %SETTING;
  194. try {
  195.  $conf = Config::General->new(
  196.   -ConfigFile  => $rc,
  197.   -SplitPolicy => 'equalsign',
  198.   -UTF8        => 1,
  199.  );
  200. }
  201. catch {
  202.  $logger->error(
  203.   $d->get(
  204.    "Error: unable to load settings.\nBacking up settings\nReverting to defaults"
  205.   )
  206.  );
  207.  move( $rc, "$rc.old" );
  208. }
  209. finally {
  210.  %SETTING = $conf->getall unless (@_);
  211. };
  212.  
  213. my %default_settings = (
  214.  'window_width'      => 800,
  215.  'window_height'     => 600,
  216.  'window_maximize'   => TRUE,
  217.  'thumb panel'       => 100,
  218.  'Page range'        => 'all',
  219.  'layout'            => 'single',
  220.  'downsample'        => FALSE,
  221.  'downsample dpi'    => 150,
  222.  'threshold tool'    => 80,
  223.  'unsharp radius'    => 0,
  224.  'unsharp sigma'     => 1,
  225.  'unsharp amount'    => 1,
  226.  'unsharp threshold' => 0.05,
  227.  'cache options'     => TRUE,
  228.  'restore window'    => TRUE,
  229.  'startup warning'   => FALSE,
  230.  'date offset'       => 0,
  231.  'pdf compression'   => 'auto',
  232.  'quality'           => 75,
  233.  'pages to scan'     => 1,
  234.  'unpaper on scan'   => TRUE,
  235.  'OCR on scan'       => TRUE,
  236.  'frontend'          => 'libsane-perl',
  237.  'rotate facing'     => 0,
  238.  'rotate reverse'    => 0,
  239.  'default filename'  => '%a %y-%m-%d',
  240.  'scan prefix'       => '',
  241.  'Blank threshold'   => 0.005,         # Blank page standard deviation threshold
  242.  'Dark threshold'    => 0.12,          # Dark page mean threshold
  243.  'ocr engine'        => 'ocropus',
  244.  'OCR output' =>
  245.    'replace',    # When a page is re-OCRed, replace old text with new text
  246.  'Paper' => {
  247.   $d->get('A4') => {
  248.    x => 210,
  249.    y => 297,
  250.    l => 0,
  251.    t => 0,
  252.   },
  253.   $d->get('US Letter') => {
  254.    x => 216,
  255.    y => 279,
  256.    l => 0,
  257.    t => 0,
  258.   },
  259.   $d->get('US Legal') => {
  260.    x => 216,
  261.    y => 356,
  262.    l => 0,
  263.    t => 0,
  264.   },
  265.  },
  266.  user_defined_tools => ['gimp %i']
  267. );
  268. delete $SETTING{frontend}
  269.   if (
  270.  defined $SETTING{frontend}
  271.  and ( $SETTING{frontend} eq 'scanimage-perl'
  272.   or $SETTING{frontend} eq 'scanadf-perl'
  273.   or $SETTING{frontend} eq 'scanimage.pl'
  274.   or $SETTING{frontend} eq
  275.   'scanadf.pl' )    # these frontends are just for testing purposes
  276.   );
  277. for ( keys(%default_settings) ) {
  278.  $SETTING{$_} = $default_settings{$_} unless ( defined $SETTING{$_} );
  279. }
  280.  
  281. # Remove invalid paper sizes
  282. for my $paper ( keys %{ $SETTING{Paper} } ) {
  283.  if ( $paper eq '<>' or $paper eq '</>' ) {
  284.   delete $SETTING{Paper}{$paper};
  285.  }
  286.  else {
  287.   for (qw(x y t l)) {
  288.    unless ( defined $SETTING{Paper}{$paper}{$_} ) {
  289.     delete $SETTING{Paper}{$paper};
  290.     last;
  291.    }
  292.   }
  293.  }
  294. }
  295.  
  296. # Delete the options cache if there is a new version of SANE
  297. if (
  298.  (
  299.   defined( $SETTING{'SANE version'} )
  300.   and $SETTING{'SANE version'} ne join( '.', Sane->get_version )
  301.  )
  302.  or ( defined( $SETTING{'libsane-perl version'} )
  303.   and $SETTING{'libsane-perl version'} ne $Sane::VERSION )
  304.   )
  305. {
  306.  delete $SETTING{cache} if ( defined $SETTING{cache} );
  307. }
  308. $SETTING{'SANE version'} = join( '.', Sane->get_version );
  309. $SETTING{'libsane-perl version'} = $Sane::VERSION;
  310.  
  311. # Set up test mode and make sure file has absolute path and is readable
  312. if ( keys %{$test} ) {
  313.  $SETTING{frontend} = 'scanimage-perl';
  314.  for my $file ( keys %{$test} ) {
  315.   my $device = $test->{$file};
  316.   delete $test->{$file};
  317.  
  318.   # Find a way of emulating the nonsense \n that some people seem to get
  319.   $device =~ s/\\n/\n/g;
  320.   $logger->debug("'$file','$device'");
  321.   $file = getcwd . "/$file" if ( $file !~ /^\//x );
  322.   if ( !-r $file ) {
  323.    $logger->fatal( sprintf( $d->get("Cannot read file: %s"), $file ) );
  324.    exit 1;
  325.   }
  326.   push @{ $test->{file} }, $file;
  327.   $test->{output} = '' unless ( defined( $test->{output} ) );
  328.   $test->{output} .=
  329.     "'$#{$test->{file}}','$device','" . basename($file) . "'\n";
  330.  }
  331. }
  332.  
  333. # GetOptions leaves $test as a reference to an empty hash.
  334. else {
  335.  undef $test;
  336. }
  337.  
  338. if ( defined $test_image ) {
  339.  $test_image = expand_tildes($test_image);
  340.  if ( -r $test_image ) {
  341.   $logger->info("Using test image $test_image");
  342.  }
  343.  else {
  344.   $logger->fatal( sprintf( $d->get("Cannot read file: %s"), $test_image ) );
  345.   exit 1;
  346.  }
  347. }
  348.  
  349. $logger->info("Perl version $^V");
  350. $logger->info("Glib-Perl version $Glib::VERSION");
  351. $logger->info( 'Built for Glib ' . join( '.', Glib->GET_VERSION_INFO ) );
  352. $logger->info( 'Running with Glib '
  353.    . join( '.', Glib::major_version, Glib::minor_version, Glib::micro_version )
  354. );
  355. $logger->info("Gtk2-Perl version $Gtk2::VERSION");
  356. $logger->info( "Built for GTK " . join( '.', Gtk2->GET_VERSION_INFO ) );
  357. $logger->info( "Running with GTK " . join( '.', Gtk2->get_version_info ) );
  358. $logger->info( "Using GtkImageView version ",
  359.  Gtk2::ImageView->library_version );
  360. $logger->info("Using Gtk2::ImageView version $Gtk2::ImageView::VERSION");
  361. $logger->info("Using PDF::API2 version $PDF::API2::VERSION");
  362. $logger->info( 'Using Sane version ' . join( '.', Sane->get_version ) );
  363. $logger->info("Using libsane-perl version $Sane::VERSION");
  364.  
  365. $logger->debug( Dumper( \%SETTING ) ) if ($debug);
  366.  
  367. # Just in case dependencies have changed, put put startup warning again
  368. if ( not defined( $SETTING{version} ) or $SETTING{version} ne $version ) {
  369.  $SETTING{'startup warning'} = TRUE;
  370.  delete $SETTING{cache} if ( defined $SETTING{cache} );
  371. }
  372. $SETTING{version} = $version;
  373.  
  374. # Initialise thread handler
  375. Gscan2pdf::Document->setup($logger);
  376.  
  377. # Initialise SANE frontends
  378. Gscan2pdf::Frontend::Sane->setup($logger);
  379. Gscan2pdf::Frontend::CLI->setup($logger);
  380.  
  381. # Update list in Gscan2pdf::Document so that it can be used by get_resolution
  382. Gscan2pdf::Document->set_paper_sizes( $SETTING{Paper} );
  383.  
  384. # Create icons for rotate buttons
  385. my $IconFactory = undef;
  386. my $iconpath;
  387. if ( -d '/usr/share/gscan2pdf' ) {
  388.  $iconpath = '/usr/share/gscan2pdf';
  389. }
  390. else {
  391.  $iconpath =
  392.    '.';    # FIXME: make this a big cleverer, going one dir down from bin.
  393. }
  394. init_icons(
  395.  [ 'rotate90',  "$iconpath/stock-rotate-90.svg" ],
  396.  [ 'rotate180', "$iconpath/stock-rotate-180.svg" ],
  397.  [ 'rotate270', "$iconpath/stock-rotate-270.svg" ],
  398.  [ 'scanner',   "$iconpath/scanner.svg" ],
  399.  [ 'pdf',       "$iconpath/pdf.svg" ],
  400.  [ 'selection', "$iconpath/stock-selection-all-16.png" ],
  401. );
  402.  
  403. # Define application-wide variables here so that they can be referenced
  404. # in the menu callbacks
  405. my (
  406.  $slist, $windowi, $windowe, $windows, $windows2, $windowh, $windowo, $windowrn,
  407.  $windowu, $vboxd, $labeld, $combobd, $combobp, $vbox_manual_paper,
  408.  @undo_buffer,
  409.  @redo_buffer, @undo_selection, @redo_selection, %dependencies,
  410.  %helperTag,   $menubar,        $toolbar,
  411.  @ocr_engine, $bscanall,       $bscannum, @clipboard, $windowd,
  412.  $windowr,    $view,           $frames,   $duplex,    $windowp,
  413.  $batch_scan, $print_settings, $windowc,  $current_page,
  414.  
  415.  # Spin buttons on scan dialog
  416.  $spin_buttons, $start, $spin_buttoni, $spin_buttonn,
  417.  
  418.  # Goo::Canvas for OCR output
  419.  $canvas,
  420.  
  421.  # Scan button on scan dialog
  422.  $scan_button,
  423.  
  424.  # List of PageRange widgets
  425.  @prlist,
  426.  
  427.  # List of user-defined tools
  428.  @user_defined_tools,
  429.  
  430.  # Spinbuttons for selector on crop dialog
  431.  $sb_selector_x, $sb_selector_y, $sb_selector_w, $sb_selector_h,
  432.  
  433.  # dir below session dir
  434.  $tmpdir,
  435.  
  436.  # session dir
  437.  $session,
  438.  
  439.  # filehandle for session lockfile
  440.  $lockfh,
  441.  
  442.  # Temp::File object for PDF to be emailed
  443.  # Define here to make sure that it doesn't get deleted until the next email
  444.  # is created or we quit
  445.  $pdf,
  446. );
  447.  
  448. my @action_items = (
  449.  
  450.  # Fields for each action item:
  451.  # [name, stock_id, value, label, accelerator, tooltip, callback]
  452.  
  453.  # File menu
  454.  [ 'File', undef, $d->get('_File') ],
  455.  [
  456.   'New',                       'gtk-new',
  457.   $d->get('_New'),             '<control>n',
  458.   $d->get('Clears all pages'), \&new
  459.  ],
  460.  [
  461.   'Open',                        'gtk-open',
  462.   $d->get('_Open'),              '<control>o',
  463.   $d->get('Open image file(s)'), \&open_dialog
  464.  ],
  465.  [
  466.   'Scan',
  467.   'scanner',
  468.   $d->get('S_can'),
  469.   '<control>g',
  470.   $d->get('Scan document'),
  471.   sub { $SETTING{frontend} eq 'libsane-perl' ? scan_dialog2() : scan_dialog() }
  472.  ],
  473.  [
  474.   'Save',          'gtk-save', $d->get('Save'), '<control>s',
  475.   $d->get('Save'), \&save_dialog
  476.  ],
  477.  [
  478.   'Email as PDF',                          'gtk-edit',
  479.   $d->get('_Email as PDF'),                '<control>e',
  480.   $d->get('Attach as PDF to a new email'), \&email
  481.  ],
  482.  [
  483.   'Print',          'gtk-print', $d->get('_Print'), '<control>p',
  484.   $d->get('Print'), \&print_dialog
  485.  ],
  486.  [
  487.   'Compress',                           undef,
  488.   $d->get('_Compress temporary files'), undef,
  489.   $d->get('Compress temporary files'),  \&compress_temp
  490.  ],
  491.  [
  492.   'Quit',           'gtk-quit',
  493.   $d->get('_Quit'), '<control>q',
  494.   $d->get('Quit'), sub { Gtk2->main_quit if quit(); }
  495.  ],
  496.  
  497.  # Edit menu
  498.  [ 'Edit', undef, $d->get('_Edit') ],
  499.  [
  500.   'Undo', 'gtk-undo', $d->get('_Undo'), '<control>z', $d->get('Undo'), \&undo
  501.  ],
  502.  [
  503.   'Redo',           'gtk-redo',
  504.   $d->get('_Redo'), '<shift><control>z',
  505.   $d->get('Redo'),  \&unundo
  506.  ],
  507.  [
  508.   'Cut',                    'gtk-cut',
  509.   $d->get('Cu_t'),          '<control>x',
  510.   $d->get('Cut selection'), \&cut_selection
  511.  ],
  512.  [
  513.   'Copy',                    'gtk-copy',
  514.   $d->get('_Copy'),          '<control>c',
  515.   $d->get('Copy selection'), \&copy_selection
  516.  ],
  517.  [
  518.   'Paste',                    'gtk-paste',
  519.   $d->get('_Paste'),          '<control>v',
  520.   $d->get('Paste selection'), \&paste_selection
  521.  ],
  522.  [
  523.   'Delete',                         'gtk-delete',
  524.   $d->get('_Delete'),               undef,
  525.   $d->get('Delete selected pages'), \&delete_pages
  526.  ],
  527.  [
  528.   'Renumber',                'gtk-sort-ascending',
  529.   $d->get('_Renumber'),      '<control>r',
  530.   $d->get('Renumber pages'), \&renumber_dialog
  531.  ],
  532.  [ 'Select', undef, $d->get('_Select') ],
  533.  [
  534.   'Select All',                'gtk-select-all',
  535.   $d->get('_All'),             '<control>a',
  536.   $d->get('Select all pages'), \&select_all
  537.  ],
  538.  [
  539.   'Select Odd', undef, $d->get('_Odd'), '<control>1',
  540.   $d->get('Select all odd-numbered pages'),
  541.   sub { select_odd_even(0); }
  542.  ],
  543.  [
  544.   'Select Even', undef, $d->get('_Even'), '<control>2',
  545.   $d->get('Select all evenly-numbered pages'),
  546.   sub { select_odd_even(1); }
  547.  ],
  548.  [
  549.   'Select Blank',                                      'gtk-select-blank',
  550.   $d->get('_Blank'),                                   '<control>b',
  551.   $d->get('Select pages with low standard deviation'), \&analyse_select_blank
  552.  ],
  553.  [
  554.   'Select Dark',                'gtk-select-blank',
  555.   $d->get('_Dark'),             '<control>d',
  556.   $d->get('Select dark pages'), \&analyse_select_dark
  557.  ],
  558.  [
  559.   'Select Modified',
  560.   'gtk-select-modified',
  561.   $d->get('_Modified'),
  562.   '<control>m',
  563.   $d->get('Select modified pages since last OCR'),
  564.   \&select_modified_since_ocr
  565.  ],
  566.  [
  567.   'Select No OCR',                            undef,
  568.   $d->get('_No OCR'),                         undef,
  569.   $d->get('Select pages with no OCR output'), \&select_no_ocr
  570.  ],
  571.  [
  572.   'Clear OCR',                                     'gtk-clear',
  573.   $d->get('_Clear OCR'),                           undef,
  574.   $d->get('Clear OCR output from selected pages'), \&clear_ocr
  575.  ],
  576.  [
  577.   'Properties',                     'gtk-properties',
  578.   $d->get('Propert_ies'),           undef,
  579.   $d->get('Edit image properties'), \&properties
  580.  ],
  581.  [
  582.   'Preferences',               'gtk-preferences',
  583.   $d->get('Prefere_nces'),     undef,
  584.   $d->get('Edit preferences'), \&preferences
  585.  ],
  586.  
  587.  # View menu
  588.  [ 'View', undef, $d->get('_View') ],
  589.  [
  590.   'Zoom 100',            'gtk-zoom-100',
  591.   $d->get('Zoom _100%'), undef,
  592.   $d->get('Zoom to 100%'), sub { $view->set_zoom(1.0); }
  593.  ],
  594.  [
  595.   'Zoom to fit',           'gtk-zoom-fit',
  596.   $d->get('Zoom to _fit'), undef,
  597.   $d->get('Zoom to fit'), sub { $view->set_fitting(TRUE); }
  598.  ],
  599.  [
  600.   'Zoom in',           'gtk-zoom-in',
  601.   $d->get('Zoom _in'), 'plus',
  602.   $d->get('Zoom in'), sub { $view->zoom_in; }
  603.  ],
  604.  [
  605.   'Zoom out',           'gtk-zoom-out',
  606.   $d->get('Zoom _out'), 'minus',
  607.   $d->get('Zoom out'), sub { $view->zoom_out; }
  608.  ],
  609.  [
  610.   'Rotate 90',
  611.   'rotate90',
  612.   $d->get('Rotate 90 clockwise'),
  613.   '<control><shift>R',
  614.   $d->get('Rotate 90 clockwise'),
  615.   sub { rotate( 90, [ indices2pages( $slist->get_selected_indices ) ] ) }
  616.  ],
  617.  [
  618.   'Rotate 180',
  619.   'rotate180',
  620.   $d->get('Rotate 180'),
  621.   '<control><shift>F',
  622.   $d->get('Rotate 180'),
  623.   sub { rotate( 180, [ indices2pages( $slist->get_selected_indices ) ] ) }
  624.  ],
  625.  [
  626.   'Rotate 270',
  627.   'rotate270',
  628.   $d->get('Rotate 90 anticlockwise'),
  629.   '<control><shift>C',
  630.   $d->get('Rotate 90 anticlockwise'),
  631.   sub { rotate( 270, [ indices2pages( $slist->get_selected_indices ) ] ) }
  632.  ],
  633.  
  634.  # Tools menu
  635.  [ 'Tools', undef, $d->get('_Tools') ],
  636.  [
  637.   'Threshold', undef, $d->get('_Threshold'), undef,
  638.   $d->get('Change each pixel above this threshold to black'),
  639.   \&threshold
  640.  ],
  641.  [
  642.   'Negate', undef, $d->get('_Negate'), undef,
  643.   $d->get('Converts black to white and vice versa'), \&negate
  644.  ],
  645.  [
  646.   'Unsharp',                        undef,
  647.   $d->get('_Unsharp Mask'),         undef,
  648.   $d->get('Apply an unsharp mask'), \&unsharp
  649.  ],
  650.  [
  651.   'Crop', 'GTK_STOCK_LEAVE_FULLSCREEN', $d->get('_Crop'), undef,
  652.   $d->get('Crop pages'), \&crop
  653.  ],
  654.  [
  655.   'unpaper',                                       undef,
  656.   $d->get('_Clean up'),                            undef,
  657.   $d->get('Clean up scanned images with unpaper'), \&unpaper
  658.  ],
  659.  [
  660.   'OCR', undef, $d->get('_OCR'), undef,
  661.   $d->get('Optical Character Recognition'), \&OCR
  662.  ],
  663.  [ 'User-defined', undef, $d->get('U_ser-defined') ],
  664.  
  665.  # Help menu
  666.  [ 'Help menu', undef, $d->get('_Help') ],
  667.  [
  668.   'Help',          'gtk-help', $d->get('_Help'), '<control>h',
  669.   $d->get('Help'), \&view_pod
  670.  ],
  671.  [ 'About', 'gtk-about', $d->get('_About'), undef, $d->get('_About'), \&about ],
  672. );
  673.  
  674. my @image_tools = (
  675.  [
  676.   'DraggerTool',                'gtk-refresh',
  677.   $d->get('_Drag'),             undef,
  678.   $d->get('Use the hand tool'), 10
  679.  ],
  680.  [
  681.   'SelectorTool',                                'selection',
  682.   $d->get('_Select'),                            undef,
  683.   $d->get('Use the rectangular selection tool'), 20
  684.  ],
  685.  [
  686.   'PainterTool',                   'gtk-media-play',
  687.   $d->get('_Paint'),               undef,
  688.   $d->get('Use the painter tool'), 30
  689.  ]
  690. );
  691.  
  692. # Declare the XML structure
  693. my $uimanager;
  694. my $ui = <<'EOS';
  695. <ui>
  696.  <menubar name='MenuBar'>
  697.   <menu action='File'>
  698.    <menuitem action='New'/>
  699.    <menuitem action='Open'/>
  700.    <menuitem action='Scan'/>
  701.    <menuitem action='Save'/>
  702.    <menuitem action='Email as PDF'/>
  703.    <menuitem action='Print'/>
  704.    <separator/>
  705.    <menuitem action='Compress'/>
  706.    <separator/>
  707.    <menuitem action='Quit'/>
  708.   </menu>
  709.   <menu action='Edit'>
  710.    <menuitem action='Undo'/>
  711.    <menuitem action='Redo'/>
  712.    <separator/>
  713.    <menuitem action='Cut'/>
  714.    <menuitem action='Copy'/>
  715.    <menuitem action='Paste'/>
  716.    <menuitem action='Delete'/>
  717.    <separator/>
  718.    <menuitem action='Renumber'/>
  719.    <menu action='Select'>
  720.     <menuitem action='Select All'/>
  721.     <menuitem action='Select Odd'/>
  722.     <menuitem action='Select Even'/>
  723.     <menuitem action='Select Blank'/>
  724.     <menuitem action='Select Dark'/>
  725.     <menuitem action='Select Modified'/>
  726.     <menuitem action='Select No OCR'/>
  727.    </menu>
  728.    <menuitem action='Clear OCR'/>
  729.    <separator/>
  730.    <menuitem action='Properties'/>
  731.    <separator/>
  732.    <menuitem action='Preferences'/>
  733.   </menu>
  734.   <menu action='View'>
  735.    <menuitem action = 'DraggerTool'/>
  736.    <menuitem action = 'SelectorTool'/>
  737.    <separator/>
  738.    <menuitem action='Zoom 100'/>
  739.    <menuitem action='Zoom to fit'/>
  740.    <menuitem action='Zoom in'/>
  741.    <menuitem action='Zoom out'/>
  742.    <separator/>
  743.    <menuitem action='Rotate 90'/>
  744.    <menuitem action='Rotate 180'/>
  745.    <menuitem action='Rotate 270'/>
  746.   </menu>
  747.   <menu action='Tools'>
  748.    <menuitem action='Threshold'/>
  749.    <menuitem action='Negate'/>
  750.    <menuitem action='Unsharp'/>
  751.    <menuitem action='Crop'/>
  752.    <separator/>
  753.    <menuitem action='unpaper'/>
  754.    <menuitem action='OCR'/>
  755.    <separator/>
  756.    <menu action='User-defined'>
  757.    </menu>
  758.   </menu>
  759.   <menu action='Help menu'>
  760.    <menuitem action='Help'/>
  761.    <menuitem action='About'/>
  762.   </menu>
  763.  </menubar>
  764.  <toolbar name='ToolBar'>
  765.   <toolitem action='New'/>
  766.   <toolitem action='Open'/>
  767.   <toolitem action='Scan'/>
  768.   <toolitem action='Save'/>
  769.   <toolitem action='Email as PDF'/>
  770.   <toolitem action='Print'/>
  771.   <separator/>
  772.   <toolitem action='Undo'/>
  773.   <toolitem action='Redo'/>
  774.   <separator/>
  775.   <toolitem action='Cut'/>
  776.   <toolitem action='Copy'/>
  777.   <toolitem action='Paste'/>
  778.   <toolitem action='Delete'/>
  779.   <separator/>
  780.   <toolitem action='Renumber'/>
  781.   <toolitem action='Select All'/>
  782.   <separator/>
  783.   <toolitem action = 'DraggerTool'/>
  784.   <toolitem action = 'SelectorTool'/>
  785.   <separator/>
  786.   <toolitem action='Zoom 100'/>
  787.   <toolitem action='Zoom to fit'/>
  788.   <toolitem action='Zoom in'/>
  789.   <toolitem action='Zoom out'/>
  790.   <separator/>
  791.   <toolitem action='Rotate 90'/>
  792.   <toolitem action='Rotate 180'/>
  793.   <toolitem action='Rotate 270'/>
  794.   <separator/>
  795.   <toolitem action='Help'/>
  796.   <toolitem action='Quit'/>
  797.  </toolbar>
  798.  <popup name='Detail_Popup'>
  799.   <menuitem action = 'DraggerTool'/>
  800.   <menuitem action = 'SelectorTool'/>
  801.   <separator/>
  802.   <menuitem action='Zoom 100'/>
  803.   <menuitem action='Zoom to fit'/>
  804.   <menuitem action='Zoom in'/>
  805.   <menuitem action='Zoom out'/>
  806.   <separator/>
  807.   <menuitem action='Rotate 90'/>
  808.   <menuitem action='Rotate 180'/>
  809.   <menuitem action='Rotate 270'/>
  810.   <separator/>
  811.   <menuitem action='Cut'/>
  812.   <menuitem action='Copy'/>
  813.   <menuitem action='Paste'/>
  814.   <menuitem action='Delete'/>
  815.   <separator/>
  816.   <menuitem action='Properties'/>
  817.  </popup>
  818.  <popup name='Thumb_Popup'>
  819.   <menuitem action='Save'/>
  820.   <menuitem action='Email as PDF'/>
  821.   <menuitem action='Print'/>
  822.   <separator/>
  823.   <menuitem action='Renumber'/>
  824.   <menuitem action='Select All'/>
  825.   <menuitem action='Select Odd'/>
  826.   <menuitem action='Select Even'/>
  827.   <separator/>
  828.   <menuitem action='Rotate 90'/>
  829.   <menuitem action='Rotate 180'/>
  830.   <menuitem action='Rotate 270'/>
  831.   <separator/>
  832.   <menuitem action='Cut'/>
  833.   <menuitem action='Copy'/>
  834.   <menuitem action='Paste'/>
  835.   <menuitem action='Delete'/>
  836.   <separator/>
  837.   <menuitem action='Clear OCR'/>
  838.   <separator/>
  839.   <menuitem action='Properties'/>
  840.  </popup>
  841. </ui>
  842. EOS
  843.  
  844. # Create the window
  845. my $window = Gtk2::Window->new;
  846. $window->set_title("$prog_name v$version");
  847. $window->signal_connect(
  848.  'delete-event' => sub {
  849.   if ( quit() ) {
  850.    Gtk2->main_quit;
  851.   }
  852.   else {
  853.    return TRUE;
  854.   }
  855.  }
  856. );
  857.  
  858. # Note when the window is maximised or not.
  859. $window->signal_connect(
  860.  window_state_event => sub {
  861.   my ( $w, $event ) = @_;
  862.   if ( $event->new_window_state & ['maximized'] ) {
  863.    $SETTING{'window_maximize'} = TRUE;
  864.   }
  865.   else {
  866.    $SETTING{'window_maximize'} = FALSE;
  867.   }
  868.  }
  869. );
  870.  
  871. # If defined in the config file, set the window state, size and position
  872. if ( $SETTING{'restore window'} ) {
  873.  $window->set_default_size( $SETTING{'window_width'},
  874.   $SETTING{'window_height'} );
  875.  $window->move( $SETTING{'window_x'}, $SETTING{'window_y'} )
  876.    if ( defined( $SETTING{'window_x'} ) and defined( $SETTING{'window_y'} ) );
  877.  $window->maximize if ( $SETTING{'window_maximize'} );
  878. }
  879.  
  880. try { $window->set_default_icon_from_file("$iconpath/gscan2pdf.svg"); }
  881. catch {
  882.  $logger->warn("Unable to load icon `$iconpath/gscan2pdf.svg': $@");
  883. };
  884.  
  885. my $main_vbox = Gtk2::VBox->new;
  886. $window->add($main_vbox);
  887.  
  888. # Create the menu bar
  889. create_menu_bar();
  890. $main_vbox->pack_start( $menubar, FALSE, TRUE,  0 );
  891. $main_vbox->pack_start( $toolbar, FALSE, FALSE, 0 );
  892.  
  893. my $tooltips = Gtk2::Tooltips->new;
  894. $tooltips->enable;
  895.  
  896. # HPaned for thumbnails and detail view
  897. my $hpaned = Gtk2::HPaned->new;
  898. $hpaned->set_position( $SETTING{'thumb panel'} );
  899. $main_vbox->pack_start( $hpaned, TRUE, TRUE, 0 );
  900.  
  901. # Scrolled window for thumbnails
  902. my $scwin_thumbs = Gtk2::ScrolledWindow->new;
  903.  
  904. # resize = FALSE to stop the panel expanding on being resized (Debian #507032)
  905. $hpaned->pack1( $scwin_thumbs, FALSE, TRUE );
  906. $scwin_thumbs->set_policy( 'automatic', 'automatic' );
  907. $scwin_thumbs->set_shadow_type('etched-in');
  908.  
  909. # Set up a SimpleList
  910. $slist = Gscan2pdf::Document->new;
  911.  
  912. my $target_entry = {
  913.  target => 'Glib::Scalar',    # some string representing the drag type
  914.  flags  => 'same-widget',     # Gtk2::TargetFlags
  915.  info   => 1,                 # some app-defined integer identifier
  916. };
  917. $slist->drag_source_set( 'button1-mask', [ 'copy', 'move' ], $target_entry );
  918. $slist->drag_dest_set(
  919.  [ 'motion', 'highlight' ],
  920.  [ 'copy',   'move' ],
  921.  $target_entry
  922. );
  923.  
  924. $slist->signal_connect(
  925.  'drag-data-get' => sub {
  926.   my ( $tree, $context, $sel ) = @_;
  927.   $sel->set( $sel->target, 8, 'data' );
  928.  }
  929. );
  930.  
  931. $slist->signal_connect(
  932.  'drag-data-delete' => sub {
  933.   my ( $tree, $context ) = @_;
  934.   my $model = $tree->get_model;
  935.   my @data  = $tree->get_selection->get_selected_rows;
  936.  
  937.   for ( reverse @data ) {
  938.    my $iter = $model->get_iter($_);
  939.    my $info = $model->get( $iter, 0 );
  940.    $model->remove($iter);
  941.   }
  942.  
  943.   $tree->get_selection->unselect_all;
  944.  }
  945. );
  946.  
  947. $slist->signal_connect(
  948.  'drag-data-received' => sub {
  949.   my ( $tree, $context, $x, $y, $sel ) = @_;
  950.   my ( $path, $how ) = $tree->get_dest_row_at_pos( $x, $y );
  951.   my $model = $tree->get_model;
  952.   my $data = $sel->data or return;
  953.   my $delete =
  954.     $context->action == 'move';    ## no critic (ProhibitMismatchedOperators)
  955.  
  956.   my @rows = $tree->get_selection->get_selected_rows or return;
  957.   my @data;
  958.   for (@rows) {
  959.    my $iter = $model->get_iter($_);
  960.    my @info = $model->get($iter);
  961.    my $suffix;
  962.    $suffix = $1 if ( $info[2]->{filename} =~ /(\.\w*)$/x );
  963.    my $new = File::Temp->new( DIR => $SETTING{session}, SUFFIX => $suffix );
  964.  
  965.    # quotes required to prevent File::Temp objects from being clobbered
  966.    copy( "$info[2]->{filename}", "$new" )
  967.      or show_message_dialog( $window, 'error', 'close',
  968.     $d->get('Error copying page') );
  969.  
  970.    $info[2]->{filename} = $new;
  971.    push @data, [@info];
  972.   }
  973.  
  974.   # Block row-changed signal so that the list can be updated before the sort
  975.   # takes over.
  976.   $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  977.  
  978.   if ($path) {
  979.    if ( $how eq 'after' or $how eq 'into-or-after' ) {
  980.     splice @{ $slist->{data} }, $path->to_string + 1, 0, @data;
  981.    }
  982.    else {
  983.     splice @{ $slist->{data} }, $path->to_string, 0, @data;
  984.    }
  985.   }
  986.   else {
  987.    push @{ $slist->{data} }, @data;
  988.   }
  989.   $slist->renumber;
  990.   $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  991.  
  992.   # Update the start spinbutton if necessary
  993.   update_start();
  994.  
  995.   $context->finish( 1, $delete, time );
  996.  }
  997. );
  998.  
  999. # Callback for dropped signal.
  1000. $slist->signal_connect(
  1001.  drag_drop => sub {
  1002.   my ( $tree, $context, $x, $y, $when ) = @_;
  1003.   if ( my $targ = $context->targets ) {
  1004.    $tree->drag_get_data( $context, $targ, $when );
  1005.    return TRUE;
  1006.   }
  1007.   return FALSE;
  1008.  }
  1009. );
  1010.  
  1011. # If dragged below the bottom of the window, scroll it.
  1012. $slist->signal_connect(
  1013.  'drag-motion' => sub {
  1014.   my ( $tree, $context, $x, $y, $t ) = @_;
  1015.   my ( $path, $how ) = $tree->get_dest_row_at_pos( $x, $y ) or return;
  1016.   my $scroll = $tree->parent;
  1017.  
  1018.   # Add the marker showing the drop in the tree
  1019.   $tree->set_drag_dest_row( $path, $how );
  1020.  
  1021.   # Make move the default
  1022.   my @action;
  1023.   if ( $context->actions == 'copy' )  ## no critic (ProhibitMismatchedOperators)
  1024.   {
  1025.    @action = ('copy');
  1026.   }
  1027.   else {
  1028.    @action = ('move');
  1029.   }
  1030.   $context->status( @action, $t );
  1031.  
  1032.   my $adj = $scroll->get_vadjustment;
  1033.   my ( $value, $step ) = ( $adj->value, $adj->step_increment );
  1034.  
  1035.   if ( $y > $adj->page_size - $step / 2 ) {
  1036.    my $v = $value + $step;
  1037.    my $m = $adj->upper - $adj->page_size;
  1038.    $adj->set_value( $v > $m ? $m : $v );
  1039.   }
  1040.   elsif ( $y < $step / 2 ) {
  1041.    my $v = $value - $step;
  1042.    my $m = $adj->lower;
  1043.    $adj->set_value( $v < $m ? $m : $v );
  1044.   }
  1045.  
  1046.   return FALSE;
  1047.  }
  1048. );
  1049.  
  1050. # Set up callback for right mouse clicks.
  1051. $slist->signal_connect( button_press_event   => \&handle_clicks );
  1052. $slist->signal_connect( button_release_event => \&handle_clicks );
  1053.  
  1054. # Set the page number to be editable
  1055. $slist->set_column_editable( 0, TRUE );
  1056.  
  1057. # Set-up the callback when the page number has been edited.
  1058. $slist->{row_changed_signal} = $slist->get_model->signal_connect(
  1059.  'row-changed' => sub {
  1060.   $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  1061.  
  1062.   # Sort pages
  1063.   $slist->manual_sort_by_column(0);
  1064.  
  1065.   # And make sure there are no duplicates
  1066.   $slist->renumber;
  1067.   $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  1068.  
  1069.   # Update the start spinbutton if necessary
  1070.   update_start();
  1071.  }
  1072. );
  1073.  
  1074. $scwin_thumbs->add($slist);
  1075.  
  1076. # Notebook for detail view and OCR output
  1077. my $vnotebook = Gtk2::Notebook->new;
  1078. $hpaned->pack2( $vnotebook, TRUE, TRUE );
  1079.  
  1080. # ImageView for detail view
  1081. $view = Gtk2::ImageView->new;
  1082. my $dragger  = Gtk2::ImageView::Tool::Dragger->new($view);
  1083. my $selector = Gtk2::ImageView::Tool::Selector->new($view);
  1084. my $painter  = Gtk2::ImageView::Tool::Painter->new($view);
  1085. $vnotebook->append_page( $view, $d->get('Image') );
  1086.  
  1087. $view->signal_connect(
  1088.  button_press_event => sub {
  1089.   my ( $widget, $event ) = @_;
  1090.   handle_clicks( $widget, $event );
  1091.  }
  1092. );
  1093. $view->signal_connect( button_release_event => \&handle_clicks );
  1094. $view->signal_connect(
  1095.  'zoom-changed' => sub {
  1096.   $canvas->set_scale( $view->get_zoom ) if ( defined $canvas );
  1097.  }
  1098. );
  1099.  
  1100. # Callback if the selection changes
  1101. $selector->{selection_changed_signal} = $selector->signal_connect(
  1102.  'selection-changed' => sub {
  1103.   my $sel = $selector->get_selection;
  1104.   if ( defined $sel ) {
  1105.    $SETTING{selection} = [ $sel->values ];
  1106.    if ( defined $sb_selector_x ) {
  1107.     $sb_selector_x->set_value( $SETTING{selection}[0] );
  1108.     $sb_selector_y->set_value( $SETTING{selection}[1] );
  1109.     $sb_selector_w->set_value( $SETTING{selection}[2] );
  1110.     $sb_selector_h->set_value( $SETTING{selection}[3] );
  1111.    }
  1112.   }
  1113.  }
  1114. );
  1115.  
  1116. # ScrolledWindow for Goo::Canvas for OCR output
  1117. my $scwin_buffer = Gtk2::ScrolledWindow->new;
  1118. $scwin_buffer->set_policy( 'automatic', 'automatic' );
  1119. $scwin_buffer->set_shadow_type('etched-in');
  1120. $vnotebook->append_page( $scwin_buffer, $d->get('OCR Output') );
  1121.  
  1122. # Set up call back for list selection to update detail view
  1123. $slist->{selection_changed_signal} = $slist->get_selection->signal_connect(
  1124.  changed => sub {
  1125.   my @page = $slist->get_selected_indices;
  1126.  
  1127.   # Display the new image
  1128.   $scwin_buffer->remove($_) for ( $scwin_buffer->get_children );
  1129.   if (@page) {
  1130.  
  1131.    my $path = Gtk2::TreePath->new_from_indices( $page[0] );
  1132.    $slist->scroll_to_cell($path);
  1133.    my $sel = $selector->get_selection;
  1134.    display_image( $slist->{data}[ $page[0] ][2] );
  1135.    $selector->set_selection($sel) if ( defined $sel );
  1136.   }
  1137.   else {
  1138.    $view->set_pixbuf(undef);
  1139.    undef $current_page;
  1140.   }
  1141.  
  1142.   # If no pages are selected, but some exist, PageRange widgets default to all
  1143.   if ( $#page == -1 and $#{ $slist->{data} } > -1 ) {
  1144.    $SETTING{'Page range'} = 'all';
  1145.    foreach (@prlist) {
  1146.     $_->set_active( $SETTING{'Page range'} );
  1147.    }
  1148.   }
  1149.  }
  1150. );
  1151.  
  1152. # _after ensures that Editables get first bite
  1153. $window->signal_connect_after(
  1154.  key_press_event => sub {
  1155.   my ( $widget, $event ) = @_;
  1156.  
  1157.   # Let the keypress propagate
  1158.   return FALSE
  1159.     unless ( $event->keyval ==
  1160.    $Gtk2::Gdk::Keysyms{Delete} )    ## no critic (ProhibitPackageVars)
  1161.     ;
  1162.  
  1163.   delete_pages();
  1164.   return TRUE;
  1165.  }
  1166. );
  1167.  
  1168. # If defined in the config file, set the current directory
  1169. $SETTING{'cwd'} = getcwd unless ( defined( $SETTING{'cwd'} ) );
  1170.  
  1171. my $unpaper = Gscan2pdf::Unpaper->new( $SETTING{'unpaper options'} );
  1172.  
  1173. # Set up the strings for the possible device-dependent options
  1174. my %ddo;
  1175. my %pddo = (
  1176.  'mode' => {
  1177.   string => $d->get('Mode'),
  1178.   values => {
  1179.    'Lineart'       => $d->get('Lineart'),
  1180.    'Grayscale',    => $d->get('Grayscale'),
  1181.    'Gray'          => $d->get('Gray'),
  1182.    'Color'         => $d->get('Color'),
  1183.    'Black & White' => $d->get('Black & White'),
  1184.    'True Gray'     => $d->get('True Gray'),
  1185.    'Binary'        => $d->get('Binary'),
  1186.    'auto'          => $d->get('Auto'),
  1187.    'Halftone'      => $d->get('Halftone'),
  1188.    '24bit Color'   => $d->get('24bit Color'),
  1189.   }
  1190.  },
  1191.  'compression' => {
  1192.   string => $d->get('Compression'),
  1193.   values => {
  1194.    'None' => $d->get('None'),
  1195.    'JPEG' => $d->get('JPEG'),
  1196.   },
  1197.  },
  1198.  'resolution' => { string => $d->get('Resolution') },
  1199.  'brightness' => { string => $d->get('Brightness') },
  1200.  'gain'       => { string => $d->get('Gain') },
  1201.  'contrast'   => { string => $d->get('Contrast') },
  1202.  'threshold'  => { string => $d->get('Threshold') },
  1203.  'speed'      => {
  1204.   string => $d->get('Speed'),
  1205.   values => {
  1206.    'yes' => $d->get('Yes'),
  1207.    'no'  => $d->get('No'),
  1208.   },
  1209.  },
  1210.  'batch-scan' => {
  1211.   string => $d->get('Batch scan'),
  1212.   values => {
  1213.    'yes' => $d->get('Yes'),
  1214.    'no'  => $d->get('No'),
  1215.   },
  1216.  },
  1217.  'wait-for-button' => {
  1218.   string => $d->get('Wait for button'),
  1219.   values => {
  1220.    'yes' => $d->get('Yes'),
  1221.    'no'  => $d->get('No'),
  1222.   },
  1223.  },
  1224.  'button-wait' => {
  1225.   string => $d->get('Wait for button'),
  1226.   values => {
  1227.    'yes' => $d->get('Yes'),
  1228.    'no'  => $d->get('No'),
  1229.   },
  1230.  },
  1231.  'calibration-cache' => {
  1232.   string => $d->get('Cache calibration'),
  1233.   values => {
  1234.    'yes' => $d->get('Yes'),
  1235.    'no'  => $d->get('No'),
  1236.   },
  1237.  },
  1238.  'source' => {
  1239.   string => $d->get('Source'),
  1240.   values => {
  1241.    'Normal'                    => $d->get('Normal'),
  1242.    'ADF'                       => $d->get('ADF'),
  1243.    'Automatic Document Feeder' => $d->get('Automatic Document Feeder'),
  1244.    'XPA'                       => $d->get('XPA'),
  1245.    'auto'                      => $d->get('Auto'),
  1246.    'Auto'                      => $d->get('Auto'),
  1247.    'Flatbed'                   => $d->get('Flatbed'),
  1248.    'Transparency Adapter'      => $d->get('Transparency Adapter'),
  1249.    'Transparency Unit'         => $d->get('Transparency Unit'),
  1250.   },
  1251.  },
  1252.  'pagewidth'       => { string => $d->get('Page Width') },
  1253.  'pageheight'      => { string => $d->get('Page Height') },
  1254.  'page-width'      => { string => $d->get('Page Width') },
  1255.  'page-height'     => { string => $d->get('Page Height') },
  1256.  'overscan-top'    => { string => $d->get('Top Overscan') },
  1257.  'overscan-bottom' => { string => $d->get('Bottom Overscan') },
  1258.  'adf_mode'        => {
  1259.   string => $d->get('ADF Mode'),
  1260.   values => {
  1261.    'Simplex' => $d->get('Simplex'),
  1262.    'Duplex'  => $d->get('Duplex'),
  1263.   },
  1264.  },
  1265.  'adf-mode' => {
  1266.   string => $d->get('ADF Mode'),
  1267.   values => {
  1268.    'Simplex' => $d->get('Simplex'),
  1269.    'Duplex'  => $d->get('Duplex'),
  1270.   },
  1271.  },
  1272. );
  1273.  
  1274. update_uimanager();
  1275.  
  1276. # Look for crashed sessions
  1277. if ( defined( $SETTING{TMPDIR} ) and $SETTING{TMPDIR} ne '' ) {
  1278.  $tmpdir = $SETTING{TMPDIR};
  1279. }
  1280. else {
  1281.  $tmpdir = File::Spec->tmpdir;
  1282. }
  1283. $logger->info("Checking $tmpdir for crashed sessions");
  1284. my ( @sessions, @crashed, $selected ) =
  1285.   glob File::Spec->catfile( $tmpdir, 'gscan2pdf-????' );
  1286.  
  1287. # Forget those used by running sessions
  1288. for (@sessions) {
  1289.  if (
  1290.   open $lockfh,
  1291.   '>',
  1292.   File::Spec->catfile( $_, 'lockfile' ) and flock( $lockfh, LOCK_EX | LOCK_NB )
  1293.    )
  1294.  {
  1295.   push @crashed, $_;
  1296.   flock( $lockfh, LOCK_UN );
  1297.   close $lockfh;
  1298.  }
  1299. }
  1300.  
  1301. # Allow user to pick a crashed session to restore
  1302. if (@crashed) {
  1303.  my $dialog = Gtk2::Dialog->new(
  1304.   $d->get('Pick crashed session to restore'),
  1305.   $window, 'modal',
  1306.   'gtk-ok'     => 'ok',
  1307.   'gtk-cancel' => 'cancel'
  1308.  );
  1309.  my $label = Gtk2::Label->new( $d->get('Pick crashed session to restore') );
  1310.  $dialog->vbox->add($label);
  1311.  my $sessionlist = Gtk2::Ex::Simple::List->new( $d->get('Session') => 'text', );
  1312.  push @{ $sessionlist->{data} }, @crashed;
  1313.  $dialog->vbox->add($sessionlist);
  1314.  $dialog->show_all;
  1315.  ($selected) = $sessionlist->get_selected_indices if ( $dialog->run eq 'ok' );
  1316.  $dialog->destroy;
  1317.  
  1318.  if ( defined $selected ) {
  1319.   $session = $crashed[$selected];
  1320.   open $lockfh, '>',    ## no critic (RequireBriefOpen)
  1321.     File::Spec->catfile( $session, 'lockfile' )
  1322.     or die "Cannot open lockfile\n";
  1323.   flock( $lockfh, LOCK_EX ) or die "Cannot lock file\n";
  1324.   open_session();
  1325.  }
  1326. }
  1327.  
  1328. # Create temporary directory if necessary
  1329. unless ( defined $session ) {
  1330.  if ( defined( $SETTING{TMPDIR} ) and $SETTING{TMPDIR} ne '' ) {
  1331.   mkdir( $SETTING{TMPDIR} ) if ( not -d $SETTING{TMPDIR} );
  1332.   try {
  1333.    $session = File::Temp->newdir( 'gscan2pdf-XXXX', DIR => $SETTING{TMPDIR} );
  1334.   }
  1335.   catch {
  1336.    $session = File::Temp->newdir( 'gscan2pdf-XXXX', TMPDIR => 1 );
  1337.    $slist->set_dir($session);
  1338.    $logger->warn(
  1339.     sprintf(
  1340.      $d->get(
  1341. "Warning: unable to use %s for temporary storage. Defaulting to %s instead."
  1342.      ),
  1343.      $SETTING{TMPDIR},
  1344.      dirname($session)
  1345.     )
  1346.    );
  1347.   };
  1348.  }
  1349.  else {
  1350.   $session = File::Temp->newdir( 'gscan2pdf-XXXX', TMPDIR => 1 );
  1351.   $slist->set_dir($session);
  1352.  }
  1353.  open $lockfh, '>',    ## no critic (RequireBriefOpen)
  1354.    File::Spec->catfile( $session, 'lockfile' )
  1355.    or die "Cannot open lockfile\n";
  1356.  flock( $lockfh, LOCK_EX ) or die "Cannot lock file\n";
  1357.  $slist->save_session($session);
  1358.  $logger->info("Using $session for temporary files");
  1359. }
  1360.  
  1361. $window->show_all;
  1362.  
  1363. # Progress bars below window
  1364. my $phbox = Gtk2::HBox->new;
  1365. $main_vbox->pack_end( $phbox, FALSE, FALSE, 0 );
  1366. $phbox->show;
  1367. my $shbox = Gtk2::HBox->new;
  1368. $phbox->add($shbox);
  1369. my $spbar = Gtk2::ProgressBar->new;
  1370. $shbox->add($spbar);
  1371. my $scbutton = Gtk2::Button->new;
  1372. $scbutton->set_image( Gtk2::Image->new_from_stock( 'gtk-cancel', 'button' ) );
  1373. $shbox->pack_end( $scbutton, FALSE, FALSE, 0 );
  1374. my $thbox = Gtk2::HBox->new;
  1375. $phbox->add($thbox);
  1376. my $tpbar = Gtk2::ProgressBar->new;
  1377. $thbox->add($tpbar);
  1378. my $tcbutton = Gtk2::Button->new;
  1379. $tcbutton->set_image( Gtk2::Image->new_from_stock( 'gtk-cancel', 'button' ) );
  1380. $thbox->pack_end( $tcbutton, FALSE, FALSE, 0 );
  1381.  
  1382. ### Subroutines
  1383.  
  1384. # Create the menu bar, initialize its menus, and return the menu bar.
  1385.  
  1386. sub create_menu_bar {
  1387.  
  1388.  # Create a Gtk2::UIManager instance
  1389.  $uimanager = Gtk2::UIManager->new;
  1390.  
  1391.  # extract the accelgroup and add it to the window
  1392.  my $accelgroup = $uimanager->get_accel_group;
  1393.  $window->add_accel_group($accelgroup);
  1394.  
  1395.  # Create the basic Gtk2::ActionGroup instance
  1396.  # and fill it with Gtk2::Action instances
  1397.  my $actions_basic = Gtk2::ActionGroup->new("actions_basic");
  1398.  $actions_basic->add_actions( \@action_items, undef );
  1399.  $actions_basic->add_radio_actions( \@image_tools, 10, \&change_image_tool_cb );
  1400.  
  1401.  # Add the actiongroup to the uimanager
  1402.  $uimanager->insert_action_group( $actions_basic, 0 );
  1403.  
  1404.  # add the basic XML description of the GUI
  1405.  $uimanager->add_ui_from_string($ui);
  1406.  
  1407.  # extract the menubar
  1408.  $menubar = $uimanager->get_widget('/MenuBar');
  1409.  
  1410.  $SETTING{user_defined_tools} = [ $SETTING{user_defined_tools} ]
  1411.    if ( ref( $SETTING{user_defined_tools} ) ne 'ARRAY' );
  1412.  for ( @{ $SETTING{user_defined_tools} } ) {
  1413.   my %tool = ( cmd => $_ );
  1414.   push @user_defined_tools, \%tool;
  1415.   add_user_defined_tool_menu( \%tool );
  1416.  }
  1417.  
  1418.  # Check for presence of various packages
  1419.  $dependencies{perlmagick}  = try { require Image::Magick };
  1420.  $dependencies{imagemagick} = check_command('convert');
  1421.  $dependencies{scanadf}     = check_command('scanadf');
  1422.  $dependencies{xdg}         = check_command('xdg-email');
  1423.  $dependencies{gocr}        = check_command('gocr');
  1424.  $dependencies{tesseract}   = Gscan2pdf::Tesseract->setup($logger);
  1425.  $dependencies{ocropus}     = Gscan2pdf::Ocropus->setup($logger);
  1426.  $dependencies{cuneiform}   = Gscan2pdf::Cuneiform->setup($logger);
  1427.  $dependencies{djvu}        = check_command('cjb2');
  1428.  $dependencies{unpaper}     = Gscan2pdf::Unpaper->version;
  1429.  $dependencies{libtiff}     = check_command('tiffcp');
  1430.  $logger->info("Found Image::Magick") if ( $dependencies{perlmagick} );
  1431.  $logger->info("Found ImageMagick")   if ( $dependencies{imagemagick} );
  1432.  $logger->info("Found scanadf")       if ( $dependencies{scanadf} );
  1433.  $logger->info("Found xdg-email")     if ( $dependencies{xdg} );
  1434.  $logger->info("Found gocr")          if ( $dependencies{gocr} );
  1435.  $logger->info("Found tesseract")     if ( $dependencies{tesseract} );
  1436.  $logger->info("Found cuneiform v$dependencies{cuneiform}")
  1437.    if ( $dependencies{cuneiform} );
  1438.  $logger->info("Found cjb2 (djvu)") if ( $dependencies{djvu} );
  1439.  $logger->info("Found libtiff")     if ( $dependencies{libtiff} );
  1440.  $logger->info("Found unpaper $dependencies{unpaper}")
  1441.    if ( $dependencies{unpaper} );
  1442.  
  1443.  # OCR engine options
  1444.  push @ocr_engine,
  1445.    [ 'gocr', $d->get('GOCR'), $d->get('Process image with GOCR.') ]
  1446.    if ( $dependencies{gocr} );
  1447.  push @ocr_engine,
  1448.    [
  1449.   'tesseract', $d->get('Tesseract'),
  1450.   $d->get('Process image with Tesseract.')
  1451.    ],
  1452.    if ( $dependencies{tesseract} );
  1453.  push @ocr_engine,
  1454.    [ 'ocropus', $d->get('Ocropus'), $d->get('Process image with Ocropus.') ],
  1455.    if ( $dependencies{ocropus} );
  1456.  push @ocr_engine,
  1457.    [
  1458.   'cuneiform', $d->get('Cuneiform'),
  1459.   $d->get('Process image with Cuneiform.')
  1460.    ],
  1461.    if ( $dependencies{cuneiform} );
  1462.  
  1463.  # Ghost save image item if imagemagick not available
  1464.  my $msg = '';
  1465.  $msg .= $d->get("Save image and Save as PDF both require imagemagick\n")
  1466.    unless ( $dependencies{imagemagick} );
  1467.  
  1468.  # Ghost save image item if libtiff not available
  1469.  $msg .= $d->get("Save image requires libtiff\n")
  1470.    unless ( $dependencies{libtiff} );
  1471.  
  1472.  # Ghost djvu item if cjb2 not available
  1473.  $msg .= $d->get("Save as DjVu requires djvulibre-bin\n")
  1474.    unless ( $dependencies{djvu} );
  1475.  
  1476.  # Ghost email item if xdg-email not available
  1477.  $msg .= $d->get("Email as PDF requires xdg-email\n")
  1478.    unless ( $dependencies{xdg} );
  1479.  
  1480.  # Undo/redo start off ghosted anyway-
  1481.  $uimanager->get_widget('/MenuBar/Edit/Undo')->set_sensitive(FALSE);
  1482.  $uimanager->get_widget('/MenuBar/Edit/Redo')->set_sensitive(FALSE);
  1483.  $uimanager->get_widget('/ToolBar/Undo')->set_sensitive(FALSE);
  1484.  $uimanager->get_widget('/ToolBar/Redo')->set_sensitive(FALSE);
  1485.  
  1486.  # save * start off ghosted anyway-
  1487.  $uimanager->get_widget('/MenuBar/File/Save')->set_sensitive(FALSE);
  1488.  $uimanager->get_widget('/MenuBar/File/Email as PDF')->set_sensitive(FALSE);
  1489.  $uimanager->get_widget('/MenuBar/File/Print')->set_sensitive(FALSE);
  1490.  $uimanager->get_widget('/ToolBar/Save')->set_sensitive(FALSE);
  1491.  $uimanager->get_widget('/ToolBar/Email as PDF')->set_sensitive(FALSE);
  1492.  $uimanager->get_widget('/ToolBar/Print')->set_sensitive(FALSE);
  1493.  $uimanager->get_widget('/Thumb_Popup/Save')->set_sensitive(FALSE);
  1494.  $uimanager->get_widget('/Thumb_Popup/Email as PDF')->set_sensitive(FALSE);
  1495.  $uimanager->get_widget('/Thumb_Popup/Print')->set_sensitive(FALSE);
  1496.  
  1497.  $uimanager->get_widget('/MenuBar/Tools/Threshold')->set_sensitive(FALSE);
  1498.  $uimanager->get_widget('/MenuBar/Tools/Negate')->set_sensitive(FALSE);
  1499.  $uimanager->get_widget('/MenuBar/Tools/Unsharp')->set_sensitive(FALSE);
  1500.  $uimanager->get_widget('/MenuBar/Tools/Crop')->set_sensitive(FALSE);
  1501.  $uimanager->get_widget('/MenuBar/Tools/User-defined')->set_sensitive(FALSE);
  1502.  
  1503.  # a convenient place to put these
  1504.  $dependencies{pages} = -1;
  1505.  
  1506.  # Ghost rotations and unpaper if perlmagick not available
  1507.  unless ( $dependencies{perlmagick} ) {
  1508.   $uimanager->get_widget('/MenuBar/View/Rotate 90')->set_sensitive(FALSE);
  1509.   $uimanager->get_widget('/MenuBar/View/Rotate 180')->set_sensitive(FALSE);
  1510.   $uimanager->get_widget('/MenuBar/View/Rotate 270')->set_sensitive(FALSE);
  1511.   $uimanager->get_widget('/ToolBar/Rotate 90')->set_sensitive(FALSE);
  1512.   $uimanager->get_widget('/ToolBar/Rotate 180')->set_sensitive(FALSE);
  1513.   $uimanager->get_widget('/ToolBar/Rotate 270')->set_sensitive(FALSE);
  1514.   $uimanager->get_widget('/Detail_Popup/Rotate 90')->set_sensitive(FALSE);
  1515.   $uimanager->get_widget('/Detail_Popup/Rotate 180')->set_sensitive(FALSE);
  1516.   $uimanager->get_widget('/Detail_Popup/Rotate 270')->set_sensitive(FALSE);
  1517.   $uimanager->get_widget('/Thumb_Popup/Rotate 90')->set_sensitive(FALSE);
  1518.   $uimanager->get_widget('/Thumb_Popup/Rotate 180')->set_sensitive(FALSE);
  1519.   $uimanager->get_widget('/Thumb_Popup/Rotate 270')->set_sensitive(FALSE);
  1520.   $uimanager->get_widget('/MenuBar/Tools/unpaper')->set_sensitive(FALSE);
  1521.   $msg .=
  1522.     $d->get("The rotating options and unpaper support require perlmagick\n");
  1523.  }
  1524.  
  1525.  # Ghost unpaper item if unpaper not available
  1526.  unless ( $dependencies{unpaper} ) {
  1527.   $uimanager->get_widget('/MenuBar/Tools/unpaper')->set_sensitive(FALSE);
  1528.   $msg .= $d->get("unpaper missing\n");
  1529.  }
  1530.  
  1531.  # Ghost ocr item if gocr and tesseract not available
  1532.  if ( not $dependencies{gocr}
  1533.   and not $dependencies{tesseract}
  1534.   and not $dependencies{ocropus}
  1535.   and not $dependencies{cuneiform} )
  1536.  {
  1537.   $uimanager->get_widget('/MenuBar/Tools/OCR')->set_sensitive(FALSE);
  1538.   $msg .= $d->get("OCR requires gocr, tesseract, ocropus, or cuneiform\n");
  1539.  }
  1540.  
  1541.  # Put up warning if needed
  1542.  if ( $SETTING{'startup warning'} and $msg ne '' ) {
  1543.   my $dialog = Gtk2::Dialog->new( $d->get('Warning: missing packages'),
  1544.    $window, 'modal', 'gtk-ok' => 'none' );
  1545.   my $label = Gtk2::Label->new($msg);
  1546.   $dialog->vbox->add($label);
  1547.   my $cb = Gtk2::CheckButton->new_with_label(
  1548.    $d->get("Don't show this message again") );
  1549.   $cb->set_active(TRUE);
  1550.   $dialog->vbox->add($cb);
  1551.   $dialog->show_all;
  1552.   $dialog->run;
  1553.   $SETTING{'startup warning'} = FALSE if ( $cb->get_active );
  1554.   $dialog->destroy;
  1555.  }
  1556.  
  1557.  # extract the toolbar
  1558.  $toolbar = $uimanager->get_widget('/ToolBar');
  1559.  
  1560.  # turn off labels
  1561.  my $settings = $toolbar->get_settings();
  1562.  $settings->set( 'gtk-toolbar-style', 'icons' );    # only icons
  1563.  
  1564.  return;
  1565. }
  1566.  
  1567. # ghost or unghost as necessary as # pages > 0 or not.
  1568.  
  1569. sub update_uimanager {
  1570.  my @widgets = (
  1571.   '/MenuBar/View/DraggerTool',
  1572.   '/MenuBar/View/SelectorTool',
  1573.   '/MenuBar/View/Zoom 100',
  1574.   '/MenuBar/View/Zoom to fit',
  1575.   '/MenuBar/View/Zoom in',
  1576.   '/MenuBar/View/Zoom out',
  1577.   '/MenuBar/View/Rotate 90',
  1578.   '/MenuBar/View/Rotate 180',
  1579.   '/MenuBar/View/Rotate 270',
  1580.   '/MenuBar/Tools/Threshold',
  1581.   '/MenuBar/Tools/Negate',
  1582.   '/MenuBar/Tools/Unsharp',
  1583.   '/MenuBar/Tools/Crop',
  1584.   '/MenuBar/Tools/unpaper',
  1585.   '/MenuBar/Tools/OCR',
  1586.   '/MenuBar/Tools/User-defined',
  1587.  
  1588.   '/ToolBar/DraggerTool',
  1589.   '/ToolBar/SelectorTool',
  1590.   '/ToolBar/Zoom 100',
  1591.   '/ToolBar/Zoom to fit',
  1592.   '/ToolBar/Zoom in',
  1593.   '/ToolBar/Zoom out',
  1594.   '/ToolBar/Rotate 90',
  1595.   '/ToolBar/Rotate 180',
  1596.   '/ToolBar/Rotate 270',
  1597.  
  1598.   '/Detail_Popup/DraggerTool',
  1599.   '/Detail_Popup/SelectorTool',
  1600.   '/Detail_Popup/Zoom 100',
  1601.   '/Detail_Popup/Zoom to fit',
  1602.   '/Detail_Popup/Zoom in',
  1603.   '/Detail_Popup/Zoom out',
  1604.   '/Detail_Popup/Rotate 90',
  1605.   '/Detail_Popup/Rotate 180',
  1606.   '/Detail_Popup/Rotate 270',
  1607.  
  1608.   '/Thumb_Popup/Rotate 90',
  1609.   '/Thumb_Popup/Rotate 180',
  1610.   '/Thumb_Popup/Rotate 270',
  1611.  );
  1612.  
  1613.  if ( $slist->get_selected_indices ) {
  1614.   foreach (@widgets) {
  1615.    $uimanager->get_widget($_)->set_sensitive(TRUE);
  1616.   }
  1617.  }
  1618.  else {
  1619.   foreach (@widgets) {
  1620.    $uimanager->get_widget($_)->set_sensitive(FALSE);
  1621.   }
  1622.  }
  1623.  if ( $#{ $slist->{data} } > -1 ) {
  1624.   if ( $dependencies{pages} == -1 ) {
  1625.    if ( $dependencies{xdg} ) {
  1626.     $uimanager->get_widget('/MenuBar/File/Email as PDF')->set_sensitive(TRUE);
  1627.     $uimanager->get_widget('/ToolBar/Email as PDF')->set_sensitive(TRUE);
  1628.     $uimanager->get_widget('/Thumb_Popup/Email as PDF')->set_sensitive(TRUE);
  1629.    }
  1630.    if ( $dependencies{imagemagick} and $dependencies{libtiff} ) {
  1631.     $uimanager->get_widget('/MenuBar/File/Save')->set_sensitive(TRUE);
  1632.     $uimanager->get_widget('/ToolBar/Save')->set_sensitive(TRUE);
  1633.     $uimanager->get_widget('/Thumb_Popup/Save')->set_sensitive(TRUE);
  1634.    }
  1635.    $uimanager->get_widget('/MenuBar/File/Print')->set_sensitive(TRUE);
  1636.    $uimanager->get_widget('/ToolBar/Print')->set_sensitive(TRUE);
  1637.    $uimanager->get_widget('/Thumb_Popup/Print')->set_sensitive(TRUE);
  1638.  
  1639.    $dependencies{pages} = $#{ $slist->{data} };
  1640.   }
  1641.  }
  1642.  else {
  1643.   if ( $dependencies{pages} > -1 ) {
  1644.    if ( $dependencies{xdg} ) {
  1645.     $uimanager->get_widget('/MenuBar/File/Email as PDF')->set_sensitive(FALSE);
  1646.     $uimanager->get_widget('/ToolBar/Email as PDF')->set_sensitive(FALSE);
  1647.     $uimanager->get_widget('/Thumb_Popup/Email as PDF')->set_sensitive(FALSE);
  1648.     $windowe->hide if defined $windowe;
  1649.    }
  1650.    if ( $dependencies{imagemagick} and $dependencies{libtiff} ) {
  1651.     $uimanager->get_widget('/MenuBar/File/Save')->set_sensitive(FALSE);
  1652.     $uimanager->get_widget('/ToolBar/Save')->set_sensitive(FALSE);
  1653.     $uimanager->get_widget('/Thumb_Popup/Save')->set_sensitive(FALSE);
  1654.    }
  1655.    $uimanager->get_widget('/MenuBar/File/Print')->set_sensitive(FALSE);
  1656.    $uimanager->get_widget('/ToolBar/Print')->set_sensitive(FALSE);
  1657.    $uimanager->get_widget('/Thumb_Popup/Print')->set_sensitive(FALSE);
  1658.    $windowi->hide if defined $windowi;
  1659.  
  1660.    $dependencies{pages} = $#{ $slist->{data} };
  1661.   }
  1662.  }
  1663.  
  1664.  # If the scan dialog has already been drawn, update the start page spinbutton
  1665.  update_start();
  1666.  return;
  1667. }
  1668.  
  1669. sub display_image {
  1670.  my ($page) = @_;
  1671.  
  1672.  $current_page = $page;
  1673.  
  1674.  # quotes required to prevent File::Temp object being clobbered
  1675.  my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("$current_page->{filename}");
  1676.  $view->set_pixbuf($pixbuf);
  1677.  
  1678.  # Get image dimensions to constrain selector spinbuttons on crop dialog
  1679.  ( $current_page->{w}, $current_page->{h} ) =
  1680.    ( $pixbuf->get_width, $pixbuf->get_height );
  1681.  
  1682.  # Update the ranges on the crop dialog
  1683.  if ( defined($sb_selector_w) and defined($current_page) ) {
  1684.   $sb_selector_w->set_range( 0,
  1685.    $current_page->{w} - $sb_selector_x->get_value );
  1686.   $sb_selector_h->set_range( 0,
  1687.    $current_page->{h} - $sb_selector_y->get_value );
  1688.   $sb_selector_x->set_range( 0,
  1689.    $current_page->{w} - $sb_selector_w->get_value );
  1690.   $sb_selector_y->set_range( 0,
  1691.    $current_page->{h} - $sb_selector_h->get_value );
  1692.  
  1693.   $SETTING{selection}[0] = $sb_selector_x->get_value;
  1694.   $SETTING{selection}[1] = $sb_selector_y->get_value;
  1695.   $SETTING{selection}[2] = $sb_selector_w->get_value;
  1696.   $SETTING{selection}[3] = $sb_selector_h->get_value;
  1697.  
  1698.   $selector->set_selection(
  1699.    Gtk2::Gdk::Rectangle->new( @{ $SETTING{selection} } ) );
  1700.  }
  1701.  
  1702.  # Convert hocr output to Goo:Canvas if defined
  1703.  create_canvas($current_page) if ( defined $current_page->{hocr} );
  1704.  return;
  1705. }
  1706.  
  1707. sub create_canvas {
  1708.  my ($page) = @_;
  1709.  $current_page = $page;
  1710.  
  1711.  # Set up the canvas
  1712.  $canvas = Goo::Canvas->new;
  1713.  my $root = $canvas->get_root_item;
  1714.  unless ( defined $page->{w} ) {
  1715.  
  1716.   # quotes required to prevent File::Temp object being clobbered
  1717.   my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("$page->{filename}");
  1718.   $page->{w} = $pixbuf->get_width;
  1719.   $page->{h} = $pixbuf->get_height;
  1720.  }
  1721.  $canvas->set_bounds( 0, 0, $page->{w}, $page->{h} );
  1722.  
  1723.  # Attach the text to the canvas
  1724.  for my $box ( $page->boxes ) {
  1725.   my ( $x1, $y1, $x2, $y2, $text ) = @$box;
  1726.   boxed_text(
  1727.    text => $text,
  1728.    x1   => $x1,
  1729.    y1   => $y1,
  1730.    x2   => $x2,
  1731.    y2   => $y2,
  1732.    size => abs( $y2 - $y1 )
  1733.   );
  1734.  }
  1735.  
  1736.  # Remove the existing contents
  1737.  $scwin_buffer->remove($_) for ( $scwin_buffer->get_children );
  1738.  
  1739.  $scwin_buffer->add($canvas);
  1740.  $canvas->set_scale( $view->get_zoom );
  1741.  $canvas->show;
  1742.  return;
  1743. }
  1744.  
  1745. # Deletes all scans after warning.
  1746.  
  1747. sub new {
  1748.  
  1749.  # Check that all pages have been saved
  1750.  for ( my $i = 0 ; $i < @{ $slist->{data} } ; $i++ ) {
  1751.   if ( not $slist->{data}[$i][2]{saved} ) {
  1752.    my $response = show_message_dialog(
  1753.     $window,
  1754.     'question',
  1755.     'ok-cancel',
  1756.     $d->get(
  1757.      "Some pages have not been saved.\nDo you really want to clear all pages?")
  1758.    );
  1759.    if ( $response ne 'ok' ) {
  1760.     return FALSE;
  1761.    }
  1762.    else {
  1763.     last;
  1764.    }
  1765.   }
  1766.  }
  1767.  
  1768.  # Update undo/redo buffers
  1769.  take_snapshot();
  1770.  
  1771.  # Deselect everything to prevent error removing selected thumbs
  1772.  $slist->get_selection->unselect_all;
  1773.  
  1774.  # Depopulate the thumbnail list
  1775.  @{ $slist->{data} } = ();
  1776.  
  1777.  # Reset start page in scan dialog
  1778.  reset_start();
  1779.  
  1780.  update_uimanager();
  1781.  return;
  1782. }
  1783.  
  1784. # Create a file filter to show only supported file types in FileChooser dialog
  1785.  
  1786. sub add_filter {
  1787.  my ( $file_chooser, $name, @file_extensions ) = @_;
  1788.  my $filter = Gtk2::FileFilter->new;
  1789.  for my $extension (@file_extensions) {
  1790.   my @filter_pattern;
  1791.  
  1792.   # Create case insensitive pattern
  1793.   for my $byte ( split //, $extension ) {
  1794.    push( @filter_pattern, '[' . uc($byte) . lc($byte) . ']' );
  1795.   }
  1796.   my $new_filter_pattern = join( '', @filter_pattern );
  1797.   $filter->add_pattern( '*.' . $new_filter_pattern );
  1798.  }
  1799.  my $types;
  1800.  for (@file_extensions) {
  1801.   if ( defined $types ) {
  1802.    $types .= ", *.$_";
  1803.   }
  1804.   else {
  1805.    $types = "*.$_";
  1806.   }
  1807.  }
  1808.  $filter->set_name("$name ($types)");
  1809.  $file_chooser->add_filter($filter);
  1810.  $filter = Gtk2::FileFilter->new;
  1811.  $filter->add_pattern('*');
  1812.  $filter->set_name('All files');
  1813.  $file_chooser->add_filter($filter);
  1814.  return;
  1815. }
  1816.  
  1817. sub open_session {
  1818.  my ($filename) = @_;
  1819.  $logger->info("Restoring session in $session");
  1820.  $slist->open_session( $session, $filename );
  1821.  update_uimanager();
  1822.  return;
  1823. }
  1824.  
  1825. # Helper function to set up thread progress bar
  1826.  
  1827. sub setup_tpbar {
  1828.  my ( $thread, $process, $completed, $total, $pid ) = @_;
  1829.  if ( $total and defined($process) ) {
  1830.   $tpbar->set_text(
  1831.    sprintf(
  1832.     $d->get("Process %i of %i (%s)"), $completed + 1, $total, $process
  1833.    )
  1834.   );
  1835.   $tpbar->set_fraction( ( $completed + 0.5 ) / $total );
  1836.   $thbox->show_all;
  1837.  
  1838. # Pass the signal back to:
  1839. # 1. be able to cancel it when the process has finished
  1840. # 2. flag that the progress bar has been set up
  1841. #    and avoid the race condition where the callback is entered before the $completed and $total variables have caught up
  1842.   return $tcbutton->signal_connect(
  1843.    clicked => sub {
  1844.     $slist->cancel($pid);
  1845.     $thbox->hide;
  1846.    }
  1847.   );
  1848.  }
  1849.  return;
  1850. }
  1851.  
  1852. # Helper function to update thread progress bar
  1853.  
  1854. sub update_tpbar {
  1855.  my (%options) = @_;
  1856.  if ( $options{total} ) {
  1857.   if ( defined $options{process_name} ) {
  1858.    $options{process_name} .= " - $options{message}"
  1859.      if ( defined $options{message} );
  1860.    $tpbar->set_text(
  1861.     sprintf(
  1862.      $d->get("Process %i of %i (%s)"),
  1863.      $options{jobs_completed} + 1, $options{jobs_total},
  1864.      $options{process_name}
  1865.     )
  1866.    );
  1867.   }
  1868.   else {
  1869.    $tpbar->set_text(
  1870.     sprintf(
  1871.      $d->get("Process %i of %i"),
  1872.      $options{jobs_completed} + 1,
  1873.      $options{jobs_total}
  1874.     )
  1875.    );
  1876.   }
  1877.   if ( defined $options{progress} ) {
  1878.    $tpbar->set_fraction(
  1879.     ( $options{jobs_completed} + $options{progress} ) / $options{jobs_total} );
  1880.   }
  1881.   else {
  1882.    $tpbar->set_fraction(
  1883.     ( $options{jobs_completed} + 0.5 ) / $options{jobs_total} );
  1884.   }
  1885.   $thbox->show_all;
  1886.   return TRUE;
  1887.  }
  1888.  return;
  1889. }
  1890.  
  1891. # Throw up file selector and open selected file
  1892.  
  1893. sub open_dialog {
  1894.  
  1895.  # cd back to cwd to get filename
  1896.  chdir $SETTING{'cwd'};
  1897.  
  1898.  my $file_chooser = Gtk2::FileChooserDialog->new(
  1899.   $d->get('Open image'),
  1900.   $window, 'open',
  1901.   'gtk-cancel' => 'cancel',
  1902.   'gtk-ok'     => 'ok'
  1903.  );
  1904.  $file_chooser->set_select_multiple(TRUE);
  1905.  $file_chooser->set_default_response('ok');
  1906.  $file_chooser->set_current_folder( $SETTING{'cwd'} );
  1907.  add_filter( $file_chooser, $d->get('Image files'),
  1908.   'jpg', 'png', 'pnm', 'gif', 'tif', 'tiff', 'pdf', 'djvu', 'ps', 'gs2p' );
  1909.  
  1910.  if ( 'ok' eq $file_chooser->run ) {
  1911.  
  1912.   # cd back to tempdir to import
  1913.   chdir $session;
  1914.  
  1915.   # Update undo/redo buffers
  1916.   take_snapshot();
  1917.  
  1918.   my @filename = $file_chooser->get_filenames;
  1919.   $file_chooser->destroy;
  1920.  
  1921.   # Update cwd
  1922.   $SETTING{'cwd'} = dirname( $filename[0] );
  1923.  
  1924.   for (@filename) {
  1925.    my ( $signal, $pid );
  1926.    $pid = $slist->get_file_info(
  1927.     path            => $_,
  1928.     queued_callback => sub {
  1929.      return update_tpbar(@_);
  1930.     },
  1931.     started_callback => sub {
  1932.      my ( $thread, $process, $completed, $total ) = @_;
  1933.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  1934.      return TRUE if ( defined $signal );
  1935.     },
  1936.     finished_callback => sub {
  1937.      my ( $info, $pending ) = @_;
  1938.      if ( $info->{format} eq 'session file' ) {
  1939.       open_session( $info->{path} );
  1940.      }
  1941.      elsif ( $info->{pages} > 1 ) {
  1942.       my $windowq = Gscan2pdf::Dialog->new(
  1943.        'transient-for' => $window,
  1944.        title           => $d->get('Pages to extract'),
  1945.        border_width    => $border_width
  1946.       );
  1947.       my $vbox = $windowq->get('vbox');
  1948.       my $hbox = Gtk2::HBox->new;
  1949.       $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  1950.       my $label = Gtk2::Label->new( $d->get('First page to extract') );
  1951.       $hbox->pack_start( $label, FALSE, FALSE, 0 );
  1952.       my $spinbuttonf =
  1953.         Gtk2::SpinButton->new_with_range( 1, $info->{pages}, 1 );
  1954.       $hbox->pack_end( $spinbuttonf, FALSE, FALSE, 0 );
  1955.       $hbox = Gtk2::HBox->new;
  1956.       $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  1957.       $label = Gtk2::Label->new( $d->get('Last page to extract') );
  1958.       $hbox->pack_start( $label, FALSE, FALSE, 0 );
  1959.       my $spinbuttonl =
  1960.         Gtk2::SpinButton->new_with_range( 1, $info->{pages}, 1 );
  1961.       $spinbuttonl->set_value( $info->{pages} );
  1962.       $hbox->pack_end( $spinbuttonl, FALSE, FALSE, 0 );
  1963.  
  1964.       # HBox for buttons
  1965.       my $hboxb = Gtk2::HBox->new;
  1966.       $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  1967.  
  1968.       # OK button
  1969.       my $obutton = Gtk2::Button->new_from_stock('gtk-ok');
  1970.       $hboxb->pack_start( $obutton, TRUE, TRUE, 0 );
  1971.       $obutton->signal_connect(
  1972.        clicked => sub {
  1973.         $windowq->destroy;
  1974.         import_file( $info, $spinbuttonf->get_value, $spinbuttonl->get_value );
  1975.        }
  1976.       );
  1977.  
  1978.       # Cancel button
  1979.       my $cbutton = Gtk2::Button->new_from_stock('gtk-cancel');
  1980.       $hboxb->pack_start( $cbutton, TRUE, TRUE, 0 );
  1981.       $cbutton->signal_connect(
  1982.        clicked => sub {
  1983.         $windowq->destroy;
  1984.         return;
  1985.        }
  1986.       );
  1987.       $windowq->show_all;
  1988.      }
  1989.      else {
  1990.       import_file( $info, 1, 1 );
  1991.      }
  1992.     },
  1993.     error_callback => sub {
  1994.      my ($message) = @_;
  1995.      show_message_dialog( $window, 'error', 'close', $message );
  1996.     }
  1997.    );
  1998.   }
  1999.  }
  2000.  else {
  2001.   $file_chooser->destroy;
  2002.  }
  2003.  
  2004.  # cd back to tempdir
  2005.  chdir $session;
  2006.  return;
  2007. }
  2008.  
  2009. # Wrapper for $slist->import_file
  2010.  
  2011. sub import_file {
  2012.  my ( $info, $first_page, $last_page ) = @_;
  2013.  my ( $signal, $pid );
  2014.  $pid = $slist->import_file(
  2015.   info            => $info,
  2016.   first           => $first_page,
  2017.   last            => $last_page,
  2018.   queued_callback => sub {
  2019.    return update_tpbar(@_);
  2020.   },
  2021.   started_callback => sub {
  2022.    my ( $thread, $process, $completed, $total ) = @_;
  2023.    $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  2024.    return TRUE if ( defined $signal );
  2025.   },
  2026.   running_callback => sub {
  2027.    return update_tpbar(@_);
  2028.   },
  2029.   finished_callback => sub {
  2030.    my ( $new_page, $pending ) = @_;
  2031.    $thbox->hide_all unless $pending;
  2032.    $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  2033.    update_uimanager();
  2034.   },
  2035.   error_callback => sub {
  2036.    my ($message) = @_;
  2037.    show_message_dialog( $window, 'error', 'close', $message );
  2038.   }
  2039.  );
  2040.  return;
  2041. }
  2042.  
  2043. # Add a frame and radio buttons to $vbox,
  2044. sub add_page_range {
  2045.  my ($vbox) = @_;
  2046.  my $frame = Gtk2::Frame->new( $d->get('Page Range') );
  2047.  $vbox->pack_start( $frame, FALSE, FALSE, 0 );
  2048.  
  2049.  my $pr = Gscan2pdf::PageRange->new;
  2050.  $pr->set_active( $SETTING{'Page range'} )
  2051.    if ( defined $SETTING{'Page range'} );
  2052.  $pr->signal_connect(
  2053.   changed => sub {
  2054.    $SETTING{'Page range'} = $pr->get_active;
  2055.   }
  2056.  );
  2057.  $frame->add($pr);
  2058.  push @prlist, $pr;
  2059.  return;
  2060. }
  2061.  
  2062. # return string of filenames depending on which radiobutton is active
  2063.  
  2064. sub get_pagelist {
  2065.  my $n;
  2066.  my $pagelist;
  2067.  if ( $SETTING{'Page range'} eq 'all' ) {
  2068.   $n        = $#{ $slist->{data} };
  2069.   $pagelist = $slist->{data}[0][2]{filename};
  2070.   my $i = 1;
  2071.   while ( $i < @{ $slist->{data} } ) {
  2072.    $pagelist = $pagelist . " " . $slist->{data}[$i][2]{filename};
  2073.    ++$i;
  2074.   }
  2075.  }
  2076.  elsif ( $SETTING{'Page range'} eq 'selected' ) {
  2077.   my @page = $slist->get_selected_indices;
  2078.   $n        = $#page;
  2079.   $pagelist = $slist->{data}[ $page[0] ][2]{filename};
  2080.   my $i = 1;
  2081.   while ( $i < @page ) {
  2082.    $pagelist = $pagelist . " " . $slist->{data}[ $page[$i] ][2]{filename};
  2083.    ++$i;
  2084.   }
  2085.  }
  2086.  
  2087.  return ( $pagelist, $n );
  2088. }
  2089.  
  2090. # Add PDF options to $vbox
  2091.  
  2092. sub add_pdf_metadata {
  2093.  my ($vbox) = @_;
  2094.  
  2095.  # Frame for metadata
  2096.  my $frame = Gtk2::Frame->new( $d->get('Metadata') );
  2097.  $vbox->pack_start( $frame, TRUE, TRUE, 0 );
  2098.  my $vboxm = Gtk2::VBox->new;
  2099.  $vboxm->set_border_width($border_width);
  2100.  $frame->add($vboxm);
  2101.  
  2102.  # Date/time
  2103.  my $hboxe = Gtk2::HBox->new;
  2104.  $vboxm->pack_start( $hboxe, TRUE, TRUE, 0 );
  2105.  my $labele = Gtk2::Label->new( $d->get('Date') );
  2106.  $hboxe->pack_start( $labele, FALSE, FALSE, 0 );
  2107.  my ( $day, $month, $year ) =
  2108.    ( localtime( time + $SETTING{'date offset'} * 24 * 60 * 60 ) )[ 3, 4, 5 ];
  2109.  $year  += 1900;
  2110.  $month += 1;
  2111.  
  2112.  my $button =
  2113.    Gtk2::Button->new( sprintf( "%04d-%02d-%02d", $year, $month, $day ) );
  2114.  $button->signal_connect(
  2115.   clicked => sub {
  2116.    my $window_date = Gscan2pdf::Dialog->new(
  2117.     'transient-for' => $windowi,
  2118.     title           => $d->get('Select Date'),
  2119.     border_width    => $border_width
  2120.    );
  2121.    my $vbox_date = $window_date->get('vbox');
  2122.    $window_date->set_resizable(FALSE);
  2123.  
  2124.    my $calendar = Gtk2::Calendar->new;
  2125.    $calendar->select_day($day);
  2126.    $calendar->select_month( $month - 1, $year );
  2127.    $calendar->signal_connect(
  2128.     day_selected_double_click => sub {
  2129.      ( $year, $month, $day ) = $calendar->get_date;
  2130.      $month += 1;
  2131.      $button->set_label( sprintf( "%04d-%02d-%02d", $year, $month, $day ) );
  2132.      use Time::Local;
  2133.      $SETTING{'date offset'} = int(
  2134.       ( timelocal( 0, 0, 0, $day, $month - 1, $year ) - time ) / 60 / 60 / 24 );
  2135.      $window_date->destroy;
  2136.     }
  2137.    );
  2138.    $vbox_date->pack_start( $calendar, TRUE, TRUE, 0 );
  2139.  
  2140.    my $today = Gtk2::Button->new( $d->get('Today') );
  2141.    $today->signal_connect(
  2142.     clicked => sub {
  2143.      ( $day, $month, $year ) = ( localtime() )[ 3, 4, 5 ];
  2144.      $year += 1900;
  2145.      $calendar->select_day($day);
  2146.      $calendar->select_month( $month, $year );
  2147.     }
  2148.    );
  2149.    $vbox_date->pack_start( $today, TRUE, TRUE, 0 );
  2150.  
  2151.    $window_date->show_all;
  2152.   }
  2153.  );
  2154.  $tooltips->set_tip( $button, $d->get('Year-Month-Day') );
  2155.  $hboxe->pack_end( $button, TRUE, TRUE, 0 );
  2156.  
  2157.  # Document author
  2158.  my $hboxa = Gtk2::HBox->new;
  2159.  $vboxm->pack_start( $hboxa, TRUE, TRUE, 0 );
  2160.  my $labela = Gtk2::Label->new( $d->get('Document author') );
  2161.  $hboxa->pack_start( $labela, FALSE, FALSE, 0 );
  2162.  my $entrya = Gtk2::Entry->new;
  2163.  $hboxa->pack_end( $entrya, TRUE, TRUE, 0 );
  2164.  $entrya->set_text( $SETTING{author} ) if ( defined( $SETTING{author} ) );
  2165.  
  2166.  # Title
  2167.  my $hboxt = Gtk2::HBox->new;
  2168.  $vboxm->pack_start( $hboxt, TRUE, TRUE, 0 );
  2169.  my $labelt = Gtk2::Label->new( $d->get('Title') );
  2170.  $hboxt->pack_start( $labelt, FALSE, FALSE, 0 );
  2171.  my $entryt = Gtk2::Entry->new;
  2172.  $hboxt->pack_end( $entryt, TRUE, TRUE, 0 );
  2173.  $entryt->set_text( $SETTING{title} ) if ( defined( $SETTING{title} ) );
  2174.  
  2175.  # Subject
  2176.  my $hboxs = Gtk2::HBox->new;
  2177.  $vboxm->pack_start( $hboxs, TRUE, TRUE, 0 );
  2178.  my $labels = Gtk2::Label->new( $d->get('Subject') );
  2179.  $hboxs->pack_start( $labels, FALSE, FALSE, 0 );
  2180.  my $entrys = Gtk2::Entry->new;
  2181.  $hboxs->pack_end( $entrys, TRUE, TRUE, 0 );
  2182.  $entrys->set_text( $SETTING{subject} ) if ( defined( $SETTING{subject} ) );
  2183.  
  2184.  # Keywords
  2185.  my $hboxk = Gtk2::HBox->new;
  2186.  $vboxm->pack_start( $hboxk, TRUE, TRUE, 0 );
  2187.  my $labelk = Gtk2::Label->new( $d->get('Keywords') );
  2188.  $hboxk->pack_start( $labelk, FALSE, FALSE, 0 );
  2189.  my $entryk = Gtk2::Entry->new;
  2190.  $hboxk->pack_end( $entryk, TRUE, TRUE, 0 );
  2191.  $entryk->set_text( $SETTING{keywords} ) if ( defined( $SETTING{keywords} ) );
  2192.  
  2193.  return ( $entrya, $entryt, $entrys, $entryk );
  2194. }
  2195.  
  2196. sub update_PDF_settings {
  2197.  my ( $entrya, $entryt, $entrys, $entryk ) = @_;
  2198.  
  2199.  # Get metadata
  2200.  $SETTING{author}   = $entrya->get_text;
  2201.  $SETTING{title}    = $entryt->get_text;
  2202.  $SETTING{subject}  = $entrys->get_text;
  2203.  $SETTING{keywords} = $entryk->get_text;
  2204.  return;
  2205. }
  2206.  
  2207. sub get_pdf_metadata {
  2208.  my %h;
  2209.  $h{Author} = $SETTING{author} if defined $SETTING{author};
  2210.  my ( $day, $month, $year ) =
  2211.    ( localtime( time + $SETTING{'date offset'} * 24 * 60 * 60 ) )[ 3, 4, 5 ];
  2212.  $year  += 1900;
  2213.  $month += 1;
  2214.  $h{CreationDate} =
  2215.    sprintf( "D:%4i%02i%02i000000+00'00'", $year, $month, $day );
  2216.  $h{ModDate}  = sprintf( "D:%4i%02i%02i000000+00'00'", $year, $month, $day );
  2217.  $h{Creator}  = "$prog_name v$version";
  2218.  $h{Producer} = "PDF::API2";
  2219.  $h{Title}    = $SETTING{title} if defined $SETTING{title};
  2220.  $h{Subject}  = $SETTING{subject} if defined $SETTING{subject};
  2221.  $h{Keywords} = $SETTING{keywords} if defined $SETTING{keywords};
  2222.  return \%h;
  2223. }
  2224.  
  2225. # Draw text on the canvas with a box around it
  2226.  
  2227. sub boxed_text {
  2228.  my (%options) = @_;
  2229.  my $root      = $canvas->get_root_item;
  2230.  my $g         = Goo::Canvas::Group->new($root);
  2231.  $g->translate( $options{x1}, $options{y1} );
  2232.  
  2233. # draw the rect first to make sure the text goes on top and receives any mouse clicks
  2234.  my $rect = Goo::Canvas::Rect->new(
  2235.   $g, 0, 0,
  2236.   $options{x2} - $options{x1},
  2237.   $options{y2} - $options{y1}
  2238.  );
  2239.  my $text =
  2240.    Goo::Canvas::Text->new( $g, $options{text}, 0, 0,
  2241.   $options{x2} - $options{x1},
  2242.   'nw', 'height' => $options{size}, );
  2243.  
  2244.  # clicking text box produces a dialog to edit the text
  2245.  $text->signal_connect(
  2246.   'button-press-event' => sub {
  2247.    my ( $widget, $target, $ev ) = @_;
  2248.    my $dialog = Gtk2::Dialog->new(
  2249.     $d->get('Editing text') . "...", $window,
  2250.     'modal',
  2251.     'gtk-ok'     => 'ok',
  2252.     'gtk-cancel' => 'cancel'
  2253.    );
  2254.    my $textview   = Gtk2::TextView->new;
  2255.    my $textbuffer = $textview->get_buffer;
  2256.    $textbuffer->set( text => $widget->get('text') );
  2257.    $dialog->vbox->add($textview);
  2258.    $dialog->set_default_response('ok');
  2259.    $dialog->show_all;
  2260.  
  2261.    if ( $dialog->run eq 'ok' ) {
  2262.     $widget->set( text => $textbuffer->get('text') );
  2263.     canvas2hocr();
  2264.    }
  2265.    $dialog->destroy;
  2266.    $canvas->pointer_ungrab( $widget, $ev->time );
  2267.    return TRUE;
  2268.   }
  2269.  );
  2270.  
  2271.  # $rect->signal_connect(
  2272.  #  'button-press-event' => sub {
  2273.  #   my ( $widget, $target, $ev ) = @_;
  2274.  #   print "rect button-press-event\n";
  2275.  #   #  return TRUE;
  2276.  #  }
  2277.  # );
  2278.  # $g->signal_connect(
  2279.  #  'button-press-event' => sub {
  2280.  #   my ( $widget, $target, $ev ) = @_;
  2281.  #   print "group $widget button-press-event\n";
  2282.  #   my $n = $widget->get_n_children;
  2283.  #   for ( my $i = 0 ; $i < $n ; $i++ ) {
  2284.  #    my $item = $widget->get_child($i);
  2285.  #    if ( $item->isa('Goo::Canvas::Text') ) {
  2286.  #     print "contains $item\n", $item->get('text'), "\n";
  2287.  #     last;
  2288.  #    }
  2289.  #   }
  2290.  #   #  return TRUE;
  2291.  #  }
  2292.  # );
  2293.  return;
  2294. }
  2295.  
  2296. # Convert the canvas into hocr
  2297.  
  2298. sub canvas2hocr {
  2299.  my ( $x, $y, $w, $h ) = $canvas->get_bounds;
  2300.  
  2301.  $current_page->{hocr} = <<"EOS";
  2302. <!DOCTYPE html
  2303.  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN
  2304.  http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2305. <html xmlns="http://www.w3.org/1999/xhtml">
  2306. <head>
  2307.  <meta content="ocr_line ocr_page" name="ocr-capabilities"/>
  2308.  <meta content="en" name="ocr-langs"/>
  2309.  <meta content="Latn" name="ocr-scripts"/>
  2310.  <meta content="" name="ocr-microformats"/>
  2311.  <title>OCR Output</title>
  2312. </head>
  2313. <body>
  2314.  <div class="ocr_page" title="bbox $x $y $w $h>
  2315.  <p class="ocr_par">
  2316. EOS
  2317.  
  2318.  my $root = $canvas->get_root_item;
  2319.  for my $i ( 0 .. $root->get_n_children - 1 ) {
  2320.   my $group  = $root->get_child($i);
  2321.   my $bounds = $group->get_bounds;
  2322.   my ( $x1, $y1, $x2, $y2 ) =
  2323.     ( $bounds->x1 + 1, $bounds->y1 + 1, $bounds->x2 - 1, $bounds->y2 - 1 );
  2324.  
  2325. #  my $matrix = $group->get_transform; FIXME: use this as soon as Goo::Canvas 0.07 is in generally available
  2326. #  my ( $x1, $y1 ) = ( $matrix->x0, $matrix->y0 );
  2327. #  my ( $x2, $y2, $text );
  2328.   my ($text);
  2329.   for my $i ( 0 .. $group->get_n_children - 1 ) {
  2330.    my $item = $group->get_child($i);
  2331.    if ( $item->isa('Goo::Canvas::Rect') ) {
  2332.  
  2333.   #    ( $x2, $y2 ) = ( $x1 + $item->get('width'), $y1 + $item->get('height') );
  2334.    }
  2335.    elsif ( $item->isa('Goo::Canvas::Text') ) {
  2336.     $text = $item->get('text');
  2337.    }
  2338.    $current_page->{hocr} .=
  2339.      "  <span class=\"ocr_line\" title=\"bbox $x1 $y1 $x2 $y2\">$text</span>\n"
  2340.      if ( defined($x2) and defined($text) );
  2341.   }
  2342.  }
  2343.  $current_page->{hocr} .= "</p></div></body></html>";
  2344.  return;
  2345. }
  2346.  
  2347. # Throw up file selector and save selected pages as PDF under given name.
  2348.  
  2349. sub save_PDF {
  2350.  
  2351.  # cd back to cwd to save
  2352.  chdir $SETTING{'cwd'};
  2353.  
  2354.  # Set up file selector
  2355.  my $file_chooser = Gtk2::FileChooserDialog->new(
  2356.   $d->get('PDF filename'),
  2357.   $windowi, 'save',
  2358.   'gtk-cancel' => 'cancel',
  2359.   'gtk-save'   => 'ok'
  2360.  );
  2361.  
  2362.  my ( $dday, $dmonth, $dyear ) =
  2363.    ( localtime( time + $SETTING{'date offset'} * 24 * 60 * 60 ) )[ 3, 4, 5 ];
  2364.  $dyear += 1900;
  2365.  $dmonth = sprintf( "%02d", $dmonth + 1 );
  2366.  $dday   = sprintf( "%02d", $dday );
  2367.  my ( $tday, $tmonth, $tyear ) = ( localtime(time) )[ 3, 4, 5 ];
  2368.  $tyear += 1900;
  2369.  $tmonth = sprintf( "%02d", $tmonth + 1 );
  2370.  $tday   = sprintf( "%02d", $tday );
  2371.  
  2372.  my $filename = $SETTING{'default filename'};
  2373.  $filename =~ s/%a/$SETTING{author}/g;
  2374.  $filename =~ s/%t/$SETTING{title}/g;
  2375.  $filename =~ s/%y/$dyear/g;
  2376.  $filename =~ s/%Y/$tyear/g;
  2377.  $filename =~ s/%m/$dmonth/g;
  2378.  $filename =~ s/%M/$tmonth/g;
  2379.  $filename =~ s/%d/$dday/g;
  2380.  $filename =~ s/%D/$tday/g;
  2381.  
  2382.  $file_chooser->set_current_name($filename);
  2383.  $file_chooser->set_default_response('ok');
  2384.  $file_chooser->set_current_folder( $SETTING{'cwd'} );
  2385.  add_filter( $file_chooser, $d->get('PDF files'), 'pdf' );
  2386.  $file_chooser->set_do_overwrite_confirmation(TRUE);
  2387.  $file_chooser->signal_connect(
  2388.   response => sub {
  2389.    my ( $dialog, $response ) = @_;
  2390.    $logger->debug("PDF save filename dialog returned $response");
  2391.    if ( $response eq 'ok' ) {
  2392.     $filename = $file_chooser->get_filename;
  2393.     if ( $filename !~ /\.pdf$/ix ) {
  2394.      $filename = $filename . '.pdf';
  2395.      if ( -f $filename ) {
  2396.  
  2397.       # File exists; get the file chooser to ask the user to confirm.
  2398.       $file_chooser->set_filename($filename);
  2399.  
  2400.       # Give the name change time to take effect.
  2401.       Glib::Idle->add( sub { $file_chooser->response('ok'); } );
  2402.       return;
  2403.      }
  2404.     }
  2405.  
  2406.     # Check that the file can be written
  2407.     if ( not -w dirname($filename) or ( -f $filename and not -w $filename ) ) {
  2408.      show_message_dialog( $file_chooser, 'error', 'close',
  2409.       sprintf( $d->get("File %s is read-only"), $filename ) );
  2410.      return;
  2411.     }
  2412.  
  2413.     # Update cwd
  2414.     $SETTING{'cwd'} = dirname($filename);
  2415.  
  2416.     # Compile list of pages
  2417.     my @list_of_pages;
  2418.     my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  2419.     for (@pagelist) {
  2420.      push @list_of_pages, $slist->{data}[$_][2];
  2421.     }
  2422.  
  2423.     # Compile options
  2424.     my %options = (
  2425.      compression      => $SETTING{'pdf compression'},
  2426.      downsample       => $SETTING{downsample},
  2427.      'downsample dpi' => $SETTING{'downsample dpi'},
  2428.      quality          => $SETTING{quality},
  2429.      font             => $SETTING{'pdf font'},
  2430.     );
  2431.  
  2432.     # Create the PDF
  2433.     $logger->debug("Started saving $filename");
  2434.     my ( $signal, $pid );
  2435.     $pid = $slist->save_pdf(
  2436.      path            => $filename,
  2437.      list_of_pages   => \@list_of_pages,
  2438.      metadata        => get_pdf_metadata(),
  2439.      options         => \%options,
  2440.      queued_callback => sub {
  2441.       return update_tpbar(@_);
  2442.      },
  2443.      started_callback => sub {
  2444.       my ( $thread, $process, $completed, $total ) = @_;
  2445.       $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  2446.       return TRUE if ( defined $signal );
  2447.      },
  2448.      running_callback => sub {
  2449.       return update_tpbar(@_);
  2450.      },
  2451.      finished_callback => sub {
  2452.       my ( $new_page, $pending ) = @_;
  2453.       $thbox->hide_all unless $pending;
  2454.       $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  2455.       mark_pages(@pagelist);
  2456.       system("xdg-open \"$filename\" &")
  2457.         if ( defined( $SETTING{'view files toggle'} )
  2458.        and $SETTING{'view files toggle'} );
  2459.       $logger->debug("Finished saving $filename");
  2460.      },
  2461.      error_callback => sub {
  2462.       my ($message) = @_;
  2463.       show_message_dialog( $window, 'error', 'close', $message );
  2464.      }
  2465.     );
  2466.  
  2467.     $windowi->hide if defined $windowi;
  2468.    }
  2469.    $file_chooser->destroy;
  2470.   }
  2471.  );
  2472.  $file_chooser->show;
  2473.  
  2474.  # cd back to tempdir
  2475.  chdir $session;
  2476.  return;
  2477. }
  2478.  
  2479. # Set up quality spinbutton here so that it can be shown or hidden by callback
  2480.  
  2481. sub add_quality_spinbutton {
  2482.  
  2483.  my ($vbox) = @_;
  2484.  my $hbox = Gtk2::HBox->new;
  2485.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  2486.  my $label = Gtk2::Label->new( $d->get('JPEG Quality') );
  2487.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  2488.  my $spinbutton = Gtk2::SpinButton->new_with_range( 1, 100, 1 );
  2489.  $spinbutton->set_value( $SETTING{'quality'} );
  2490.  $hbox->pack_end( $spinbutton, FALSE, FALSE, 0 );
  2491.  return ( $hbox, $spinbutton );
  2492. }
  2493.  
  2494. sub add_pdf_compression {
  2495.  my ($vbox) = @_;
  2496.  
  2497.  # Downsample options
  2498.  my $hboxd = Gtk2::HBox->new;
  2499.  $vbox->pack_start( $hboxd, FALSE, FALSE, 0 );
  2500.  my $button = Gtk2::CheckButton->new( $d->get('Downsample to') );
  2501.  $button->set_active(TRUE);
  2502.  $hboxd->pack_start( $button, FALSE, FALSE, 0 );
  2503.  my $spinbutton = Gtk2::SpinButton->new_with_range( 9, 2400, 1 );
  2504.  $spinbutton->set_value( $SETTING{'downsample dpi'} );
  2505.  my $label = Gtk2::Label->new( $d->get('PPI') );
  2506.  $hboxd->pack_end( $label,      FALSE, FALSE, 0 );
  2507.  $hboxd->pack_end( $spinbutton, FALSE, FALSE, 0 );
  2508.  $button->signal_connect(
  2509.   toggled => sub {
  2510.  
  2511.    if ( $button->get_active ) {
  2512.     $spinbutton->set_sensitive(TRUE);
  2513.    }
  2514.    else {
  2515.     $spinbutton->set_sensitive(FALSE);
  2516.    }
  2517.   }
  2518.  );
  2519.  $button->set_active( $SETTING{'downsample'} );
  2520.  
  2521.  # Compression options
  2522.  my @compression = (
  2523.   [
  2524.    'auto', $d->get('Automatic'),
  2525.    $d->get('Let gscan2pdf which type of compression to use.')
  2526.   ],
  2527.   [
  2528.    'lzw', $d->get('LZW'),
  2529.    $d->get('Compress output with Lempel-Ziv & Welch encoding.')
  2530.   ],
  2531.   [ 'zip', $d->get('Zip'), $d->get('Compress output with deflate encoding.') ],
  2532.   [
  2533.    'packbits', $d->get('Packbits'),
  2534.    $d->get('Compress output with Packbits encoding.')
  2535.   ],
  2536.  
  2537. # g3 and 4 give an error message
  2538. #  [ 'g3', $d->get('G3'), $d->get('Compress output with CCITT Group 3 encoding.') ],
  2539. #  [ 'g4', $d->get('G4'), $d->get('Compress output with CCITT Group 4 encoding.') ],
  2540.   [ 'png', $d->get('PNG'),  $d->get('Compress output with PNG encoding.') ],
  2541.   [ 'jpg', $d->get('JPEG'), $d->get('Compress output with JPEG encoding.') ],
  2542.   [
  2543.    'none', $d->get('None'),
  2544.    $d->get('Use no compression algorithm on output.')
  2545.   ],
  2546.  );
  2547.  
  2548.  # Compression ComboBox
  2549.  my $hbox = Gtk2::HBox->new;
  2550.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  2551.  $label = Gtk2::Label->new( $d->get('Compression') );
  2552.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  2553.  
  2554.  # Set up quality spinbutton here so that it can be shown or hidden by callback
  2555.  my ( $hboxq, $spinbuttonq ) = add_quality_spinbutton($vbox);
  2556.  my $combob = combobox_from_array(@compression);
  2557.  $combob->signal_connect(
  2558.   changed => sub {
  2559.    if ( $compression[ $combob->get_active ][0] eq 'jpg' ) {
  2560.     $hboxq->show_all;
  2561.    }
  2562.    else {
  2563.     $hboxq->hide_all;
  2564.    }
  2565.   }
  2566.  );
  2567.  combobox_set_active( $combob, $SETTING{'pdf compression'}, @compression );
  2568.  $hbox->pack_end( $combob, FALSE, FALSE, 0 );
  2569.  
  2570.  return ( $button, $spinbutton, $combob, $hboxq, $spinbuttonq, @compression );
  2571. }
  2572.  
  2573. # Display page selector and on save a fileselector.
  2574.  
  2575. sub save_dialog {
  2576.  
  2577.  # $SETTING{'Page range'} = 'selected' if $SETTING{'RMB'};
  2578.  
  2579.  if ( defined $windowi ) {
  2580.   $windowi->present;
  2581.   return;
  2582.  }
  2583.  
  2584.  $windowi = Gscan2pdf::Dialog->new(
  2585.   'transient-for'  => $window,
  2586.   title            => $d->get('Save'),
  2587.   'hide-on-delete' => TRUE,
  2588.   border_width     => $border_width
  2589.  );
  2590.  my $vbox = $windowi->get('vbox');
  2591.  
  2592.  # Frame for page range
  2593.  add_page_range($vbox);
  2594.  
  2595.  # Image type ComboBox
  2596.  my $hboxi = Gtk2::HBox->new;
  2597.  $vbox->pack_start( $hboxi, TRUE, TRUE, 0 );
  2598.  my $label = Gtk2::Label->new( $d->get('Image type') );
  2599.  $hboxi->pack_start( $label, FALSE, FALSE, 0 );
  2600.  
  2601.  my @type = (
  2602.   [ 'pdf', $d->get('PDF'), $d->get('Portable Document Format') ],
  2603.   [ 'gif', $d->get('GIF'), $d->get('CompuServe graphics interchange format') ],
  2604.   [
  2605.    'jpg', $d->get('JPEG'),
  2606.    $d->get('Joint Photographic Experts Group JFIF format')
  2607.   ],
  2608.   [ 'png',     $d->get('PNG'),     $d->get('Portable Network Graphics') ],
  2609.   [ 'pnm',     $d->get('PNM'),     $d->get('Portable anymap') ],
  2610.   [ 'ps',      $d->get('PS'),      $d->get('Postscript') ],
  2611.   [ 'tif',     $d->get('TIFF'),    $d->get('Tagged Image File Format') ],
  2612.   [ 'txt',     $d->get('Text'),    $d->get('Plain text') ],
  2613.   [ 'session', $d->get('Session'), $d->get('gscan2pdf session file') ],
  2614.  );
  2615.  push @type, [ 'djvu', $d->get('DjVu'), $d->get('Deja Vu') ]
  2616.    if $dependencies{djvu};
  2617.  
  2618.  my @tiff_compression = (
  2619.   [
  2620.    'lzw', $d->get('LZW'),
  2621.    $d->get('Compress output with Lempel-Ziv & Welch encoding.')
  2622.   ],
  2623.   [ 'zip', $d->get('Zip'), $d->get('Compress output with deflate encoding.') ],
  2624.  
  2625.   # jpeg rather than jpg needed here because tiffcp uses -c jpeg
  2626.   [ 'jpeg', $d->get('JPEG'), $d->get('Compress output with JPEG encoding.') ],
  2627.   [
  2628.    'packbits', $d->get('Packbits'),
  2629.    $d->get('Compress output with Packbits encoding.')
  2630.   ],
  2631.   [
  2632.    'g3', $d->get('G3'),
  2633.    $d->get('Compress output with CCITT Group 3 encoding.')
  2634.   ],
  2635.   [
  2636.    'g4', $d->get('G4'),
  2637.    $d->get('Compress output with CCITT Group 4 encoding.')
  2638.   ],
  2639.   [
  2640.    'none', $d->get('None'),
  2641.    $d->get('Use no compression algorithm on output.')
  2642.   ],
  2643.  );
  2644.  
  2645.  # Compression ComboBox
  2646.  my $hboxc = Gtk2::HBox->new;
  2647.  $vbox->pack_start( $hboxc, FALSE, FALSE, 0 );
  2648.  $label = Gtk2::Label->new( $d->get('Compression') );
  2649.  $hboxc->pack_start( $label, FALSE, FALSE, 0 );
  2650.  
  2651.  # Set up quality spinbutton here so that it can be shown or hidden by callback
  2652.  my ( $hboxtq, $spinbuttontq ) = add_quality_spinbutton($vbox);
  2653.  $label = Gtk2::Label->new( $d->get('tiff') );
  2654.  $hboxtq->pack_start( $label, FALSE, FALSE, 0 );
  2655.  
  2656.  # Fill compression ComboBox
  2657.  my $combobtc = combobox_from_array(@tiff_compression);
  2658.  $combobtc->signal_connect(
  2659.   changed => sub {
  2660.    if ( $tiff_compression[ $combobtc->get_active ][0] eq 'jpeg' ) {
  2661.     $hboxtq->show_all;
  2662.    }
  2663.    else {
  2664.     $hboxtq->hide_all;
  2665.     $windowi->resize( 100, 100 );    # Doesn't matter that 200x200 is too small
  2666.    }
  2667.   }
  2668.  );
  2669.  combobox_set_active( $combobtc, $SETTING{'tiff compression'},
  2670.   @tiff_compression );
  2671.  $hboxc->pack_end( $combobtc, FALSE, FALSE, 0 );
  2672.  
  2673.  # PDF options
  2674.  my $vboxp = Gtk2::VBox->new;
  2675.  $vbox->pack_start( $vboxp, FALSE, FALSE, 0 );
  2676.  my ( $entrya, $entryt, $entrys, $entryk ) = add_pdf_metadata($vboxp);
  2677.  
  2678.  # Compression options
  2679.  my ( $buttond, $spinbuttond, $combob, $hboxpq, $spinbuttonpq,
  2680.   @pdf_compression ) = add_pdf_compression($vboxp);
  2681.  
  2682.  # Font for non-ASCII text
  2683.  my $scwinf = Gtk2::ScrolledWindow->new;
  2684.  $scwinf->set_policy( 'automatic', 'automatic' );
  2685.  $vbox->pack_start( $scwinf, TRUE, TRUE, 0 );
  2686.  my $hboxf = Gtk2::HBox->new;
  2687.  $scwinf->add_with_viewport($hboxf);
  2688.  $scwinf->get_child->set_shadow_type('none');
  2689.  $label = Gtk2::Label->new( $d->get('Font for non-ASCII text') );
  2690.  $hboxf->pack_start( $label, FALSE, FALSE, 0 );
  2691.  my @fonts;
  2692.  my ($stdout) = Gscan2pdf::Document::open_three('fc-list : family style file');
  2693.  for ( split /\n/, $stdout ) {
  2694.   if (/ttf:\ /x) {
  2695.    my ( $file, $family, $style ) = split ':';
  2696.    chomp $style;
  2697.    $family =~ s/^\ //x;
  2698.    $style  =~ s/^style=//x;
  2699.    $style  =~ s/,.*$//x;
  2700.    my $font = "$family $style";
  2701.    push @fonts, [ $file, $font, $font ];
  2702.    $SETTING{'pdf font'} = $file
  2703.      if ( not defined( $SETTING{'pdf font'} )
  2704.     and $font eq 'Times New Roman Regular' );
  2705.   }
  2706.  }
  2707.  @fonts = sort { $a->[1] cmp $b->[1] } @fonts;
  2708.  my $combof = combobox_from_array(@fonts);
  2709.  combobox_set_active( $combof, $SETTING{'pdf font'}, @fonts );
  2710.  $hboxf->pack_start( $combof, FALSE, FALSE, 0 );
  2711.  
  2712.  # Fill image type ComboBox
  2713.  my $combobi = combobox_from_array(@type);
  2714.  $combobi->signal_connect(
  2715.   changed => sub {
  2716.    if ( $type[ $combobi->get_active ][0] eq 'pdf' ) {
  2717.     $vboxp->show_all;
  2718.     $hboxf->show_all;
  2719.     if ( $pdf_compression[ $combob->get_active ][0] eq 'jpg' ) {
  2720.      $hboxpq->show_all;
  2721.     }
  2722.     else {
  2723.      $hboxpq->hide_all;
  2724.      $windowi->resize( 100, 100 );    # Doesn't matter that 200x200 is too small
  2725.     }
  2726.    }
  2727.    else {
  2728.     $vboxp->hide_all;
  2729.     $hboxf->hide_all;
  2730.     $windowi->resize( 100, 100 );     # Doesn't matter that 200x200 is too small
  2731.    }
  2732.    if ($type[ $combobi->get_active ][0] eq 'tif'
  2733.     or $type[ $combobi->get_active ][0] eq 'ps' )
  2734.    {
  2735.     $hboxc->show_all;
  2736.    }
  2737.    else {
  2738.     $hboxc->hide_all;
  2739.     $windowi->resize( 100, 100 );     # Doesn't matter that 200x200 is too small
  2740.    }
  2741.    if (
  2742.     $type[ $combobi->get_active ][0] eq 'jpg'
  2743.     or ( $type[ $combobi->get_active ][0] eq 'tif'
  2744.      and $tiff_compression[ $combobtc->get_active ][0] eq 'jpeg' )
  2745.      )
  2746.    {
  2747.     $hboxtq->show_all;
  2748.    }
  2749.    else {
  2750.     $hboxtq->hide_all;
  2751.     $windowi->resize( 100, 100 );     # Doesn't matter that 200x200 is too small
  2752.    }
  2753.   }
  2754.  );
  2755.  combobox_set_active( $combobi, $SETTING{'image type'}, @type );
  2756.  $hboxi->pack_end( $combobi, FALSE, FALSE, 0 );
  2757.  
  2758.  # HBox for buttons
  2759.  my $hboxb = Gtk2::HBox->new;
  2760.  $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  2761.  
  2762.  # Save button
  2763.  my $sbutton = Gtk2::Button->new_from_stock('gtk-save');
  2764.  $hboxb->pack_start( $sbutton, TRUE, TRUE, 0 );
  2765.  $sbutton->signal_connect(
  2766.   clicked => sub {
  2767.  
  2768.    # dig out the image type, compression and quality
  2769.    $SETTING{'image type'} = $type[ $combobi->get_active ][0];
  2770.  
  2771.    given ( $SETTING{'image type'} ) {
  2772.     when ('pdf') {
  2773.  
  2774.      # dig out the compression
  2775.      $SETTING{'downsample'}      = $buttond->get_active;
  2776.      $SETTING{'downsample dpi'}  = $spinbuttond->get_value;
  2777.      $SETTING{'pdf compression'} = $pdf_compression[ $combob->get_active ][0];
  2778.      $SETTING{'quality'}         = $spinbuttonpq->get_value;
  2779.  
  2780.      $SETTING{'pdf font'} = $fonts[ $combof->get_active ][0];
  2781.  
  2782.      update_PDF_settings( $entrya, $entryt, $entrys, $entryk );
  2783.      save_PDF();
  2784.     }
  2785.     when ('djvu') {
  2786.      save_djvu();
  2787.     }
  2788.     when ('tif') {
  2789.      $SETTING{'tiff compression'} =
  2790.        $tiff_compression[ $combobtc->get_active ][0];
  2791.      $SETTING{'quality'} = $spinbuttontq->get_value;
  2792.  
  2793.      # cd back to cwd to save
  2794.      chdir $SETTING{'cwd'};
  2795.  
  2796.      # Set up file selector
  2797.      my $file_chooser = Gtk2::FileChooserDialog->new(
  2798.       $d->get('TIFF filename'),
  2799.       $windowi, 'save',
  2800.       'gtk-cancel' => 'cancel',
  2801.       'gtk-save'   => 'ok'
  2802.      );
  2803.      $file_chooser->set_default_response('ok');
  2804.      $file_chooser->set_current_folder( $SETTING{'cwd'} );
  2805.      add_filter( $file_chooser, $d->get('Image files'),
  2806.       $SETTING{'image type'} );
  2807.      $file_chooser->set_do_overwrite_confirmation(TRUE);
  2808.      $file_chooser->signal_connect(
  2809.       response => sub {
  2810.        my ( $dialog, $response ) = @_;
  2811.        if ( $response eq 'ok' ) {
  2812.         my $filename = $file_chooser->get_filename;
  2813.         if ( $filename !~ /\.tif$/ix ) {
  2814.          $filename = $filename . '.tif';
  2815.          if ( -f $filename ) {
  2816.  
  2817.           # File exists; get the file chooser to ask the user to confirm.
  2818.           $file_chooser->set_filename($filename);
  2819.  
  2820.           # Give the name change time to take effect.
  2821.           Glib::Idle->add( sub { $file_chooser->response('ok'); } );
  2822.           return;
  2823.          }
  2824.         }
  2825.  
  2826.         # Check that the file can be written
  2827.         if ( not -w dirname($filename)
  2828.          or ( -f $filename and not -w $filename ) )
  2829.         {
  2830.          show_message_dialog( $file_chooser, 'error', 'close',
  2831.           sprintf( $d->get("File %s is read-only"), $filename ) );
  2832.          return;
  2833.         }
  2834.  
  2835.         # Update cwd
  2836.         $SETTING{'cwd'} = dirname($filename);
  2837.  
  2838.         $windowi->hide if defined $windowi;
  2839.         save_TIFF($filename);
  2840.        }
  2841.        $file_chooser->destroy;
  2842.       }
  2843.      );
  2844.      $file_chooser->show;
  2845.  
  2846.      # cd back to tempdir
  2847.      chdir $session;
  2848.     }
  2849.     when ('txt') {
  2850.  
  2851.      # cd back to cwd to save
  2852.      chdir $SETTING{'cwd'};
  2853.  
  2854.      # Set up file selector
  2855.      my $file_chooser = Gtk2::FileChooserDialog->new(
  2856.       $d->get('Text filename'),
  2857.       $windowi, 'save',
  2858.       'gtk-cancel' => 'cancel',
  2859.       'gtk-save'   => 'ok'
  2860.      );
  2861.      $file_chooser->set_default_response('ok');
  2862.      $file_chooser->set_current_folder( $SETTING{'cwd'} );
  2863.      $file_chooser->set_do_overwrite_confirmation(TRUE);
  2864.      add_filter( $file_chooser, $d->get('Text files'), 'txt' );
  2865.      $file_chooser->signal_connect(
  2866.       response => sub {
  2867.        my ( $dialog, $response ) = @_;
  2868.        if ( $response eq 'ok' ) {
  2869.         my $filename = $file_chooser->get_filename;
  2870.         if ( $filename !~ /\.txt$/ix ) {
  2871.          $filename = $filename . '.txt';
  2872.          if ( -f $filename ) {
  2873.  
  2874.           # File exists; get the file chooser to ask the user to confirm.
  2875.           $file_chooser->set_filename($filename);
  2876.  
  2877.           # Give the name change time to take effect.
  2878.           Glib::Idle->add( sub { $file_chooser->response('ok'); } );
  2879.           return;
  2880.          }
  2881.         }
  2882.  
  2883.         # Check that the file can be written
  2884.         if ( not -w dirname($filename)
  2885.          or ( -f $filename and not -w $filename ) )
  2886.         {
  2887.          show_message_dialog( $file_chooser, 'error', 'close',
  2888.           sprintf( $d->get("File %s is read-only"), $filename ) );
  2889.          return;
  2890.         }
  2891.  
  2892.         # Update cwd
  2893.         $SETTING{'cwd'} = dirname($filename);
  2894.  
  2895.         # Compile list of pages
  2896.         my @list_of_pages;
  2897.         my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  2898.         for (@pagelist) {
  2899.          push @list_of_pages, $slist->{data}[$_][2];
  2900.         }
  2901.  
  2902.         my ( $signal, $pid );
  2903.         $pid = $slist->save_text(
  2904.          path            => $filename,
  2905.          list_of_pages   => \@list_of_pages,
  2906.          queued_callback => sub {
  2907.           return update_tpbar(@_);
  2908.          },
  2909.          started_callback => sub {
  2910.           my ( $thread, $process, $completed, $total ) = @_;
  2911.           $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  2912.           return TRUE if ( defined $signal );
  2913.          },
  2914.          running_callback => sub {
  2915.           return update_tpbar(@_);
  2916.          },
  2917.          finished_callback => sub {
  2918.           my ( $new_page, $pending ) = @_;
  2919.           $thbox->hide_all unless $pending;
  2920.           $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  2921.           mark_pages(@pagelist);
  2922.           system("xdg-open \"$filename\" &")
  2923.             if ( defined( $SETTING{'view files toggle'} )
  2924.            and $SETTING{'view files toggle'} );
  2925.           $logger->debug("Finished saving $filename");
  2926.          },
  2927.          error_callback => sub {
  2928.           my ($message) = @_;
  2929.           show_message_dialog( $window, 'error', 'close', $message );
  2930.          }
  2931.         );
  2932.         $windowi->hide if defined $windowi;
  2933.        }
  2934.        $file_chooser->destroy;
  2935.       }
  2936.      );
  2937.      $file_chooser->show;
  2938.  
  2939.      # cd back to tempdir
  2940.      chdir $session;
  2941.     }
  2942.     when ('ps') {
  2943.      $SETTING{'tiff compression'} =
  2944.        $tiff_compression[ $combobtc->get_active ][0];
  2945.      $SETTING{'quality'} = $spinbuttontq->get_value;
  2946.  
  2947.      # cd back to cwd to save
  2948.      chdir $SETTING{'cwd'};
  2949.  
  2950.      # Set up file selector
  2951.      my $file_chooser = Gtk2::FileChooserDialog->new(
  2952.       $d->get('PS filename'),
  2953.       $windowi, 'save',
  2954.       'gtk-cancel' => 'cancel',
  2955.       'gtk-save'   => 'ok'
  2956.      );
  2957.      $file_chooser->set_default_response('ok');
  2958.      $file_chooser->set_current_folder( $SETTING{'cwd'} );
  2959.      add_filter( $file_chooser, $d->get('Postscript files'), 'ps' );
  2960.      $file_chooser->set_do_overwrite_confirmation(TRUE);
  2961.      $file_chooser->signal_connect(
  2962.       response => sub {
  2963.        my ( $dialog, $response ) = @_;
  2964.        if ( $response eq 'ok' ) {
  2965.         my $filename = $file_chooser->get_filename;
  2966.         if ( $filename !~ /\.ps$/ix ) {
  2967.          $filename = $filename . '.ps';
  2968.          if ( -f $filename ) {
  2969.  
  2970.           # File exists; get the file chooser to ask the user to confirm.
  2971.           $file_chooser->set_filename($filename);
  2972.  
  2973.           # Give the name change time to take effect.
  2974.           Glib::Idle->add( sub { $file_chooser->response('ok'); } );
  2975.           return;
  2976.          }
  2977.         }
  2978.  
  2979.         # Check that the file can be written
  2980.         if ( not -w dirname($filename)
  2981.          or ( -f $filename and not -w $filename ) )
  2982.         {
  2983.          show_message_dialog( $file_chooser, 'error', 'close',
  2984.           sprintf( $d->get("File %s is read-only"), $filename ) );
  2985.          return;
  2986.         }
  2987.  
  2988.         # Update cwd
  2989.         $SETTING{'cwd'} = dirname($filename);
  2990.  
  2991.         # Create the PS
  2992.         my $tif = File::Temp->new( DIR => $session, SUFFIX => '.tif' );
  2993.         $windowi->hide if defined $windowi;
  2994.         save_TIFF( $tif->filename, $filename );
  2995.        }
  2996.        $file_chooser->destroy;
  2997.       }
  2998.      );
  2999.      $file_chooser->show;
  3000.  
  3001.      # cd back to tempdir
  3002.      chdir $session;
  3003.     }
  3004.     when ('session') {
  3005.  
  3006.      # cd back to cwd to save
  3007.      chdir $SETTING{'cwd'};
  3008.  
  3009.      # Set up file selector
  3010.      my $file_chooser = Gtk2::FileChooserDialog->new(
  3011.       $d->get('gscan2pdf session filename'),
  3012.       $windowi, 'save',
  3013.       'gtk-cancel' => 'cancel',
  3014.       'gtk-save'   => 'ok'
  3015.      );
  3016.      $file_chooser->set_default_response('ok');
  3017.      $file_chooser->set_current_folder( $SETTING{'cwd'} );
  3018.      add_filter( $file_chooser, $d->get('gscan2pdf session files'), 'gs2p' );
  3019.      $file_chooser->set_do_overwrite_confirmation(TRUE);
  3020.      $file_chooser->signal_connect(
  3021.       response => sub {
  3022.        my ( $dialog, $response ) = @_;
  3023.        if ( $response eq 'ok' ) {
  3024.         my $filename = $file_chooser->get_filename;
  3025.         if ( $filename !~ /\.gs2p$/ix ) {
  3026.          $filename = $filename . '.gs2p';
  3027.          if ( -f $filename ) {
  3028.  
  3029.           # File exists; get the file chooser to ask the user to confirm.
  3030.           $file_chooser->set_filename($filename);
  3031.  
  3032.           # Give the name change time to take effect.
  3033.           Glib::Idle->add( sub { $file_chooser->response('ok'); } );
  3034.           return;
  3035.          }
  3036.         }
  3037.  
  3038.         # Check that the file can be written
  3039.         if ( not -w dirname($filename)
  3040.          or ( -f $filename and not -w $filename ) )
  3041.         {
  3042.          show_message_dialog( $file_chooser, 'error', 'close',
  3043.           sprintf( $d->get("File %s is read-only"), $filename ) );
  3044.          return;
  3045.         }
  3046.  
  3047.         # Update cwd
  3048.         $SETTING{'cwd'} = dirname($filename);
  3049.         $slist->save_session( $session, $filename );
  3050.        }
  3051.        $file_chooser->destroy;
  3052.       }
  3053.      );
  3054.      $file_chooser->show;
  3055.  
  3056.      # cd back to tempdir
  3057.      chdir $session;
  3058.     }
  3059.     default {
  3060.      save_image();
  3061.     }
  3062.    }
  3063.   }
  3064.  );
  3065.  
  3066.  # Cancel button
  3067.  my $cbutton = Gtk2::Button->new_from_stock('gtk-cancel');
  3068.  $hboxb->pack_end( $cbutton, FALSE, FALSE, 0 );
  3069.  $cbutton->signal_connect( clicked => sub { $windowi->hide; } );
  3070.  
  3071.  $windowi->show_all;
  3072.  $hboxpq->hide_all if ( $pdf_compression[ $combob->get_active ][0] ne 'jpg' );
  3073.  $hboxtq->hide_all
  3074.    if (
  3075.   $type[ $combobi->get_active ][0] ne 'jpg'
  3076.   or ( $type[ $combobi->get_active ][0] eq 'tif'
  3077.    and $tiff_compression[ $combobtc->get_active ][0] ne 'jpg' )
  3078.    );
  3079.  $hboxc->hide_all
  3080.    if ( $type[ $combobi->get_active ][0] ne 'tif'
  3081.   and $type[ $combobi->get_active ][0] ne 'ps' );
  3082.  
  3083.  if ( $type[ $combobi->get_active ][0] ne 'pdf' ) {
  3084.   $vboxp->hide_all;
  3085.   $hboxf->hide_all;
  3086.  }
  3087.  $windowi->resize( 100, 100 );    # Doesn't matter that 200x200 is too small
  3088.  return;
  3089. }
  3090.  
  3091. sub file_exists {
  3092.  my ( $file_chooser, $filename ) = @_;
  3093.  if ( not -w dirname($filename) or ( -f $filename and not -w $filename ) ) {
  3094.   show_message_dialog( $file_chooser, 'error', 'close',
  3095.    sprintf( $d->get("File %s is read-only"), $filename ) );
  3096.   return TRUE;
  3097.  }
  3098.  elsif ( -e $filename ) {
  3099.   my $response =
  3100.     show_message_dialog( $file_chooser, 'question', 'ok-cancel',
  3101.    sprintf( $d->get("File %s exists.\nReally overwrite?"), $filename ) );
  3102.   return TRUE if ( $response ne 'ok' );
  3103.  }
  3104.  return FALSE;
  3105. }
  3106.  
  3107. sub save_image {
  3108.  
  3109.  # cd back to cwd to save
  3110.  chdir $SETTING{'cwd'};
  3111.  
  3112.  # Set up file selector
  3113.  my $file_chooser = Gtk2::FileChooserDialog->new(
  3114.   $d->get('Image filename'),
  3115.   $windowi, 'save',
  3116.   'gtk-cancel' => 'cancel',
  3117.   'gtk-save'   => 'ok'
  3118.  );
  3119.  $file_chooser->set_default_response('ok');
  3120.  $file_chooser->set_current_folder( $SETTING{'cwd'} );
  3121.  add_filter( $file_chooser, $d->get('Image files'),
  3122.   'jpg', 'png', 'pnm', 'gif', 'tif', 'tiff', 'pdf', 'djvu', 'ps' );
  3123.  
  3124.  if ( 'ok' eq $file_chooser->run ) {
  3125.   my $filename = $file_chooser->get_filename;
  3126.  
  3127.   # Update cwd
  3128.   $SETTING{'cwd'} = dirname($filename);
  3129.  
  3130.   # cd back to tempdir
  3131.   chdir $session;
  3132.  
  3133.   # Compile list of pages
  3134.   my @list_of_pages;
  3135.   my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  3136.   for (@pagelist) {
  3137.    push @list_of_pages, $slist->{data}[$_][2];
  3138.   }
  3139.  
  3140.   if ( @list_of_pages > 1 ) {
  3141.    my $w = length( scalar @list_of_pages );
  3142.    for ( my $i = 1 ; $i <= @list_of_pages ; $i++ ) {
  3143.     my $current_filename = sprintf "${filename}_%0${w}d.$SETTING{'image type'}",
  3144.       $i;
  3145.     return if ( file_exists( $file_chooser, $current_filename ) );
  3146.    }
  3147.    $filename = "${filename}_%0${w}d.$SETTING{'image type'}";
  3148.   }
  3149.   else {
  3150.    $filename = $filename . ".$SETTING{'image type'}"
  3151.      if ( $filename !~ /\.$SETTING{'image type'}$/ix );
  3152.    return if ( file_exists( $file_chooser, $filename ) );
  3153.   }
  3154.  
  3155.   # Create the image
  3156.   $logger->debug("Started saving $filename");
  3157.   my ( $signal, $pid );
  3158.   $pid = $slist->save_image(
  3159.    path            => $filename,
  3160.    list_of_pages   => \@list_of_pages,
  3161.    queued_callback => sub {
  3162.     return update_tpbar(@_);
  3163.    },
  3164.    started_callback => sub {
  3165.     my ( $thread, $process, $completed, $total ) = @_;
  3166.     $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  3167.     return TRUE if ( defined $signal );
  3168.    },
  3169.    running_callback => sub {
  3170.     return update_tpbar(@_);
  3171.    },
  3172.    finished_callback => sub {
  3173.     my ( $new_page, $pending ) = @_;
  3174.     $thbox->hide_all unless $pending;
  3175.     $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  3176.     mark_pages(@pagelist);
  3177.     system("xdg-open \"$filename\" &")
  3178.       if ( defined( $SETTING{'view files toggle'} )
  3179.      and $SETTING{'view files toggle'} );
  3180.     $logger->debug("Finished saving $filename");
  3181.    },
  3182.    error_callback => sub {
  3183.     my ($message) = @_;
  3184.     show_message_dialog( $window, 'error', 'close', $message );
  3185.    }
  3186.   );
  3187.  
  3188.   $windowi->hide if defined $windowi;
  3189.  }
  3190.  $file_chooser->destroy;
  3191.  return;
  3192. }
  3193.  
  3194. sub save_TIFF {
  3195.  my ( $filename, $ps ) = @_;
  3196.  
  3197.  # Compile list of pages
  3198.  my @list_of_pages;
  3199.  my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  3200.  for (@pagelist) {
  3201.   push @list_of_pages, $slist->{data}[$_][2];
  3202.  }
  3203.  
  3204.  # Compile options
  3205.  my %options = (
  3206.   compression => $SETTING{'tiff compression'},
  3207.   quality     => $SETTING{quality},
  3208.  );
  3209.  
  3210.  my ( $signal, $pid );
  3211.  $pid = $slist->save_tiff(
  3212.   path            => $filename,
  3213.   list_of_pages   => \@list_of_pages,
  3214.   options         => \%options,
  3215.   ps              => $ps,
  3216.   queued_callback => sub {
  3217.    return update_tpbar(@_);
  3218.   },
  3219.   started_callback => sub {
  3220.    my ( $thread, $process, $completed, $total ) = @_;
  3221.    $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  3222.    return TRUE if ( defined $signal );
  3223.   },
  3224.   running_callback => sub {
  3225.    return update_tpbar(@_);
  3226.   },
  3227.   finished_callback => sub {
  3228.    my ( $new_page, $pending ) = @_;
  3229.    $thbox->hide_all unless $pending;
  3230.    $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  3231.    mark_pages(@pagelist);
  3232.    my $file = defined($ps) ? $ps : $filename;
  3233.    system("xdg-open \"$filename\" &")
  3234.      if ( defined( $SETTING{'view files toggle'} )
  3235.     and $SETTING{'view files toggle'} );
  3236.    $logger->debug("Finished saving $filename");
  3237.   },
  3238.   error_callback => sub {
  3239.    my ($message) = @_;
  3240.    show_message_dialog( $window, 'error', 'close', $message );
  3241.   }
  3242.  );
  3243.  return;
  3244. }
  3245.  
  3246. sub save_djvu {
  3247.  
  3248.  # cd back to cwd to save
  3249.  chdir $SETTING{'cwd'};
  3250.  
  3251.  # Set up file selector
  3252.  my $file_chooser = Gtk2::FileChooserDialog->new(
  3253.   $d->get('DjVu filename'),
  3254.   $windowi, 'save',
  3255.   'gtk-cancel' => 'cancel',
  3256.   'gtk-save'   => 'ok'
  3257.  );
  3258.  $file_chooser->set_default_response('ok');
  3259.  $file_chooser->set_current_folder( $SETTING{'cwd'} );
  3260.  add_filter( $file_chooser, $d->get('DjVu files'), 'djvu' );
  3261.  $file_chooser->set_do_overwrite_confirmation(TRUE);
  3262.  $file_chooser->signal_connect(
  3263.   response => sub {
  3264.    my ( $dialog, $response ) = @_;
  3265.    if ( $response eq 'ok' ) {
  3266.     my $filename = $file_chooser->get_filename;
  3267.     if ( $filename !~ /\.djvu$/ix ) {
  3268.      $filename = $filename . '.djvu';
  3269.      if ( -f $filename ) {
  3270.  
  3271.       # File exists; get the file chooser to ask the user to confirm.
  3272.       $file_chooser->set_filename($filename);
  3273.  
  3274.       # Give the name change time to take effect.
  3275.       Glib::Idle->add( sub { $file_chooser->response('ok'); } );
  3276.       return;
  3277.      }
  3278.     }
  3279.  
  3280.     # Check that the file can be written
  3281.     if ( not -w dirname($filename) or ( -f $filename and not -w $filename ) ) {
  3282.      show_message_dialog( $file_chooser, 'error', 'close',
  3283.       sprintf( $d->get("File %s is read-only"), $filename ) );
  3284.      return;
  3285.     }
  3286.  
  3287.     # Update cwd
  3288.     $SETTING{'cwd'} = dirname($filename);
  3289.  
  3290.     # Compile list of pages
  3291.     my @list_of_pages;
  3292.     my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  3293.     for (@pagelist) {
  3294.      push @list_of_pages, $slist->{data}[$_][2];
  3295.     }
  3296.  
  3297.     # cd back to tempdir
  3298.     chdir $session;
  3299.  
  3300.     # Create the DjVu
  3301.     $logger->debug("Started saving $filename");
  3302.     my ( $signal, $pid );
  3303.     $pid = $slist->save_djvu(
  3304.      path            => $filename,
  3305.      list_of_pages   => \@list_of_pages,
  3306.      queued_callback => sub {
  3307.       return update_tpbar(@_);
  3308.      },
  3309.      started_callback => sub {
  3310.       my ( $thread, $process, $completed, $total ) = @_;
  3311.       $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  3312.       return TRUE if ( defined $signal );
  3313.      },
  3314.      running_callback => sub {
  3315.       return update_tpbar(@_);
  3316.      },
  3317.      finished_callback => sub {
  3318.       my ( $new_page, $pending ) = @_;
  3319.       $thbox->hide_all unless $pending;
  3320.       $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  3321.       mark_pages(@pagelist);
  3322.       system("xdg-open \"$filename\" &")
  3323.         if ( defined( $SETTING{'view files toggle'} )
  3324.        and $SETTING{'view files toggle'} );
  3325.       $logger->debug("Finished saving $filename");
  3326.      },
  3327.      error_callback => sub {
  3328.       my ($message) = @_;
  3329.       show_message_dialog( $window, 'error', 'close', $message );
  3330.      }
  3331.     );
  3332.  
  3333.     $windowi->hide if defined $windowi;
  3334.    }
  3335.    $file_chooser->destroy;
  3336.   }
  3337.  );
  3338.  $file_chooser->show;
  3339.  
  3340.  # cd back to tempdir
  3341.  chdir $session;
  3342.  return;
  3343. }
  3344.  
  3345. # Display page selector and email.
  3346.  
  3347. sub email {
  3348.  
  3349.  if ( defined $windowe ) {
  3350.   $windowe->present;
  3351.   return;
  3352.  }
  3353.  
  3354.  # $SETTING{'Page range'} = 'selected' if $SETTING{'RMB'};
  3355.  $windowe = Gscan2pdf::Dialog->new(
  3356.   'transient-for'  => $window,
  3357.   title            => $d->get('Email as PDF'),
  3358.   'hide-on-delete' => TRUE,
  3359.   border_width     => $border_width
  3360.  );
  3361.  my $vbox = $windowe->get('vbox');
  3362.  
  3363.  # PDF options
  3364.  my ( $entrya, $entryt, $entrys, $entryk ) = add_pdf_metadata($vbox);
  3365.  
  3366.  # Frame for page range
  3367.  add_page_range($vbox);
  3368.  
  3369.  # Compression options
  3370.  my ( $buttond, $spinbuttond, $combob, $hboxq, $spinbuttonq, @compression ) =
  3371.    add_pdf_compression($vbox);
  3372.  
  3373.  # HBox for buttons
  3374.  my $hboxb = Gtk2::HBox->new;
  3375.  $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  3376.  
  3377.  # OK button
  3378.  my $sbutton = Gtk2::Button->new_from_stock('gtk-ok');
  3379.  $hboxb->pack_start( $sbutton, TRUE, TRUE, 0 );
  3380.  $sbutton->signal_connect(
  3381.   clicked => sub {
  3382.  
  3383.    # Set options
  3384.    update_PDF_settings( $entrya, $entryt, $entrys, $entryk );
  3385.  
  3386.    # Compile list of pages
  3387.    my @list_of_pages;
  3388.    my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  3389.    for (@pagelist) {
  3390.     push @list_of_pages, $slist->{data}[$_][2];
  3391.    }
  3392.  
  3393.    # dig out the compression
  3394.    $SETTING{'downsample'}      = $buttond->get_active;
  3395.    $SETTING{'downsample dpi'}  = $spinbuttond->get_value;
  3396.    $SETTING{'pdf compression'} = $compression[ $combob->get_active ][0];
  3397.    $SETTING{'quality'}         = $spinbuttonq->get_value;
  3398.  
  3399.    # Compile options
  3400.    my %options = (
  3401.     compression      => $SETTING{'pdf compression'},
  3402.     downsample       => $SETTING{downsample},
  3403.     'downsample dpi' => $SETTING{'downsample dpi'},
  3404.     quality          => $SETTING{quality},
  3405.     font             => $SETTING{'pdf font'},
  3406.    );
  3407.  
  3408.    $pdf = File::Temp->new( DIR => $session, SUFFIX => '.pdf' );
  3409.  
  3410.    # Check for thunderbird
  3411.    my ($client);
  3412.    if ( defined( $ENV{KDE_FULL_SESSION} ) and $ENV{KDE_FULL_SESSION} eq 'true' )
  3413.    {
  3414.     ($client) = Gscan2pdf::Document::open_three(
  3415. "kreadconfig --file emaildefaults --group PROFILE_Default --key EmailClient| cut -d ' ' -f 1"
  3416.     );
  3417.    }
  3418.    elsif ( defined( $ENV{GNOME_DESKTOP_SESSION_ID} )
  3419.     and $ENV{GNOME_DESKTOP_SESSION_ID} ne '' )
  3420.    {
  3421.     ($client) = Gscan2pdf::Document::open_three(
  3422. "gconftool --get /desktop/gnome/url-handlers/mailto/command | cut -d ' ' -f 1"
  3423.     );
  3424.    }
  3425.  
  3426.    my $mua_string;
  3427.    if ( $client =~ /thunderbird/ ) {
  3428.     $mua_string = "thunderbird -compose attachment=file://$pdf";
  3429.    }
  3430.    else {
  3431.     $mua_string = "xdg-email --attach $pdf 'x\@y'";
  3432.    }
  3433.  
  3434.    # Create the PDF
  3435.    my ( $signal, $pid );
  3436.    $pid = $slist->save_pdf(
  3437.     path            => $pdf->filename,
  3438.     list_of_pages   => \@list_of_pages,
  3439.     metadata        => get_pdf_metadata(),
  3440.     options         => \%options,
  3441.     queued_callback => sub {
  3442.      return update_tpbar(@_);
  3443.     },
  3444.     started_callback => sub {
  3445.      my ( $thread, $process, $completed, $total ) = @_;
  3446.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  3447.      return TRUE if ( defined $signal );
  3448.     },
  3449.     running_callback => sub {
  3450.      return update_tpbar(@_);
  3451.     },
  3452.     finished_callback => sub {
  3453.      my ( $new_page, $pending ) = @_;
  3454.      $thbox->hide_all unless $pending;
  3455.      $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  3456.      mark_pages(@pagelist);
  3457.      system("xdg-open \"$pdf\" &")
  3458.        if ( defined( $SETTING{'view files toggle'} )
  3459.       and $SETTING{'view files toggle'} );
  3460.      $logger->info($mua_string);
  3461.      show_message_dialog( $window, 'error', 'close',
  3462.       $d->get('Error creating email') )
  3463.        if ( system($mua_string) );
  3464.     },
  3465.     error_callback => sub {
  3466.      my ($message) = @_;
  3467.      show_message_dialog( $window, 'error', 'close', $message );
  3468.     }
  3469.    );
  3470.  
  3471.    $windowe->hide;
  3472.  
  3473.   }
  3474.  );
  3475.  
  3476.  # Cancel button
  3477.  my $cbutton = Gtk2::Button->new_from_stock('gtk-cancel');
  3478.  $hboxb->pack_end( $cbutton, FALSE, FALSE, 0 );
  3479.  $cbutton->signal_connect( clicked => sub { $windowe->hide; } );
  3480.  
  3481.  $windowe->show_all;
  3482.  $hboxq->hide_all if ( $compression[ $combob->get_active ][0] ne 'jpg' );
  3483.  return;
  3484. }
  3485.  
  3486. # Scan
  3487.  
  3488. sub scan_dialog {
  3489.  
  3490.  if ( defined $windows ) {
  3491.   $windows->present;
  3492.   return;
  3493.  }
  3494.  
  3495.  # scan pop-up window
  3496.  $windows = Gscan2pdf::Dialog->new(
  3497.   'transient-for'  => $window,
  3498.   title            => $d->get('Scan Document'),
  3499.   'hide-on-delete' => TRUE,
  3500.   border_width     => $border_width
  3501.  );
  3502.  my $vbox = $windows->get('vbox');
  3503.  
  3504.  # HBox for devices
  3505.  my $hboxd = Gtk2::HBox->new;
  3506.  $vbox->pack_start( $hboxd, FALSE, FALSE, 0 );
  3507.  
  3508.  # Notebook to collate options
  3509.  my $notebook = Gtk2::Notebook->new;
  3510.  $notebook->set_scrollable(TRUE);
  3511.  $vbox->pack_start( $notebook, TRUE, TRUE, 0 );
  3512.  
  3513.  # Notebook page 1
  3514.  my $vbox1 = Gtk2::VBox->new;
  3515.  $notebook->append_page( $vbox1, $d->get('Page Options') );
  3516.  
  3517.  # Frame for # pages
  3518.  my $framen = Gtk2::Frame->new( $d->get('# Pages') );
  3519.  $vbox1->pack_start( $framen, FALSE, FALSE, 0 );
  3520.  my $vboxn = Gtk2::VBox->new;
  3521.  $vboxn->set_border_width($border_width);
  3522.  $framen->add($vboxn);
  3523.  
  3524.  #the first radio button has to set the group,
  3525.  #which is undef for the first button
  3526.  # All button
  3527.  $bscanall = Gtk2::RadioButton->new( undef, $d->get('All') );
  3528.  $tooltips->set_tip( $bscanall, $d->get('Scan all pages') );
  3529.  $vboxn->pack_start( $bscanall, TRUE, TRUE, 0 );
  3530.  $bscanall->signal_connect(
  3531.   clicked => sub {
  3532.    $batch_scan->set_active(0) if ( defined $batch_scan );
  3533.   }
  3534.  );
  3535.  
  3536.  # Entry button
  3537.  my $hboxn = Gtk2::HBox->new;
  3538.  $vboxn->pack_start( $hboxn, TRUE, TRUE, 0 );
  3539.  $bscannum = Gtk2::RadioButton->new( $bscanall->get_group, "#:" );
  3540.  $tooltips->set_tip( $bscannum, $d->get('Set number of pages to scan') );
  3541.  $hboxn->pack_start( $bscannum, FALSE, FALSE, 0 );
  3542.  
  3543.  # Number of pages
  3544.  $spin_buttonn = Gtk2::SpinButton->new_with_range( 1, 999, 1 );
  3545.  $tooltips->set_tip( $spin_buttonn, $d->get('Set number of pages to scan') );
  3546.  $hboxn->pack_end( $spin_buttonn, FALSE, FALSE, 0 );
  3547.  
  3548.  # Set default
  3549.  if ( $SETTING{'pages to scan'} eq 'all' ) {
  3550.   $bscanall->set_active(TRUE);
  3551.  }
  3552.  else {
  3553.   $bscannum->set_active(TRUE);
  3554.   $spin_buttonn->set_value( $SETTING{'pages to scan'} );
  3555.  }
  3556.  
  3557.  # Toggle to switch between basic and extended modes
  3558.  my $checkx = Gtk2::CheckButton->new( $d->get('Extended page numbering') );
  3559.  $vbox1->pack_start( $checkx, FALSE, FALSE, 0 );
  3560.  
  3561.  # Frame for extended mode
  3562.  my $framex = Gtk2::Frame->new( $d->get('Page number') );
  3563.  $vbox1->pack_start( $framex, FALSE, FALSE, 0 );
  3564.  my $vboxx = Gtk2::VBox->new;
  3565.  $vboxx->set_border_width($border_width);
  3566.  $framex->add($vboxx);
  3567.  
  3568.  # SpinButton for starting page number
  3569.  my $hboxxs = Gtk2::HBox->new;
  3570.  $vboxx->pack_start( $hboxxs, FALSE, FALSE, 0 );
  3571.  my $labelxs = Gtk2::Label->new( $d->get('Start') );
  3572.  $hboxxs->pack_start( $labelxs, FALSE, FALSE, 0 );
  3573.  $start = 1;
  3574.  $spin_buttons = Gtk2::SpinButton->new_with_range( 1, 99999, 1 );
  3575.  $hboxxs->pack_end( $spin_buttons, FALSE, FALSE, 0 );
  3576.  
  3577.  # SpinButton for page number increment
  3578.  my $hboxi = Gtk2::HBox->new;
  3579.  $vboxx->pack_start( $hboxi, FALSE, FALSE, 0 );
  3580.  my $labelxi = Gtk2::Label->new( $d->get('Increment') );
  3581.  $hboxi->pack_start( $labelxi, FALSE, FALSE, 0 );
  3582.  $spin_buttoni = Gtk2::SpinButton->new_with_range( -99, 99, 1 );
  3583.  my $step = 1;
  3584.  $spin_buttoni->set_value($step);
  3585.  $hboxi->pack_end( $spin_buttoni, FALSE, FALSE, 0 );
  3586.  $spin_buttoni->signal_connect(
  3587.   'value-changed' => sub {
  3588.    $spin_buttoni->set_value( -$step ) if ( $spin_buttoni->get_value == 0 );
  3589.    $step = $spin_buttoni->get_value;
  3590.   }
  3591.  );
  3592.  
  3593.  # Check whether the start page exists
  3594.  $spin_buttons->signal_connect( 'value-changed' => \&update_start );
  3595.  
  3596.  # Setting this here to fire callback running update_start
  3597.  $spin_buttons->set_value($start);
  3598.  
  3599.  # Callback on changing number of pages
  3600.  $spin_buttonn->signal_connect(
  3601.   'value-changed' => sub {
  3602.    $bscannum->set_active(TRUE);    # Set the radiobutton active
  3603.    my $n = $spin_buttonn->get_value;
  3604.    $batch_scan->set_active(0) if ( defined($batch_scan) and $n > 1 );
  3605.  
  3606.    # Check that there is room in the list for the number of pages
  3607.    update_number();
  3608.   }
  3609.  );
  3610.  
  3611.  # Frame for standard mode
  3612.  $frames = Gtk2::Frame->new( $d->get('Source document') );
  3613.  $vbox1->pack_start( $frames, FALSE, FALSE, 0 );
  3614.  my $vboxs = Gtk2::VBox->new;
  3615.  $vboxs->set_border_width($border_width);
  3616.  $frames->add($vboxs);
  3617.  
  3618.  # Single sided button
  3619.  my $buttons = Gtk2::RadioButton->new( undef, $d->get('Single sided') );
  3620.  $tooltips->set_tip( $buttons, $d->get('Source document is single-sided') );
  3621.  $vboxs->pack_start( $buttons, TRUE, TRUE, 0 );
  3622.  $buttons->signal_connect(
  3623.   clicked => sub {
  3624.    $spin_buttoni->set_value(1);
  3625.   }
  3626.  );
  3627.  
  3628.  # Double sided button
  3629.  my $buttond =
  3630.    Gtk2::RadioButton->new( $buttons->get_group, $d->get('Double sided') );
  3631.  $tooltips->set_tip( $buttond, $d->get('Source document is double-sided') );
  3632.  $vboxs->pack_start( $buttond, FALSE, FALSE, 0 );
  3633.  
  3634.  # Facing/reverse page button
  3635.  my $hboxs = Gtk2::HBox->new;
  3636.  $vboxs->pack_start( $hboxs, TRUE, TRUE, 0 );
  3637.  my $labels = Gtk2::Label->new( $d->get('Side to scan') );
  3638.  $hboxs->pack_start( $labels, FALSE, FALSE, 0 );
  3639.  
  3640.  my $combobs = Gtk2::ComboBox->new_text;
  3641.  my @side = ( $d->get('Facing'), $d->get('Reverse') );
  3642.  foreach (@side) {
  3643.   $combobs->append_text($_);
  3644.  }
  3645.  $combobs->signal_connect(
  3646.   changed => sub {
  3647.    $buttond->set_active(TRUE);    # Set the radiobutton active
  3648.    if ( $combobs->get_active == 0 ) {
  3649.     $spin_buttoni->set_value(2);
  3650.    }
  3651.    else {
  3652.     $spin_buttoni->set_value(-2);
  3653.    }
  3654.    if ( $#{ $slist->{data} } > -1 ) {
  3655.     $spin_buttons->set_value( $slist->{data}[ $#{ $slist->{data} } ][0] + 1 );
  3656.    }
  3657.    else {
  3658.     $spin_buttons->set_value(1);
  3659.    }
  3660.   }
  3661.  );
  3662.  $tooltips->set_tip( $combobs,
  3663.   $d->get('Sets which side of a double-sided document is scanned') );
  3664.  $combobs->set_active(0);
  3665.  
  3666.  # Have to do this here because setting the facing combobox switches it
  3667.  $buttons->set_active(TRUE);
  3668.  $hboxs->pack_end( $combobs, FALSE, FALSE, 0 );
  3669.  
  3670.  # Have to put the double-sided callback here to reference page side
  3671.  $buttond->signal_connect(
  3672.   clicked => sub {
  3673.    if ( $combobs->get_active == 0 ) {
  3674.     $spin_buttoni->set_value(2);
  3675.    }
  3676.    else {
  3677.     $spin_buttoni->set_value(-2);
  3678.    }
  3679.    if ( $#{ $slist->{data} } > -1 ) {
  3680.     $spin_buttons->set_value( $slist->{data}[ $#{ $slist->{data} } ][0] + 1 );
  3681.    }
  3682.    else {
  3683.     $spin_buttons->set_value(1);
  3684.    }
  3685.   }
  3686.  );
  3687.  
  3688. # Have to put the extended pagenumber checkbox here to reference simple controls
  3689.  $checkx->signal_connect(
  3690.   toggled => sub {
  3691.    if ( $checkx->get_active ) {
  3692.     $frames->hide_all;
  3693.     $framex->show_all;
  3694.    }
  3695.    else {
  3696.     if ( $spin_buttoni->get_value == 1 ) {
  3697.      $buttons->set_active(TRUE);
  3698.     }
  3699.     elsif ( $spin_buttoni->get_value > 0 ) {
  3700.      $buttond->set_active(TRUE);
  3701.      $combobs->set_active(0);
  3702.     }
  3703.     else {
  3704.      $buttond->set_active(TRUE);
  3705.      $combobs->set_active(1);
  3706.     }
  3707.     $frames->show_all;
  3708.     $framex->hide_all;
  3709.    }
  3710.   }
  3711.  );
  3712.  
  3713.  my (
  3714.   $rotate,     $side,      $side2,      $tesslang,  $cflang,
  3715.   $rbutton,    $r2button,  $ubutton,    $obutton,   $comboboxs,
  3716.   $comboboxs2, $comboboxr, $comboboxr2, $comboboxe, $comboboxtl,
  3717.   $comboboxcl, $hboxtl,    $hboxcl
  3718.  ) = add_postprocessing_options($vbox1);
  3719.  my @rotate = @$rotate;
  3720.  @side = @$side;
  3721.  my @side2    = @$side2;
  3722.  my @tesslang = @$tesslang;
  3723.  my @cflang   = @$cflang;
  3724.  
  3725.  # Notebook page 2
  3726.  my $vbox2 = Gtk2::VBox->new;
  3727.  $notebook->append_page( $vbox2, $d->get('Scan Options') );
  3728.  
  3729.  # Frame for device-dependent options
  3730.  my $framed = Gtk2::Frame->new( $d->get('Device-dependent options') );
  3731.  $vbox2->pack_start( $framed, FALSE, FALSE, 0 );
  3732.  $vboxd = Gtk2::VBox->new;
  3733.  $vboxd->set_border_width($border_width);
  3734.  $framed->add($vboxd);
  3735.  
  3736.  # Scan profiles
  3737.  my $framesp = Gtk2::Frame->new( $d->get('Scan profiles') );
  3738.  $vbox2->pack_start( $framesp, FALSE, FALSE, 0 );
  3739.  my $vboxsp = Gtk2::VBox->new;
  3740.  $vboxsp->set_border_width($border_width);
  3741.  $framesp->add($vboxsp);
  3742.  my $combobsp = Gtk2::ComboBox->new_text;
  3743.  foreach my $profile ( keys %{ $SETTING{profile} } ) {
  3744.   $combobsp->append_text($profile);
  3745.  }
  3746.  $combobsp->signal_connect(
  3747.   changed => sub {
  3748.    my $profile = $combobsp->get_active_text;
  3749.    if ( defined $profile ) {
  3750.     $logger->debug( "Setting profile $profile: ",
  3751.      Dumper( $SETTING{profile}{$profile} ) );
  3752.     if ( ref( $SETTING{profile}{$profile} ) eq 'HASH' ) {
  3753.      while ( my ( $key, $value ) = each %{ $SETTING{profile}{$profile} } ) {
  3754.       $SETTING{$key} = $value;
  3755.      }
  3756.     }
  3757.     elsif ( ref( $SETTING{profile}{$profile} ) eq 'ARRAY' ) {
  3758.      for ( @{ $SETTING{profile}{$profile} } ) {
  3759.       my ( $name, $value ) = each %$_;
  3760.       $SETTING{$name} = $value;
  3761.      }
  3762.     }
  3763.     rescan_options( $device_list[ $combobd->get_active ]{name} )
  3764.       if ( defined $combobd );
  3765.    }
  3766.   }
  3767.  );
  3768.  if ( defined $SETTING{'default profile'} ) {
  3769.   Gscan2pdf::Dialog::Scan::Sane::set_combobox_by_text( $combobsp,
  3770.    $SETTING{'default profile'} );
  3771.  }
  3772.  elsif ( Gscan2pdf::Dialog::Scan::Sane::num_rows_combobox($combobsp) > -1 ) {
  3773.   $combobsp->set_active(0);
  3774.  }
  3775.  $combobsp->set_active(
  3776.   Gscan2pdf::Dialog::Scan::Sane::num_rows_combobox($combobsp) );
  3777.  $vboxsp->pack_start( $combobsp, FALSE, FALSE, 0 );
  3778.  my $hboxsp = Gtk2::HBox->new;
  3779.  $vboxsp->pack_end( $hboxsp, FALSE, FALSE, 0 );
  3780.  
  3781.  # Save button
  3782.  my $vbutton = Gtk2::Button->new_from_stock('gtk-save');
  3783.  $vbutton->signal_connect(
  3784.   clicked => sub {
  3785.    my $dialog = Gtk2::Dialog->new(
  3786.     $d->get('Name of scan profile'), $windows,
  3787.     'destroy-with-parent',
  3788.     'gtk-save'   => 'ok',
  3789.     'gtk-cancel' => 'cancel'
  3790.    );
  3791.    my $hbox  = Gtk2::HBox->new;
  3792.    my $label = Gtk2::Label->new( $d->get('Name of scan profile') );
  3793.    $hbox->pack_start( $label, FALSE, FALSE, 0 );
  3794.    my $entry = Gtk2::Entry->new;
  3795.    $entry->set_activates_default(TRUE);
  3796.    $hbox->pack_end( $entry, TRUE, TRUE, 0 );
  3797.    $dialog->vbox->add($hbox);
  3798.    $dialog->set_default_response('ok');
  3799.    $dialog->show_all;
  3800.  
  3801.    if ( $dialog->run eq 'ok' and $entry->get_text !~ /^\s*$/x ) {
  3802.     my $profile = $entry->get_text;
  3803.     $SETTING{'default profile'} = $profile;
  3804.     my %options = walk_options_tree();
  3805.     $combobsp->append_text($profile);
  3806.     $SETTING{profile}{$profile} = \%options;
  3807.     $combobsp->set_active(
  3808.      Gscan2pdf::Dialog::Scan::Sane::num_rows_combobox($combobsp) );
  3809.    }
  3810.    $dialog->destroy;
  3811.   }
  3812.  );
  3813.  $hboxsp->pack_start( $vbutton, TRUE, TRUE, 0 );
  3814.  
  3815.  # Delete button
  3816.  my $dbutton = Gtk2::Button->new_from_stock('gtk-delete');
  3817.  $dbutton->signal_connect(
  3818.   clicked => sub {
  3819.    my $i = $combobsp->get_active;
  3820.    if ( $i > -1 ) {
  3821.     delete $SETTING{profile}{ $combobsp->get_active_text };
  3822.     $combobsp->remove_text($i);
  3823.     my $n = Gscan2pdf::Dialog::Scan::Sane::num_rows_combobox($combobsp);
  3824.     $i = $n if ( $i > $n );
  3825.     $combobsp->set_active($i) if ( $i > -1 );
  3826.    }
  3827.   }
  3828.  );
  3829.  $hboxsp->pack_start( $dbutton, FALSE, FALSE, 0 );
  3830.  
  3831.  # HBox for buttons
  3832.  my $hboxb = Gtk2::HBox->new;
  3833.  $vbox->pack_end( $hboxb, FALSE, FALSE, 0 );
  3834.  
  3835.  # Scan button
  3836.  $scan_button = Gtk2::Button->new( $d->get('Scan') );
  3837.  $hboxb->pack_start( $scan_button, TRUE, TRUE, 0 );
  3838.  $scan_button->signal_connect(
  3839.   clicked => sub {
  3840.  
  3841.    # Update undo/redo buffers
  3842.    take_snapshot();
  3843.  
  3844.    # Get selected device
  3845.    $SETTING{device} = $device_list[ $combobd->get_active ]{name};
  3846.  
  3847.    # ignore artificial paper size option
  3848.    my %options = walk_options_tree();
  3849.    delete $options{'Paper size'} if ( defined $options{'Paper size'} );
  3850.  
  3851.    # Get selected number of pages
  3852.    my $npages;
  3853.    if ( $bscannum->get_active ) {
  3854.     $SETTING{'pages to scan'} = $spin_buttonn->get_value;
  3855.     $npages = $SETTING{'pages to scan'};
  3856.    }
  3857.    else {
  3858.     $SETTING{'pages to scan'} = 'all';
  3859.     if ( $step < 0 ) {
  3860.      $npages =
  3861.        $slist->pages_possible( $spin_buttons->get_value,
  3862.       $spin_buttoni->get_value );
  3863.     }
  3864.     else {
  3865.      $npages = 0;
  3866.     }
  3867.    }
  3868.  
  3869.    $start = $spin_buttons->get_value;
  3870.    $step  = $spin_buttoni->get_value;
  3871.  
  3872.    if ( not $checkx->get_active and $start == 1 and $step < 0 ) {
  3873.     show_message_dialog( $windows, 'error', 'cancel',
  3874.      $d->get('Must scan facing pages first') );
  3875.     return TRUE;
  3876.    }
  3877.  
  3878.    $SETTING{'rotate facing'}  = 0;
  3879.    $SETTING{'rotate reverse'} = 0;
  3880.    if ( $rbutton->get_active ) {
  3881.     if ( $side[ $comboboxs->get_active ]->[0] eq 'both' ) {
  3882.      $SETTING{'rotate facing'}  = $rotate[ $comboboxr->get_active ]->[0];
  3883.      $SETTING{'rotate reverse'} = $SETTING{'rotate facing'};
  3884.     }
  3885.     elsif ( $side[ $comboboxs->get_active ]->[0] eq 'facing' ) {
  3886.      $SETTING{'rotate facing'} = $rotate[ $comboboxr->get_active ]->[0];
  3887.     }
  3888.     else {
  3889.      $SETTING{'rotate reverse'} = $rotate[ $comboboxr->get_active ]->[0];
  3890.     }
  3891.     if ( $r2button->get_active ) {
  3892.      if ( $side2[ $comboboxs2->get_active ]->[0] eq 'facing' ) {
  3893.       $SETTING{'rotate facing'} = $rotate[ $comboboxr2->get_active ]->[0];
  3894.      }
  3895.      else {
  3896.       $SETTING{'rotate reverse'} = $rotate[ $comboboxr2->get_active ]->[0];
  3897.      }
  3898.     }
  3899.    }
  3900.    $logger->info("rotate facing $SETTING{'rotate facing'}");
  3901.    $logger->info("rotate reverse $SETTING{'rotate reverse'}");
  3902.    my $rotate_facing  = $SETTING{'rotate facing'};
  3903.    my $rotate_reverse = $SETTING{'rotate reverse'};
  3904.    $logger->info( $duplex ? "" : "non-", "duplex mode" );
  3905.    if ( not $duplex ) {
  3906.     if ( $step > 0 ) {
  3907.      $rotate_reverse = $SETTING{'rotate facing'};
  3908.     }
  3909.     else {
  3910.      $rotate_facing = $SETTING{'rotate reverse'};
  3911.     }
  3912.    }
  3913.    $logger->info("rotate_facing $rotate_facing");
  3914.    $logger->info("rotate_reverse $rotate_reverse");
  3915.  
  3916.    $SETTING{'unpaper on scan'} = $ubutton->get_active;
  3917.    $logger->info("unpaper $SETTING{'unpaper on scan'}");
  3918.    $SETTING{'OCR on scan'} = $obutton->get_active;
  3919.    $logger->info("OCR $SETTING{'OCR on scan'}");
  3920.    if ( $SETTING{'OCR on scan'} ) {
  3921.     $SETTING{'ocr engine'}   = $ocr_engine[ $comboboxe->get_active ]->[0];
  3922.     $SETTING{'ocr language'} = $tesslang[ $comboboxtl->get_active ]->[0]
  3923.       if ( $SETTING{'ocr engine'} eq 'tesseract'
  3924.      or $SETTING{'ocr engine'} eq 'ocropus' );
  3925.     $SETTING{'ocr language'} = $cflang[ $comboboxcl->get_active ]->[0]
  3926.       if ( $SETTING{'ocr engine'} eq 'cuneiform' );
  3927.    }
  3928.    scan_pages(
  3929.     device         => $SETTING{device},
  3930.     npages         => $npages,
  3931.     offset         => $start - $step,
  3932.     step           => $step,
  3933.     rotate_facing  => $rotate_facing,
  3934.     rotate_reverse => $rotate_reverse,
  3935.     unpaper        => $SETTING{'unpaper on scan'},
  3936.     ocr            => $SETTING{'OCR on scan'},
  3937.     device_options => \%options
  3938.    );
  3939.   }
  3940.  );
  3941.  
  3942.  # Cancel button
  3943.  my $cbutton = Gtk2::Button->new_from_stock('gtk-close');
  3944.  $hboxb->pack_end( $cbutton, FALSE, FALSE, 0 );
  3945.  $cbutton->signal_connect( clicked => sub { $windows->hide; } );
  3946.  
  3947.  if ($test) {
  3948.   parse_device_list( $test->{output} );
  3949.   populate_device_list($hboxd);
  3950.  }
  3951.  elsif ( not @device ) {
  3952.   get_devices($hboxd);
  3953.  }
  3954.  else {
  3955.   populate_device_list($hboxd);
  3956.  }
  3957.  
  3958.  # Show window
  3959.  $windows->show_all;
  3960.  $framex->hide_all;
  3961.  $hboxtl->hide_all
  3962.    if (
  3963.   defined($hboxtl)
  3964.   and not( $ocr_engine[ $comboboxe->get_active ]->[0] eq 'tesseract'
  3965.    or $ocr_engine[ $comboboxe->get_active ]->[0] eq 'ocropus' )
  3966.    );
  3967.  $hboxcl->hide_all
  3968.    if ( defined($hboxcl)
  3969.   and not( $ocr_engine[ $comboboxe->get_active ]->[0] eq 'cuneiform' ) );
  3970.  
  3971. # Has to be done after showing the window, otherwise the window doesn't get centred.
  3972.  if ($test) {
  3973.   $scan_button->grab_focus;
  3974.  }
  3975.  else {
  3976.   $scan_button->set_sensitive(FALSE);
  3977.  }
  3978.  return;
  3979. }
  3980.  
  3981. sub add_postprocessing_options {
  3982.  my ($vbox) = @_;
  3983.  
  3984.  # Frame for post-processing
  3985.  my $framep = Gtk2::Frame->new( $d->get('Post-processing') );
  3986.  $vbox->pack_start( $framep, FALSE, FALSE, 0 );
  3987.  my $vboxp = Gtk2::VBox->new;
  3988.  $vboxp->set_border_width($border_width);
  3989.  $framep->add($vboxp);
  3990.  
  3991.  # Rotate
  3992.  my $hboxr = Gtk2::HBox->new;
  3993.  $vboxp->pack_start( $hboxr, FALSE, FALSE, 0 );
  3994.  my $rbutton = Gtk2::CheckButton->new( $d->get('Rotate') );
  3995.  $tooltips->set_tip( $rbutton, $d->get('Rotate image after scanning') );
  3996.  $hboxr->pack_start( $rbutton, TRUE, TRUE, 0 );
  3997.  my @side = (
  3998.   [ 'both',    $d->get('Both sides'),   $d->get('Both sides.') ],
  3999.   [ 'facing',  $d->get('Facing side'),  $d->get('Facing side.') ],
  4000.   [ 'reverse', $d->get('Reverse side'), $d->get('Reverse side.') ],
  4001.  );
  4002.  my $comboboxs = combobox_from_array(@side);
  4003.  $tooltips->set_tip( $comboboxs, $d->get('Select side to rotate') );
  4004.  $hboxr->pack_start( $comboboxs, TRUE, TRUE, 0 );
  4005.  my @rotate = (
  4006.   [ 90,  $d->get('90'),  $d->get('Rotate image 90 degrees clockwise.') ],
  4007.   [ 180, $d->get('180'), $d->get('Rotate image 180 degrees clockwise.') ],
  4008.   [ 270, $d->get('270'), $d->get('Rotate image 90 degrees anticlockwise.') ],
  4009.  );
  4010.  my $comboboxr = combobox_from_array(@rotate);
  4011.  $tooltips->set_tip( $comboboxr, $d->get('Select direction of rotation') );
  4012.  $hboxr->pack_end( $comboboxr, TRUE, TRUE, 0 );
  4013.  
  4014.  $hboxr = Gtk2::HBox->new;
  4015.  $vboxp->pack_start( $hboxr, FALSE, FALSE, 0 );
  4016.  my $r2button = Gtk2::CheckButton->new( $d->get('Rotate') );
  4017.  $tooltips->set_tip( $r2button, $d->get('Rotate image after scanning') );
  4018.  $hboxr->pack_start( $r2button, TRUE, TRUE, 0 );
  4019.  my @side2;
  4020.  my $comboboxs2 = Gtk2::ComboBox->new_text;
  4021.  $tooltips->set_tip( $comboboxs2, $d->get('Select side to rotate') );
  4022.  $hboxr->pack_start( $comboboxs2, TRUE, TRUE, 0 );
  4023.  my $comboboxr2 = combobox_from_array(@rotate);
  4024.  $tooltips->set_tip( $comboboxr2, $d->get('Select direction of rotation') );
  4025.  $hboxr->pack_end( $comboboxr2, TRUE, TRUE, 0 );
  4026.  
  4027.  $rbutton->signal_connect(
  4028.   toggled => sub {
  4029.    if ( $rbutton->get_active ) {
  4030.     $hboxr->set_sensitive(TRUE)
  4031.       if ( $side[ $comboboxs->get_active ]->[0] ne 'both' );
  4032.    }
  4033.    else {
  4034.     $hboxr->set_sensitive(FALSE);
  4035.    }
  4036.   }
  4037.  );
  4038.  $comboboxs->signal_connect(
  4039.   changed => sub {
  4040.    if ( $side[ $comboboxs->get_active ]->[0] eq 'both' ) {
  4041.     $hboxr->set_sensitive(FALSE);
  4042.     $r2button->set_active(FALSE);
  4043.    }
  4044.    else {
  4045.     $hboxr->set_sensitive(TRUE) if ( $rbutton->get_active );
  4046.  
  4047.     # Empty combobox
  4048.     while ( $comboboxs2->get_active > -1 ) {
  4049.      $comboboxs2->remove_text(0);
  4050.      $comboboxs2->set_active(0);
  4051.     }
  4052.     @side2 = ();
  4053.     foreach (@side) {
  4054.      push @side2, $_
  4055.        unless ( $_->[0] eq 'both'
  4056.       or $_->[0] eq $side[ $comboboxs->get_active ]->[0] );
  4057.     }
  4058.     $comboboxs2->append_text( $side2[0]->[1] );
  4059.     $comboboxs2->set_active(0);
  4060.    }
  4061.   }
  4062.  );
  4063.  
  4064.  # In case it isn't set elsewhere
  4065.  combobox_set_active( $comboboxr2, 90, @rotate );
  4066.  
  4067.  if ( $SETTING{'rotate facing'} or $SETTING{'rotate reverse'} ) {
  4068.   $rbutton->set_active(TRUE);
  4069.  }
  4070.  if ( $SETTING{'rotate facing'} == $SETTING{'rotate reverse'} ) {
  4071.   combobox_set_active( $comboboxs, 'both', @side );
  4072.   combobox_set_active( $comboboxr, $SETTING{'rotate facing'}, @rotate );
  4073.  }
  4074.  elsif ( $SETTING{'rotate facing'} ) {
  4075.   combobox_set_active( $comboboxs, 'facing', @side );
  4076.   combobox_set_active( $comboboxr, $SETTING{'rotate facing'}, @rotate );
  4077.   if ( $SETTING{'rotate reverse'} ) {
  4078.    $r2button->set_active(TRUE);
  4079.    combobox_set_active( $comboboxs2, 'reverse', @side2 );
  4080.    combobox_set_active( $comboboxr2, $SETTING{'rotate reverse'}, @rotate );
  4081.   }
  4082.  }
  4083.  else {
  4084.   combobox_set_active( $comboboxs, 'reverse', @side );
  4085.   combobox_set_active( $comboboxr, $SETTING{'rotate reverse'}, @rotate );
  4086.  }
  4087.  
  4088.  # CheckButton for unpaper
  4089.  my $hboxu = Gtk2::HBox->new;
  4090.  $vboxp->pack_start( $hboxu, FALSE, FALSE, 0 );
  4091.  my $ubutton = Gtk2::CheckButton->new( $d->get('Clean up images') );
  4092.  $tooltips->set_tip( $ubutton,
  4093.   $d->get('Clean up scanned images with unpaper') );
  4094.  $hboxu->pack_start( $ubutton, TRUE, TRUE, 0 );
  4095.  if ( not $dependencies{unpaper} ) {
  4096.   $ubutton->set_sensitive(FALSE);
  4097.   $ubutton->set_active(FALSE);
  4098.  }
  4099.  elsif ( $SETTING{'unpaper on scan'} ) {
  4100.   $ubutton->set_active(TRUE);
  4101.  }
  4102.  my $button = Gtk2::Button->new( $d->get('Options') );
  4103.  $tooltips->set_tip( $button, $d->get('Set unpaper options') );
  4104.  $hboxu->pack_end( $button, TRUE, TRUE, 0 );
  4105.  $button->signal_connect(
  4106.   clicked => sub {
  4107.    my $windowuo = Gscan2pdf::Dialog->new(
  4108.     'transient-for' => $window,
  4109.     title           => $d->get('unpaper options'),
  4110.     border_width    => $border_width
  4111.    );
  4112.    my $vbox1 = $windowuo->get('vbox');
  4113.    $unpaper->add_options($vbox1);
  4114.  
  4115.    # HBox for buttons
  4116.    my $hboxb = Gtk2::HBox->new;
  4117.    $vbox1->pack_start( $hboxb, FALSE, TRUE, 0 );
  4118.  
  4119.    # OK button
  4120.    my $sbutton = Gtk2::Button->new_from_stock('gtk-ok');
  4121.    $hboxb->pack_start( $sbutton, TRUE, TRUE, 0 );
  4122.    $sbutton->signal_connect(
  4123.     clicked => sub {
  4124.  
  4125.      # Update $SETTING
  4126.      $SETTING{'unpaper options'} = $unpaper->get_options;
  4127.  
  4128.      $windowuo->destroy;
  4129.     }
  4130.    );
  4131.  
  4132.    # Cancel button
  4133.    my $cbutton = Gtk2::Button->new_from_stock('gtk-cancel');
  4134.    $hboxb->pack_end( $cbutton, FALSE, FALSE, 0 );
  4135.    $cbutton->signal_connect( clicked => sub { $windowuo->destroy; } );
  4136.  
  4137.    $windowuo->show_all;
  4138.   }
  4139.  );
  4140.  
  4141.  # CheckButton for OCR
  4142.  my $hboxo = Gtk2::HBox->new;
  4143.  $vboxp->pack_start( $hboxo, FALSE, FALSE, 0 );
  4144.  my $obutton = Gtk2::CheckButton->new( $d->get('OCR scanned pages') );
  4145.  $tooltips->set_tip( $obutton, $d->get('OCR scanned pages') );
  4146.  if ( not $dependencies{gocr}
  4147.   and not $dependencies{tesseract}
  4148.   and not $dependencies{ocropus}
  4149.   and not $dependencies{cuneiform} )
  4150.  {
  4151.   $hboxo->set_sensitive(FALSE);
  4152.   $obutton->set_active(FALSE);
  4153.  }
  4154.  elsif ( $SETTING{'OCR on scan'} ) {
  4155.   $obutton->set_active(TRUE);
  4156.  }
  4157.  $hboxo->pack_start( $obutton, TRUE, TRUE, 0 );
  4158.  my $comboboxe = combobox_from_array(@ocr_engine);
  4159.  $tooltips->set_tip( $comboboxe, $d->get('Select OCR engine') );
  4160.  $hboxo->pack_end( $comboboxe, TRUE, TRUE, 0 );
  4161.  my ( $comboboxtl, $hboxtl, @tesslang, $comboboxcl, $hboxcl, @cflang );
  4162.  if ( $dependencies{tesseract} ) {
  4163.   ( $hboxtl, $comboboxtl, @tesslang ) = add_tess_languages($vboxp);
  4164.   $comboboxe->signal_connect(
  4165.    changed => sub {
  4166.     if ($ocr_engine[ $comboboxe->get_active ]->[0] eq 'tesseract'
  4167.      or $ocr_engine[ $comboboxe->get_active ]->[0] eq 'ocropus' )
  4168.     {
  4169.      $hboxtl->show_all;
  4170.     }
  4171.     else {
  4172.      $hboxtl->hide_all;
  4173.     }
  4174.    }
  4175.   );
  4176.   if ( $dependencies{cuneiform} ) {
  4177.    ( $hboxcl, $comboboxcl, @cflang ) = add_cf_languages($vboxp);
  4178.    $comboboxe->signal_connect(
  4179.     changed => sub {
  4180.      if ( $ocr_engine[ $comboboxe->get_active ]->[0] eq 'cuneiform' ) {
  4181.       $hboxcl->show_all;
  4182.      }
  4183.      else {
  4184.       $hboxcl->hide_all;
  4185.      }
  4186.     }
  4187.    );
  4188.   }
  4189.   $hboxtl->set_sensitive(FALSE) unless ( $obutton->get_active );
  4190.   $obutton->signal_connect(
  4191.    toggled => sub {
  4192.     if ( $obutton->get_active ) {
  4193.      $hboxtl->set_sensitive(TRUE);
  4194.     }
  4195.     else {
  4196.      $hboxtl->set_sensitive(FALSE);
  4197.     }
  4198.    }
  4199.   );
  4200.  }
  4201.  combobox_set_active( $comboboxe, $SETTING{'ocr engine'}, @ocr_engine );
  4202.  return (
  4203.   \@rotate,    \@side,     \@side2,     \@tesslang, \@cflang,
  4204.   $rbutton,    $r2button,  $ubutton,    $obutton,   $comboboxs,
  4205.   $comboboxs2, $comboboxr, $comboboxr2, $comboboxe, $comboboxtl,
  4206.   $comboboxcl, $hboxtl,    $hboxcl
  4207.  );
  4208. }
  4209.  
  4210. # Run scanimage --formatted-device-list
  4211.  
  4212. sub get_devices {
  4213.  my $hboxd = shift;
  4214.  
  4215.  # Set up ProgressBar
  4216.  my $pbar = Gtk2::ProgressBar->new;
  4217.  $pbar->set_pulse_step(.1);
  4218.  $pbar->set_text( $d->get('Fetching list of devices') );
  4219.  $hboxd->pack_start( $pbar, TRUE, TRUE, 0 );
  4220.  $pbar->show;
  4221.  
  4222.  Gscan2pdf::Frontend::CLI->get_devices(
  4223.   prefix            => $SETTING{'scan prefix'},
  4224.   running_callback  => sub { $pbar->pulse },
  4225.   finished_callback => sub {
  4226.    my ($device_list) = @_;
  4227.    $pbar->destroy;
  4228.  
  4229.    if ( $#{$device_list} == -1 ) {
  4230.     $windows->destroy;
  4231.     undef $windows;
  4232.     show_message_dialog( $window, 'error', 'close',
  4233.      $d->get('No devices found') );
  4234.     return;
  4235.    }
  4236.  
  4237.    # Note any duplicate device names and delete if necessary
  4238.    my %seen;
  4239.    my $i = 0;
  4240.    while ( $i < @$device_list ) {
  4241.     $seen{ $device_list->[$i]{name} }++;
  4242.     if ( $seen{ $device_list->[$i]{name} } > 1 ) {
  4243.      splice @$device_list, $i, 1;
  4244.     }
  4245.     else {
  4246.      $i++;
  4247.     }
  4248.    }
  4249.  
  4250.    # Note any duplicate model names and add the device if necessary
  4251.    undef %seen;
  4252.    for (@$device_list) {
  4253.     $_->{model} = $_->{name} unless ( defined $_->{model} );
  4254.     $seen{ $_->{model} }++;
  4255.    }
  4256.    for (@$device_list) {
  4257.     if ( defined $_->{vendor} ) {
  4258.      $_->{label} = "$_->{vendor} $_->{model}";
  4259.     }
  4260.     else {
  4261.      $_->{label} = $_->{model};
  4262.     }
  4263.     $_->{label} .= " on $_->{name}" if ( $seen{ $_->{model} } > 1 );
  4264.    }
  4265.  
  4266.    if (@device_list) {    # Update combobox
  4267.     $i = 0;
  4268.     while ( $i < @device_list ) {
  4269.      if ( @$device_list
  4270.       and $i < @$device_list
  4271.       and $device_list[$i]{label} ne $device_list->[$i]{label} )
  4272.      {
  4273.       $combobd->insert_text( $i, $device_list->[$i]{label} );
  4274.       $combobd->remove_text($i);
  4275.      }
  4276.      $i++;
  4277.     }
  4278.     while ( $i < @$device_list ) {
  4279.      $combobd->append_text( $device_list->[ $i++ ]{label} );
  4280.     }
  4281.     @device_list = @{$device_list};
  4282.     set_device();
  4283.     $combobd->show;
  4284.     $labeld->show;
  4285.    }
  4286.    else {    # New combobox
  4287.     @device_list = @{$device_list};
  4288.     populate_device_list($hboxd);
  4289.    }
  4290.  
  4291.    # # If device not set by config and there is a default device, then set it
  4292.    # $SETTING{device} = $1
  4293.    #   if ( not defined( $SETTING{device} )
  4294.    #  and defined($output)
  4295.    #  and $output =~ /default\ device\ is\ `(.*)'/x );
  4296.  
  4297.   }
  4298.  );
  4299.  return;
  4300. }
  4301.  
  4302. # Scan
  4303.  
  4304. sub scan_dialog2 {
  4305.  
  4306.  if ( defined $windows2 ) {
  4307.   $windows2->present;
  4308.   return;
  4309.  }
  4310.  
  4311.  # If device not set by config and there is a default device, then set it
  4312.  $SETTING{device} = $ENV{'SANE_DEFAULT_DEVICE'}
  4313.    if ( not defined( $SETTING{device} )
  4314.   and defined( $ENV{'SANE_DEFAULT_DEVICE'} ) );
  4315.  
  4316.  $SETTING{'pages to scan'} = 0 if ( $SETTING{'pages to scan'} eq 'all' );
  4317.  
  4318.  # scan pop-up window
  4319.  $windows2 = Gscan2pdf::Dialog::Scan::Sane->new(
  4320.   'transient-for'     => $window,
  4321.   title               => $d->get('Scan Document'),
  4322.   border_width        => $border_width,
  4323.   logger              => $logger,
  4324.   dir                 => $session,
  4325.   'hide-on-delete'    => TRUE,
  4326.   'num-pages'         => $SETTING{'pages to scan'},
  4327.   'page-number-start' => $#{ $slist->{data} } > -1
  4328.   ? $slist->{data}[ $#{ $slist->{data} } ][0] + 1
  4329.   : 1,
  4330.  );
  4331.  
  4332. # Can't set the device when creating the window, as the list does not exist then
  4333.  $windows2->signal_connect(
  4334.   'changed-device-list' => sub {
  4335.    my ( $widget, $device_list ) = @_;
  4336.    if ( defined $device_list ) {
  4337.  
  4338.     # Only set default device if it hasn't been specified on the command line
  4339.     # and it is in the the device list
  4340.     if ( defined( $SETTING{device} ) and not @device_list ) {
  4341.      for (@$device_list) {
  4342.       if ( $SETTING{device} eq $_->{name} ) {
  4343.        $windows2->set( 'device', $SETTING{device} );
  4344.        return;
  4345.       }
  4346.      }
  4347.     }
  4348.     $windows2->set( 'device', $device_list->[0]{name} );
  4349.    }
  4350.   }
  4351.  );
  4352.  
  4353.  # Update default device
  4354.  $windows2->signal_connect(
  4355.   'changed-device' => sub {
  4356.    my ( $widget, $device ) = @_;
  4357.    $SETTING{device} = $device
  4358.      if ( defined($device) and $device ne '' );
  4359.   }
  4360.  );
  4361.  
  4362.  # Set default
  4363.  $windows2->signal_connect(
  4364.   'changed-num-pages' => sub {
  4365.    ( my $widget, $SETTING{'pages to scan'} ) = @_;
  4366.  
  4367.    # Check that there is room in the list for the number of pages
  4368.    update_number();
  4369.   }
  4370.  );
  4371.  $windows2->signal_connect(
  4372.   'changed-page-number-start' => sub {
  4373.    my ( $widget, $value ) = @_;
  4374.    $windows2->set( 'max-pages',
  4375.     $slist->pages_possible( $value, $windows2->get('page-number-increment') ) );
  4376.   }
  4377.  );
  4378.  $windows2->signal_connect(
  4379.   'changed-page-number-increment' => sub {
  4380.    my ( $widget, $step ) = @_;
  4381.    $windows2->set( 'max-pages',
  4382.     $slist->pages_possible( $windows2->get('page-number-start'), $step ) );
  4383.   }
  4384.  );
  4385.  
  4386.  $windows2->signal_connect(
  4387.   'changed-side-to-scan' => sub {
  4388.    my ( $widget, $side ) = @_;
  4389.    if ( $#{ $slist->{data} } > -1 ) {
  4390.     $windows2->set( 'page-number-start',
  4391.      $slist->{data}[ $#{ $slist->{data} } ][0] + 1 );
  4392.    }
  4393.    else {
  4394.     $windows2->set( 'page-number-start', 1 );
  4395.    }
  4396.   }
  4397.  );
  4398.  
  4399.  my $signal;
  4400.  $windows2->signal_connect(
  4401.   'started-process' => sub {
  4402.    my ( $widget, $message ) = @_;
  4403.    $spbar->set_fraction(0);
  4404.    $spbar->set_text($message);
  4405.    $shbox->show_all;
  4406.    $signal = $scbutton->signal_connect(
  4407.     clicked => sub {
  4408.      $windows2->cancel_scan;
  4409.     }
  4410.    );
  4411.   }
  4412.  );
  4413.  
  4414.  $windows2->signal_connect(
  4415.   'changed-progress' => sub {
  4416.    my ( $widget, $progress, $message ) = @_;
  4417.    if ( $progress == -1 ) {
  4418.     $spbar->pulse;
  4419.    }
  4420.    else {
  4421.     $spbar->set_fraction($progress);
  4422.    }
  4423.    $spbar->set_text($message) if ( defined $message );
  4424.   }
  4425.  );
  4426.  
  4427.  $windows2->signal_connect(
  4428.   'finished-process' => sub {
  4429.    my ( $widget, $process, $button_signal ) = @_;
  4430.    $scbutton->signal_handler_disconnect($button_signal)
  4431.      if ( defined $button_signal );
  4432.    $shbox->hide;
  4433.  
  4434.    $windows2->scan_options( $SETTING{device} )
  4435.      if ( $SETTING{'cycle sane handle'} and $process eq 'scan_pages' );
  4436.   },
  4437.   $signal
  4438.  );
  4439.  
  4440.  $windows2->signal_connect(
  4441.   'process-error' => sub {
  4442.    my ( $widget, $msg ) = @_;
  4443.    $scbutton->signal_handler_disconnect($signal) if ( defined $signal );
  4444.    $shbox->hide;
  4445.    show_message_dialog( $windows2, 'error', 'close', $d_sane->get($msg) );
  4446.   }
  4447.  );
  4448.  
  4449.  $windows2->signal_connect(
  4450.   'changed-scan-option' => sub {
  4451.    my ( $widget, $option, $value ) = @_;
  4452.  
  4453.    # Note resolution
  4454.    $SETTING{resolution} = $value
  4455.      if ( $option eq SANE_NAME_SCAN_RESOLUTION );
  4456.   }
  4457.  );
  4458.  
  4459.  # Profiles
  4460.  my @profiles = keys %{ $SETTING{profile} };
  4461.  foreach my $profile (@profiles) {
  4462.   $windows2->add_profile( $profile, $SETTING{profile}{$profile} );
  4463.  }
  4464.  $windows2->signal_connect(
  4465.   'changed-profile' => sub {
  4466.    my ( $widget, $profile ) = @_;
  4467.    $SETTING{'default profile'} = $profile;
  4468.   }
  4469.  );
  4470.  $windows2->signal_connect(
  4471.   'added-profile' => sub {
  4472.    my ( $widget, $name, $profile ) = @_;
  4473.    $SETTING{profile}{$name} = $profile;
  4474.   }
  4475.  );
  4476.  $windows2->signal_connect(
  4477.   'removed-profile' => sub {
  4478.    my ( $widget, $profile ) = @_;
  4479.    delete $SETTING{profile}{$profile};
  4480.   }
  4481.  );
  4482.  
  4483.  # Update the default profile when the scan options change
  4484.  $windows2->signal_connect(
  4485.   'changed-current-scan-options' => sub {
  4486.    my ( $widget, $option_array ) = @_;
  4487.    $SETTING{'default-scan-options'} = $option_array;
  4488.   }
  4489.  );
  4490.  
  4491.  # Can't set the paper or profile until the options have been loaded
  4492.  $windows2->signal_connect(
  4493.   'reloaded-scan-options' => sub {
  4494.    $windows2->set( 'paper-formats', $SETTING{Paper} );
  4495.    $windows2->set( 'paper',         $SETTING{'Paper size'} )
  4496.      if ( defined $SETTING{'Paper size'} );
  4497.  
  4498.    if ( defined $SETTING{'default profile'} ) {
  4499.     $windows2->set( 'profile', $SETTING{'default profile'} );
  4500.    }
  4501.    elsif ( defined $SETTING{'default-scan-options'} ) {
  4502.     $windows2->set( 'current-scan-options', $SETTING{'default-scan-options'} );
  4503.    }
  4504.    elsif (@profiles) {
  4505.     $windows2->set( 'profile', $profiles[0] );
  4506.    }
  4507.   }
  4508.  );
  4509.  $windows2->signal_connect(
  4510.   'changed-paper-formats' => sub {
  4511.    my ( $widget, $formats ) = @_;
  4512.    $SETTING{Paper} = $formats;
  4513.   }
  4514.  );
  4515.  $windows2->signal_connect(
  4516.   'changed-paper' => sub {
  4517.    my ( $widget, $paper ) = @_;
  4518.    $SETTING{'Paper size'} = $paper;
  4519.   }
  4520.  );
  4521.  
  4522.  my $vbox = $windows2->get('vbox');
  4523.  my (
  4524.   $rotate,     $side,      $side2,      $tesslang,  $cflang,
  4525.   $rbutton,    $r2button,  $ubutton,    $obutton,   $comboboxs,
  4526.   $comboboxs2, $comboboxr, $comboboxr2, $comboboxe, $comboboxtl,
  4527.   $comboboxcl, $hboxtl,    $hboxcl
  4528.  ) = add_postprocessing_options($vbox);
  4529.  my @rotate   = @$rotate;
  4530.  my @side     = @$side;
  4531.  my @side2    = @$side2;
  4532.  my @tesslang = @$tesslang;
  4533.  my @cflang   = @$cflang;
  4534.  
  4535.  # Show window
  4536.  $windows2->show_all;
  4537.  $hboxtl->hide_all
  4538.    if (
  4539.   defined($hboxtl)
  4540.   and not( $ocr_engine[ $comboboxe->get_active ]->[0] eq 'tesseract'
  4541.    or $ocr_engine[ $comboboxe->get_active ]->[0] eq 'ocropus' )
  4542.    );
  4543.  $hboxcl->hide_all
  4544.    if ( defined($hboxcl)
  4545.   and not( $ocr_engine[ $comboboxe->get_active ]->[0] eq 'cuneiform' ) );
  4546.  
  4547.  $windows2->signal_connect(
  4548.   'new-scan' => sub {
  4549.    my ( $widget, $n ) = @_;
  4550.  
  4551.    # Update undo/redo buffers
  4552.    take_snapshot();
  4553.  
  4554.    $SETTING{'rotate facing'}  = 0;
  4555.    $SETTING{'rotate reverse'} = 0;
  4556.    if ( $rbutton->get_active ) {
  4557.     if ( $side[ $comboboxs->get_active ]->[0] eq 'both' ) {
  4558.      $SETTING{'rotate facing'}  = $rotate[ $comboboxr->get_active ]->[0];
  4559.      $SETTING{'rotate reverse'} = $SETTING{'rotate facing'};
  4560.     }
  4561.     elsif ( $side[ $comboboxs->get_active ]->[0] eq 'facing' ) {
  4562.      $SETTING{'rotate facing'} = $rotate[ $comboboxr->get_active ]->[0];
  4563.     }
  4564.     else {
  4565.      $SETTING{'rotate reverse'} = $rotate[ $comboboxr->get_active ]->[0];
  4566.     }
  4567.     if ( $r2button->get_active ) {
  4568.      if ( $side2[ $comboboxs2->get_active ]->[0] eq 'facing' ) {
  4569.       $SETTING{'rotate facing'} = $rotate[ $comboboxr2->get_active ]->[0];
  4570.      }
  4571.      else {
  4572.       $SETTING{'rotate reverse'} = $rotate[ $comboboxr2->get_active ]->[0];
  4573.      }
  4574.     }
  4575.    }
  4576.    $logger->info("rotate facing $SETTING{'rotate facing'}");
  4577.    $logger->info("rotate reverse $SETTING{'rotate reverse'}");
  4578.  
  4579.    $SETTING{'unpaper on scan'} = $ubutton->get_active;
  4580.    $logger->info("unpaper $SETTING{'unpaper on scan'}");
  4581.    $SETTING{'OCR on scan'} = $obutton->get_active;
  4582.    $logger->info("OCR $SETTING{'OCR on scan'}");
  4583.    if ( $SETTING{'OCR on scan'} ) {
  4584.     $SETTING{'ocr engine'}   = $ocr_engine[ $comboboxe->get_active ]->[0];
  4585.     $SETTING{'ocr language'} = $tesslang[ $comboboxtl->get_active ]->[0]
  4586.       if ( $SETTING{'ocr engine'} eq 'tesseract'
  4587.      or $SETTING{'ocr engine'} eq 'ocropus' );
  4588.     $SETTING{'ocr language'} = $cflang[ $comboboxcl->get_active ]->[0]
  4589.       if ( $SETTING{'ocr engine'} eq 'cuneiform' );
  4590.    }
  4591.  
  4592.    # If the scan can't be loaded then blow the scanning dialog away and
  4593.    # show an error
  4594.    $rotate = $n % 2 ? $SETTING{'rotate facing'} : $SETTING{'rotate reverse'};
  4595.    if ( defined $test_image ) {
  4596.     import_scan(
  4597.      filename => $test_image,
  4598.      page     => $n,
  4599.      delete   => FALSE,
  4600.      rotate   => $rotate,
  4601.      unpaper  => $SETTING{'unpaper on scan'},
  4602.      ocr      => $SETTING{'OCR on scan'}
  4603.     );
  4604.    }
  4605.    else {
  4606.     $SETTING{resolution} =
  4607.       defined( $SETTING{resolution} )
  4608.       ? $SETTING{resolution}
  4609.       : $Gscan2pdf::Document::POINTS_PER_INCH;
  4610.     $logger->info("Importing scan with resolution=$SETTING{resolution}");
  4611.     import_scan(
  4612.      filename   => File::Spec->catdir( $session, "out$n.pnm" ),
  4613.      page       => $n,
  4614.      resolution => $SETTING{resolution},
  4615.      delete     => TRUE,
  4616.      rotate     => $rotate,
  4617.      unpaper    => $SETTING{'unpaper on scan'},
  4618.      ocr        => $SETTING{'OCR on scan'}
  4619.     );
  4620.    }
  4621.   }
  4622.  );
  4623.  
  4624.  if (@device_list) {
  4625.   $windows2->set( 'device-list', \@device_list );
  4626.  }
  4627.  else {
  4628.   $windows2->get_devices;
  4629.  }
  4630.  
  4631.  return;
  4632. }
  4633.  
  4634. sub walk_options_tree {
  4635.  
  4636.  # Get device-specific options
  4637.  my %options;
  4638.  if ( defined $vbox_manual_paper ) {
  4639.   foreach my $hbox ( $vboxd->get_children, $vbox_manual_paper->get_children ) {
  4640.    my $key;
  4641.    if ( $hbox->isa('Gtk2::HBox') and $hbox->sensitive ) {
  4642.     foreach my $widget ( $hbox->get_children ) {
  4643.      if ( $widget->isa('Gtk2::Label') ) {
  4644.       $key = get_key( \%ddo, $widget->get_label );
  4645.      }
  4646.      elsif ( $widget->isa('Gtk2::ComboBox') ) {
  4647.       if ( $key eq 'Paper size' ) {    ## no critic (ProhibitDeepNests)
  4648.        $SETTING{$key} = $widget->get_active_text;
  4649.       }
  4650.       else {
  4651.        $SETTING{$key} = get_value( \%ddo, $key, $widget->get_active_text );
  4652.       }
  4653.       $options{$key} = $SETTING{$key};
  4654.      }
  4655.      elsif ( $widget->isa('Gtk2::SpinButton') ) {
  4656.       $options{$key} = $widget->get_value;
  4657.       $SETTING{$key} = $options{$key};
  4658.      }
  4659.     }
  4660.    }
  4661.   }
  4662.  }
  4663.  $logger->debug( Dumper( \%options ) );
  4664.  return %options;
  4665. }
  4666.  
  4667. sub populate_device_list {
  4668.  my ($hboxd) = @_;
  4669.  
  4670.  # device list
  4671.  $labeld = Gtk2::Label->new( $d->get('Device') );
  4672.  $hboxd->pack_start( $labeld, FALSE, FALSE, 0 );
  4673.  $combobd = Gtk2::ComboBox->new_text;
  4674.  
  4675.  # read the model names into the combobox
  4676.  foreach (@device_list) {
  4677.   $combobd->append_text( $_->{label} );
  4678.  }
  4679.  $combobd->append_text( $d->get('Rescan for devices') ) unless ($test);
  4680.  
  4681.  # flags whether already run or not
  4682.  my $run = FALSE;
  4683.  $combobd->signal_connect(
  4684.   changed => sub {
  4685.    my $index = $combobd->get_active;
  4686.    if ( $index > $#device_list ) {
  4687.     $combobd->hide;
  4688.     $labeld->hide;
  4689.     get_devices($hboxd);
  4690.    }
  4691.    else {
  4692.  
  4693.     # only delete the mode setting if switching devices, not on first run
  4694.     delete $SETTING{mode} if ($run);
  4695.     $run = TRUE;
  4696.     rescan_options( $device_list[$index]{name} );
  4697.     $vboxd->show_all;
  4698.    }
  4699.   }
  4700.  );
  4701.  $tooltips->set_tip( $combobd,
  4702.   $d->get('Sets the device to be used for the scan') );
  4703.  $hboxd->pack_end( $combobd, FALSE, FALSE, 0 );
  4704.  
  4705.  # If device in settings then set it
  4706.  set_device();
  4707.  $hboxd->show_all;
  4708.  return;
  4709. }
  4710.  
  4711. sub set_device {
  4712.  my $o;
  4713.  if ( defined $SETTING{device} ) {
  4714.   for ( my $i = 0 ; $i < @device_list ; $i++ ) {
  4715.    $o = $i if ( $SETTING{device} eq $device_list[$i]{name} );
  4716.   }
  4717.  }
  4718.  unless ( defined $o ) {
  4719.   $o = 0;
  4720.   delete $SETTING{mode};
  4721.  }
  4722.  
  4723. # Set the device dependent devices after the number of pages to scan so that
  4724. #  the source button callback can ghost the all button
  4725. # This then fires the callback, updating the options, so no need to do it further down.
  4726.  $combobd->set_active($o);
  4727.  return;
  4728. }
  4729.  
  4730. # Called either from changed-value signal of spinbutton,
  4731. # or row-changed signal of simplelist
  4732.  
  4733. sub update_start {
  4734.  return unless ( defined($spin_buttons) or defined($windows2) );
  4735.  my ( $value, $step );
  4736.  if ( defined $windows2 ) {
  4737.   $value = $windows2->get('page-number-start');
  4738.   $start = $windows2->get('page-number-start') unless ( defined $start );
  4739.   $step  = $value - $start;
  4740.   $step  = $windows2->get('page-number-increment') if ( $step == 0 );
  4741.  }
  4742.  else {
  4743.   $value = $spin_buttons->get_value;
  4744.   $step  = $value - $start;
  4745.   $step  = $spin_buttoni->get_value if ( $step == 0 );
  4746.  }
  4747.  my $exists = TRUE;
  4748.  my $i = $step > 0 ? 0 : $#{ $slist->{data} };
  4749.  $start = $value;
  4750.  while ($exists) {
  4751.   if ($i < 0
  4752.    or $i > $#{ $slist->{data} }
  4753.    or ( $slist->{data}[$i][0] > $value and $step > 0 )
  4754.    or ( $slist->{data}[$i][0] < $value and $step < 0 ) )
  4755.   {
  4756.    $exists = FALSE;
  4757.   }
  4758.   elsif ( $slist->{data}[$i][0] == $value ) {
  4759.    $value += $step;
  4760.    if ( $value < 1 ) {
  4761.     $value = 1;
  4762.     $step  = 1;
  4763.    }
  4764.   }
  4765.   else {
  4766.    $i += $step > 0 ? 1 : -1;
  4767.   }
  4768.  }
  4769.  $spin_buttons->set_value($value)
  4770.    if ( defined($spin_buttons) and $start != $value );
  4771.  $windows2->set( 'page-number-start', $value ) if ( defined $windows2 );
  4772.  $start = $value;
  4773.  
  4774.  update_number();
  4775.  return;
  4776. }
  4777.  
  4778. # Update the number of pages to scan spinbutton if necessary
  4779.  
  4780. sub update_number {
  4781.  return unless ( defined($spin_buttons) or defined($windows2) );
  4782.  if ( defined $windows2 ) {
  4783.   my $n = $slist->pages_possible(
  4784.    $windows2->get('page-number-start'),
  4785.    $windows2->get('page-number-increment')
  4786.   );
  4787.   $windows2->set( 'num-pages', $n )
  4788.     if ( $n > 0 and $n < $windows2->get('num-pages') );
  4789.  }
  4790.  else {
  4791.   my $n =
  4792.     $slist->pages_possible( $spin_buttons->get_value,
  4793.    $spin_buttoni->get_value );
  4794.   $spin_buttonn->set_value($n) if ( $n > 0 and $n < $spin_buttonn->get_value );
  4795.  }
  4796.  return;
  4797. }
  4798.  
  4799. # Carry out the scan with scanimage or scanadf and the options passed.
  4800.  
  4801. sub scan_pages {
  4802.  my (%options) = @_;
  4803.  
  4804.  # Make sure we are in temp directory
  4805.  chdir $session;
  4806.  
  4807.  if ($test) {
  4808.   my $rotate = 1 % 2 ? $options{rotate_facing} : $options{rotate_reverse};
  4809.   my $index = import_scan(
  4810.    filename   => $test_image,
  4811.    page       => 1 * $options{step} + $options{offset},
  4812.    resolution => $SETTING{resolution},
  4813.    delete     => FALSE,
  4814.    rotate     => $rotate,
  4815.    unpaper    => $options{unpaper},
  4816.    ocr        => $options{ocr}
  4817.   );
  4818.  }
  4819.  else {
  4820.   my $signal;
  4821.   my @options = hash2options( %{ $options{device_options} } );
  4822.   Gscan2pdf::Frontend::CLI->scan_pages(
  4823.    prefix           => $SETTING{'scan prefix'},
  4824.    frontend         => $SETTING{frontend},
  4825.    device           => $options{device},
  4826.    npages           => $options{npages},
  4827.    options          => \@options,
  4828.    started_callback => sub {
  4829.     $spbar->set_text( $d->get('Scanning') );
  4830.     $spbar->set_pulse_step(.1);
  4831.     $shbox->show_all;
  4832.     $signal = $scbutton->signal_connect(
  4833.      clicked => sub {
  4834.       Gscan2pdf::Frontend::CLI->cancel_scan;
  4835.      }
  4836.     );
  4837.    },
  4838.    running_callback => sub {
  4839.     my ( $fraction, $text ) = @_;
  4840.     if ( defined $fraction ) {
  4841.      if ( $fraction < 0 ) {
  4842.       $spbar->pulse;
  4843.      }
  4844.      else {
  4845.       $spbar->set_fraction($fraction);
  4846.      }
  4847.     }
  4848.     $spbar->set_text($text) if ( defined $text );
  4849.    },
  4850.    new_page_callback => sub {
  4851.     my ($path) = @_;
  4852.     my $id;
  4853.     $id = $1 if ( $path =~ /^out(\d+).pnm/x );
  4854.  
  4855.     # If the scan can't be loaded then blow the scanning dialog away and
  4856.     # show an error
  4857.     my $rotate = $id % 2 ? $options{rotate_facing} : $options{rotate_reverse};
  4858.  
  4859.     my $index = import_scan(
  4860.      filename   => $path,
  4861.      page       => $id * $options{step} + $options{offset},
  4862.      resolution => $SETTING{resolution},
  4863.      delete     => TRUE,
  4864.      rotate     => $rotate,
  4865.      unpaper    => $options{unpaper},
  4866.      ocr        => $options{ocr}
  4867.     );
  4868.    },
  4869.    error_callback => sub {
  4870.     my ($text) = @_;
  4871.     show_message_dialog( $windows, 'error', 'close', $text );
  4872.    },
  4873.    finished_callback => sub {
  4874.     $scbutton->signal_handler_disconnect($signal);
  4875.     $shbox->hide;
  4876.    },
  4877.   );
  4878.  }
  4879.  return;
  4880. }
  4881.  
  4882. # Take a hash of options and push them onto an array
  4883.  
  4884. sub hash2options {
  4885.  my %options = @_;
  4886.  
  4887.  my ( @options, $key, $value );
  4888.  
  4889.  # Make sure mode is first in case of mode-dependent options
  4890.  if ( defined( $options{mode} ) ) {
  4891.   push @options, "--mode='$options{mode}'";
  4892.   delete $options{mode};
  4893.  }
  4894.  
  4895.  while ( ( $key, $value ) = each(%options) ) {
  4896.   if ( $key =~ /^[xylt]$/x ) {
  4897.    push @options, "-$key $value";
  4898.   }
  4899.   else {
  4900.    push @options, "--$key='$value'";
  4901.   }
  4902.  }
  4903.  return @options;
  4904. }
  4905.  
  4906. sub post_process_scan {
  4907.  my ( $pages, $rotate, $unpaper_flag, $ocr ) = @_;
  4908.  
  4909.  if ($rotate) {
  4910.   rotate(
  4911.    $rotate, $pages,
  4912.    sub {    # finished callback
  4913.     my ($page) = @_;
  4914.     post_process_scan( $page, undef, $unpaper_flag, $ocr );
  4915.    }
  4916.   );
  4917.  }
  4918.  elsif ($unpaper_flag) {
  4919.   unpaper_page(
  4920.    $pages,
  4921.    $unpaper->get_cmdline,
  4922.    sub {    # finished callback
  4923.     my ($page) = @_;
  4924.     post_process_scan( $page, undef, undef, $ocr );
  4925.    }
  4926.   );
  4927.  }
  4928.  elsif ($ocr) {
  4929.   ocr_page($pages);
  4930.  }
  4931.  return;
  4932. }
  4933.  
  4934. # Take new scan and display it
  4935.  
  4936. sub import_scan {
  4937.  my %options = @_;
  4938.  
  4939.  # Interface to frontend
  4940.  open my $fh, '<', $options{filename}    ## no critic (RequireBriefOpen)
  4941.    or die "can't open $options{filename}: $!\n";
  4942.  
  4943.  # Read without blocking
  4944.  my $size = 0;
  4945.  Glib::IO->add_watch(
  4946.   fileno($fh),
  4947.   [ 'in', 'hup' ],
  4948.   sub {
  4949.    my ( $fileno, $condition ) = @_;
  4950.    if ( $condition & 'in' ) {    # bit field operation. >= would also work
  4951.     if ( $size == 0 ) {
  4952.      $size = Gscan2pdf::NetPBM::file_size_from_header( $options{filename} );
  4953.      $logger->info("Header suggests $size");
  4954.      return Glib::SOURCE_CONTINUE if ( $size == 0 );
  4955.      close($fh);
  4956.     }
  4957.     my $filesize = -s $options{filename};
  4958.     $logger->info("Expecting $size, found $filesize");
  4959.     if ( $size > $filesize ) {
  4960.      my $pad = $size - $filesize;
  4961.      open( my $fh, ">>", $options{filename} )
  4962.        or die "cannot open >> $options{filename}: $!\n";
  4963.      my $data = '';
  4964.      for ( 1 .. $pad * 8 ) {
  4965.       $data .= '1';
  4966.      }
  4967.      printf $fh pack( sprintf( "b%d", length $data ), $data );
  4968.      close $fh;
  4969.      $logger->info("Padded $pad bytes");
  4970.     }
  4971.     my $gpage = Gscan2pdf::Page->new(
  4972.      filename   => $options{filename},
  4973.      resolution => $options{resolution},
  4974.      format     => 'Portable anymap',
  4975.      delete     => $options{delete},
  4976.      dir        => $session,
  4977.      window     => $window,
  4978.     );
  4979.     my $index = $slist->add_page( $gpage, $options{page}, &update_uimanager );
  4980.     if ( $index == -1 ) {
  4981.      show_message_dialog( $windows, 'error', 'close',
  4982.       $d->get('Unable to load image') );
  4983.     }
  4984.     else {
  4985.      update_uimanager();
  4986.      post_process_scan( [$gpage], $options{rotate}, $options{unpaper},
  4987.       $options{ocr} );
  4988.     }
  4989.     return Glib::SOURCE_REMOVE;
  4990.    }
  4991.    return Glib::SOURCE_CONTINUE;
  4992.   }
  4993.  );
  4994.  
  4995.  return;
  4996. }
  4997.  
  4998. # print
  4999.  
  5000. sub print_dialog {
  5001.  chdir $SETTING{'cwd'};
  5002.  my $print_op = Gtk2::PrintOperation->new;
  5003.  
  5004.  $print_op->set_print_settings($print_settings)
  5005.    if ( defined $print_settings );
  5006.  
  5007.  $print_op->signal_connect(
  5008.   begin_print => sub {
  5009.    my ( $op, $context ) = @_;
  5010.  
  5011.    my $settings = $op->get_print_settings;
  5012.    my $pages    = $settings->get('print-pages');
  5013.    my @page_list;
  5014.    if ( $pages eq 'ranges' ) {
  5015.     my $page_set = Set::IntSpan->new;
  5016.     my $ranges   = $settings->get('page-ranges');
  5017.     for ( split ',', $ranges ) {
  5018.      $page_set->I($_);
  5019.     }
  5020.     for ( 0 .. $#{ $slist->{data} } ) {
  5021.      push @page_list, $_ if ( $page_set->member( $slist->{data}[$_][0] ) );
  5022.     }
  5023.    }
  5024.    else {
  5025.     @page_list = ( 0 .. $#{ $slist->{data} } );
  5026.    }
  5027.    $op->set_n_pages( scalar(@page_list) );
  5028.   }
  5029.  );
  5030.  
  5031.  $print_op->signal_connect(
  5032.   draw_page => sub {
  5033.    my ( $op, $context, $page_number ) = @_;
  5034.  
  5035.    my $cr = $context->get_cairo_context;
  5036.  
  5037.    # Context dimensions
  5038.    my $pwidth  = $context->get_width;
  5039.    my $pheight = $context->get_height;
  5040.  
  5041.    # Image dimensions
  5042.    my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file(
  5043.     "$slist->{data}[$page_number][2]{filename}")
  5044.      ;    # quotes required to prevent File::Temp object being clobbered
  5045.    my $iwidth  = $pixbuf->get_width;
  5046.    my $iheight = $pixbuf->get_height;
  5047.  
  5048.    # Scale context to fit image
  5049.    my $scale = $pwidth / $iwidth;
  5050.    $scale = $pheight / $iheight if ( $pheight / $iheight < $scale );
  5051.    $cr->scale( $scale, $scale );
  5052.  
  5053.    # Set source pixbuf
  5054.    Gtk2::Gdk::Cairo::Context::set_source_pixbuf( $cr, $pixbuf, 0, 0 );
  5055.  
  5056.    # Paint
  5057.    $cr->paint;
  5058.  
  5059.    return;
  5060.   }
  5061.  );
  5062.  
  5063.  my $res = $print_op->run( 'print-dialog', $window );
  5064.  
  5065.  $print_settings = $print_op->get_print_settings if ( $res eq 'apply' );
  5066.  chdir $session;
  5067.  return;
  5068. }
  5069.  
  5070. # Cut the selection
  5071.  
  5072. sub cut_selection {
  5073.  if ( $slist->has_focus ) {
  5074.   copy_selection();
  5075.   delete_pages();
  5076.  }
  5077.  
  5078.  # elsif ($textview -> has_focus) {
  5079.  #  my $clipboard = Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_CLIPBOARD);
  5080.  #  $textbuffer->cut_clipboard ($clipboard, TRUE)
  5081.  # }
  5082.  return;
  5083. }
  5084.  
  5085. # Copy the selection
  5086.  
  5087. sub copy_selection {
  5088.  if ( $slist->has_focus ) {
  5089.   undef @clipboard;
  5090.   my @pages = $slist->get_selected_indices;
  5091.   for my $page (@pages) {
  5092.    my @copy = map { [@$_] } $slist->{data}[$page];
  5093.    push @clipboard, @copy;
  5094.   }
  5095.  }
  5096.  
  5097.  # elsif ($textview -> has_focus) {
  5098.  #  my $clipboard = Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_CLIPBOARD);
  5099.  #  $textbuffer->copy_clipboard ($clipboard)
  5100.  # }
  5101.  return;
  5102. }
  5103.  
  5104. # Paste the selection
  5105.  
  5106. sub paste_selection {
  5107.  
  5108.  # We only add pages if the list of thumbnails has the focus
  5109.  if ( $window->get_focus eq $slist ) {
  5110.   my @page = $slist->get_selected_indices;
  5111.  
  5112.   # Create a new image file for each page in the clipboard
  5113.   for (@clipboard) {
  5114.    my $suffix;
  5115.    $suffix = $1 if ( $_->[2]{filename} =~ /(\.\w*)$/x );
  5116.    my $new = File::Temp->new( DIR => $session, SUFFIX => $suffix );
  5117.  
  5118.    # stringify filename to prevent copy from mangling it
  5119.    unless ( copy( "$_->[2]{filename}", $new ) ) {
  5120.     show_message_dialog( $window, 'error', 'close',
  5121.      $d->get( sprintf("Error pasting image - %s"), $! ) );
  5122.     return;
  5123.    }
  5124.    $_->[2]{filename} = $new;
  5125.   }
  5126.  
  5127.   # Block the row-changed signal whilst adding the scan (row) and sorting it.
  5128.   $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  5129.  
  5130.   # If a page is selected, then insert the pasted page immediately afterwards
  5131.   if (@page) {
  5132.    splice @{ $slist->{data} }, $page[0] + 1, 0, @clipboard;
  5133.    @page = ( $page[0] + 1 );
  5134.   }
  5135.  
  5136.   # Otherwise append the page to the end
  5137.   else {
  5138.    push @{ $slist->{data} }, @clipboard;
  5139.    @page = ( $#{ $slist->{data} } - $#clipboard );
  5140.   }
  5141.  
  5142.   $slist->renumber;
  5143.   $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  5144.  
  5145.   # Select new page, deselecting others. This fires the select callback,
  5146.   # displaying the page
  5147.   $slist->get_selection->unselect_all;
  5148.   $slist->select(@page);
  5149.  
  5150.   update_uimanager();
  5151.  }
  5152.  
  5153.  # elsif ($textview -> has_focus) {
  5154.  #  my $clipboard = Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_CLIPBOARD);
  5155.  #  $textbuffer->paste_clipboard ($clipboard, undef, TRUE)
  5156.  # }
  5157.  return;
  5158. }
  5159.  
  5160. # Delete the selected scans
  5161.  
  5162. sub delete_pages {
  5163.  
  5164.  # Update undo/redo buffers
  5165.  take_snapshot();
  5166.  
  5167.  my @pages = $slist->get_selected_indices;
  5168.  my @page  = @pages;
  5169.  $slist->get_selection->signal_handler_block(
  5170.   $slist->{selection_changed_signal} );
  5171.  while (@pages) {
  5172.   splice @{ $slist->{data} }, $pages[0], 1;
  5173.   @pages = $slist->get_selected_indices;
  5174.  }
  5175.  $slist->get_selection->signal_handler_unblock(
  5176.   $slist->{selection_changed_signal} );
  5177.  
  5178.  # Select nearest page to last current page
  5179.  if ( @{ $slist->{data} } and @page ) {
  5180.  
  5181.   # Select just the first one
  5182.   @page = ( $page[0] );
  5183.   $page[0] = $#{ $slist->{data} } if ( $page[0] > $#{ $slist->{data} } );
  5184.   $slist->select(@page);
  5185.  }
  5186.  
  5187.  # Select nothing
  5188.  elsif ( @{ $slist->{data} } ) {
  5189.   $slist->select;
  5190.  }
  5191.  
  5192. # No pages left, and having blocked the selection_changed_signal, we've got to clear the image
  5193.  else {
  5194.   $view->set_pixbuf(undef);
  5195.   $scwin_buffer->remove($_) for ( $scwin_buffer->get_children );
  5196.  }
  5197.  
  5198.  # Reset start page in scan dialog
  5199.  reset_start();
  5200.  
  5201.  update_uimanager();
  5202.  return;
  5203. }
  5204.  
  5205. # Reset start page number after delete or new
  5206.  
  5207. sub reset_start {
  5208.  if ( defined $spin_buttons ) {
  5209.   if ( $#{ $slist->{data} } > -1 ) {
  5210.    my $start_page = $spin_buttons->get_value;
  5211.    my $step       = $spin_buttoni->get_value;
  5212.    $spin_buttons->set_value( $slist->{data}[ $#{ $slist->{data} } ][0] + $step )
  5213.      if ( $start_page > $slist->{data}[ $#{ $slist->{data} } ][0] + $step );
  5214.   }
  5215.   else {
  5216.    $spin_buttons->set_value(1);
  5217.   }
  5218.  }
  5219.  elsif ( defined $windows2 ) {
  5220.   if ( $#{ $slist->{data} } > -1 ) {
  5221.    my $start_page = $windows2->get('page-number-start');
  5222.    my $step       = $windows2->get('page-number-increment');
  5223.    $windows2->set( 'page-number-start',
  5224.     $slist->{data}[ $#{ $slist->{data} } ][0] + $step )
  5225.      if ( $start_page > $slist->{data}[ $#{ $slist->{data} } ][0] + $step );
  5226.   }
  5227.   else {
  5228.    $windows2->set( 'page-number-start', 1 );
  5229.   }
  5230.  }
  5231.  return;
  5232. }
  5233.  
  5234. # Select all scans
  5235.  
  5236. sub select_all {
  5237.  
  5238.  # if ($textview -> has_focus) {
  5239.  #  my ($start, $end) = $textbuffer->get_bounds;
  5240.  #  $textbuffer->select_range ($start, $end);
  5241.  # }
  5242.  # else {
  5243.  $slist->get_selection->select_all;
  5244.  
  5245.  # }
  5246.  return;
  5247. }
  5248.  
  5249. # Select all odd(0) or even(1) scans
  5250.  
  5251. sub select_odd_even {
  5252.  my $odd = shift;
  5253.  my @selection;
  5254.  for ( 0 .. $#{ $slist->{data} } ) {
  5255.   push @selection, $_ if ( $slist->{data}[$_][0] % 2 xor $odd );
  5256.  }
  5257.  
  5258.  $slist->get_selection->unselect_all;
  5259.  $slist->select(@selection);
  5260.  return;
  5261. }
  5262.  
  5263. sub select_modified_since_ocr {
  5264.  my @selection;
  5265.  foreach my $page ( 0 .. $#{ $slist->{data} } ) {
  5266.   my $dirty_time = $slist->{data}[$page][2]{dirty_time};
  5267.   my $ocr_flag   = $slist->{data}[$page][2]{ocr_flag};
  5268.   my $ocr_time   = $slist->{data}[$page][2]{ocr_time};
  5269.   $dirty_time = defined($dirty_time) ? $dirty_time : 0;
  5270.   $ocr_time   = defined($ocr_time)   ? $ocr_time   : 0;
  5271.   push @selection, $_ if ( $ocr_flag and ( $ocr_time le $dirty_time ) );
  5272.  }
  5273.  
  5274.  $slist->get_selection->unselect_all;
  5275.  $slist->select(@selection);
  5276.  return;
  5277. }
  5278.  
  5279. # Select pages with no ocr output
  5280.  
  5281. sub select_no_ocr {
  5282.  my @selection;
  5283.  for ( 0 .. $#{ $slist->{data} } ) {
  5284.   push @selection, $_ unless ( defined $slist->{data}[$_][2]{hocr} );
  5285.  }
  5286.  
  5287.  $slist->get_selection->unselect_all;
  5288.  $slist->select(@selection);
  5289.  return;
  5290. }
  5291.  
  5292. # Clear the OCR output from selected pages
  5293.  
  5294. sub clear_ocr {
  5295.  
  5296.  # Update undo/redo buffers
  5297.  take_snapshot();
  5298.  
  5299.  # Remove the existing canvas
  5300.  $scwin_buffer->remove($_) for ( $scwin_buffer->get_children );
  5301.  
  5302.  my @selection = $slist->get_selected_indices;
  5303.  for (@selection) {
  5304.   delete $slist->{data}[$_][2]{hocr};
  5305.  }
  5306.  return;
  5307. }
  5308.  
  5309. # Analyse and select blank pages
  5310.  
  5311. sub analyse_select_blank {
  5312.  analyse( 1, 0 );
  5313.  return;
  5314. }
  5315.  
  5316. # Select blank pages
  5317.  
  5318. sub select_blank_pages {
  5319.  $slist->get_selection->unselect_all;
  5320.  foreach my $page ( 0 .. $#{ $slist->{data} } ) {
  5321.   $logger->info("smp page: $page");
  5322.   my $dirty_time   = $slist->{data}[$page][2]{dirty_time};
  5323.   my $analyse_time = $slist->{data}[$page][2]{analyse_time};
  5324.   $dirty_time   = defined($dirty_time)   ? $dirty_time   : 0;
  5325.   $analyse_time = defined($analyse_time) ? $analyse_time : 0;
  5326.   if ( $analyse_time le $dirty_time ) {
  5327.    $logger->warn(
  5328.     $d->get(
  5329.      sprintf(
  5330.       "Page %d probably needs to be re-Analysed.  Try Update or Analyse.",
  5331.       $page + 1 )
  5332.     )
  5333.    );
  5334.    next;
  5335.   }
  5336.  
  5337.   #compare Std Dev to threshold
  5338.   if ( $slist->{data}[$page][2]{std_dev} <= $SETTING{'Blank threshold'} ) {
  5339.    $slist->select($page);
  5340.    $logger->info("Selecting blank page");
  5341.   }
  5342.   $logger->info( "StdDev: "
  5343.      . $slist->{data}[$page][2]{std_dev}
  5344.      . " threshold: "
  5345.      . $SETTING{'Blank threshold'} );
  5346.  }
  5347.  return;
  5348. }
  5349.  
  5350. # Analyse and select dark pages
  5351.  
  5352. sub analyse_select_dark {
  5353.  analyse( 0, 1 );
  5354.  return;
  5355. }
  5356.  
  5357. # Select dark pages
  5358.  
  5359. sub select_dark_pages {
  5360.  $slist->get_selection->unselect_all;
  5361.  $logger->info("Checking for dark pages now, is analysis done?");
  5362.  foreach my $page ( 0 .. $#{ $slist->{data} } ) {
  5363.   $logger->info("smp page: $page");
  5364.   my $dirty_time   = $slist->{data}[$page][2]{dirty_time};
  5365.   my $analyse_time = $slist->{data}[$page][2]{analyse_time};
  5366.   $dirty_time   = defined($dirty_time)   ? $dirty_time   : 0;
  5367.   $analyse_time = defined($analyse_time) ? $analyse_time : 0;
  5368.   if ( $analyse_time le $dirty_time ) {
  5369.    $logger->warn(
  5370.     $d->get(
  5371.      sprintf(
  5372.       "Page %d probably needs to be re-Analysed.  Try Update or Analyse.",
  5373.       $page + 1 )
  5374.     )
  5375.    );
  5376.    next;
  5377.   }
  5378.  
  5379.   #compare Mean to threshold
  5380.   if ( $slist->{data}[$page][2]{mean} <= $SETTING{'Dark threshold'} ) {
  5381.    $slist->select($page);
  5382.    $logger->info("Selecting dark page");
  5383.   }
  5384.  }
  5385.  return;
  5386. }
  5387.  
  5388. # Display about dialog
  5389.  
  5390. sub about {
  5391.  use utf8;
  5392.  my $about = Gtk2::AboutDialog->new;
  5393.  
  5394.  # Gtk2::AboutDialog->set_url_hook ($func, $data=undef);
  5395.  # Gtk2::AboutDialog->set_email_hook ($func, $data=undef);
  5396.  $about->set_program_name($prog_name);
  5397.  $about->set_version($version);
  5398.  my $authors = <<'EOS';
  5399. Frederik Elwert
  5400. Klaus Ethgen
  5401. Andy Fingerhut
  5402. Leon Fisk
  5403. John Goerzen
  5404. David Hampton
  5405. Sascha Hunold
  5406. Matthijs Kooijman
  5407. Chris Mayo
  5408. Torsten Schönfeld
  5409. Roy Shahbazian
  5410. Jarl Stefansson
  5411. Jakub Wilk
  5412. EOS
  5413.  $about->set_authors( "Jeff Ratcliffe\n\n"
  5414.     . $d->get('Patches gratefully received from:')
  5415.     . "\n$authors" );
  5416.  $about->set_comments( $d->get('To aid the scan-to-PDF process') );
  5417.  $about->set_copyright( $d->get('Copyright 2006--2013 Jeffrey Ratcliffe') );
  5418.  my $licence = <<'EOS';
  5419. gscan2pdf --- to aid the scan to PDF or DjVu process
  5420. Copyright 2006 -- 2013 Jeffrey Ratcliffe <[email protected]>
  5421.  
  5422. This program is free software: you can redistribute it and/or modify
  5423. it under the terms of the version 3 GNU General Public License as
  5424. published by the Free Software Foundation.
  5425.  
  5426. This program is distributed in the hope that it will be useful,
  5427. but WITHOUT ANY WARRANTY; without even the implied warranty of
  5428. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  5429. GNU General Public License for more details.
  5430.  
  5431. You should have received a copy of the GNU General Public License
  5432. along with this program.  If not, see <http://www.gnu.org/licenses/>.
  5433. EOS
  5434.  $about->set_license($licence);
  5435.  $about->set_website('http://gscan2pdf.sf.net');
  5436.  my $translators =
  5437.    <<'EOS'; # inverted commas required around EOS because of UTF-8 in $translators
  5438. Constantine Mousafiris
  5439. Shushi Kurose
  5440. vishal goswami
  5441. Prescott_SK
  5442. Diego Verga
  5443. Herczeg Zsolt
  5444. stavros kakaliantis
  5445. Zbyněk Schwarz
  5446. Wang Dianjin
  5447. Wojciech Górnaś
  5448. Arthur Rodrigues
  5449. Utku BERBEROĞLU
  5450. Dennis Baudys
  5451. tzem
  5452. Daniel Dietrich
  5453. Daniel
  5454. Adolfo Jayme Barrientos
  5455. Christoph Steinbrink
  5456. Igor Zubarev
  5457. EOS
  5458.  $about->set_translator_credits($translators);
  5459.  $about->set_artists('lodp');
  5460.  $about->run;
  5461.  $about->destroy;
  5462.  return;
  5463. }
  5464.  
  5465. # Check that a command exists
  5466.  
  5467. sub check_command {
  5468.  return system("which $_[0] >/dev/null 2>/dev/null") == 0 ? TRUE : FALSE;
  5469. }
  5470.  
  5471. # Rescan device-dependent scan options
  5472.  
  5473. sub rescan_options {
  5474.  my ($device) = @_;
  5475.  
  5476.  #  Ghost the scan button whilst options being updated
  5477.  $scan_button->set_sensitive(FALSE) if ( defined $scan_button );
  5478.  
  5479.  # Empty $vboxd first
  5480.  foreach ( $vboxd->get_children ) {
  5481.   $_->destroy;
  5482.  }
  5483.  
  5484.  # Get the options from the cache if defined
  5485.  my $mode;
  5486.  if ( defined $SETTING{mode} ) {
  5487.   $mode = $SETTING{mode};
  5488.  }
  5489.  else {
  5490.   $mode = 'default';
  5491.  }
  5492.  if ( $SETTING{'cache options'} and defined $SETTING{cache}{$device}{$mode} ) {
  5493.   my $options  = options2hash( $SETTING{cache}{$device}{$mode} );
  5494.   my $response = 'cancel';
  5495.   unless ( $options->num_options ) {
  5496.    $response = show_message_dialog(
  5497.     $window,
  5498.     'question',
  5499.     'ok-cancel',
  5500.     $d->get(
  5501.      "The options cache seems to be empty. Reload device-dependent options?")
  5502.    );
  5503.   }
  5504.   if ( $response eq 'cancel' ) {
  5505.    parse_options( $device, $options );
  5506.    return;
  5507.   }
  5508.  }
  5509.  
  5510.  if ($test) {
  5511.   my $i = 0;
  5512.   $i++ while ( $device[$i] ne $device );
  5513.  
  5514.   # check if we have output for the mode
  5515.   my $filename = $test->{file}[$i];
  5516.   $filename .= ".$SETTING{mode}"
  5517.     if ( defined( $SETTING{mode} ) and -e "$filename.$SETTING{mode}" );
  5518.  
  5519.   # Slurp it from file
  5520.   my $output = Gscan2pdf::Document::slurp($filename);
  5521.   $vboxd->hide_all;    # merely here for consistency with normal operation
  5522.   parse_options( $device, options2hash($output) );
  5523.  }
  5524.  else {
  5525.   # Set up ProgressBar
  5526.   my $pbar = Gtk2::ProgressBar->new;
  5527.   $pbar->set_pulse_step(.1);
  5528.   $pbar->set_text( $d->get('Updating options') );
  5529.   $vboxd->pack_start( $pbar, FALSE, FALSE, 0 );
  5530.   $vboxd->show_all;
  5531.  
  5532.   Gscan2pdf::Frontend::CLI->find_scan_options(
  5533.    prefix           => $SETTING{'scan prefix'},
  5534.    frontend         => $SETTING{frontend},
  5535.    device           => $device,
  5536.    mode             => $SETTING{mode},
  5537.    running_callback => sub {
  5538.     $pbar->pulse;
  5539.    },
  5540.    finished_callback => sub {
  5541.     my ($output) = @_;
  5542.     $pbar->destroy;
  5543.     $vboxd->hide_all;
  5544.     $logger->info($output);
  5545.     parse_options( $device, options2hash($output) );
  5546.    },
  5547.    error_callback => sub {
  5548.     my ($message) = @_;
  5549.     show_message_dialog( $window, 'error', 'close', $message );
  5550.     $pbar->destroy;
  5551.     $vboxd->hide_all;
  5552.     $logger->warn($message);
  5553.    },
  5554.   );
  5555.  }
  5556.  return;
  5557. }
  5558.  
  5559. sub parse_options {
  5560.  my ( $device, $options ) = @_;
  5561.  
  5562.  # Dig out the paper sizes
  5563.  my (
  5564.   $x,            $y,            $l,            $t,
  5565.   $h,            $w,            $spin_buttonx, $spin_buttony,
  5566.   $spin_buttonl, $spin_buttont, $spin_buttonh, $spin_buttonw,
  5567.  );
  5568.  $x = $options->by_name('x')->{constraint}{max}
  5569.    if ( defined $options->by_name('x') );
  5570.  $y = $options->by_name('y')->{constraint}{max}
  5571.    if ( defined $options->by_name('y') );
  5572.  $l = $options->by_name('l')->{constraint}{max}
  5573.    if ( defined $options->by_name('l') );
  5574.  $t = $options->by_name('t')->{constraint}{max}
  5575.    if ( defined $options->by_name('t') );
  5576.  
  5577.  # Set device-dependent options
  5578.  # Dummy entries so that something is returned:
  5579.  %ddo = (
  5580.   'Paper size' => { string => $d->get('Paper size'), },
  5581.   'x'          => { string => $d->get('Width') },
  5582.   'y'          => { string => $d->get('Height') },
  5583.   'l'          => { string => $d->get('Left') },
  5584.   't'          => { string => $d->get('Top') },
  5585.  );
  5586.  
  5587.  if ( defined($x) and defined($y) ) {
  5588.  
  5589.   # HBox for paper size
  5590.   my $hboxp = Gtk2::HBox->new;
  5591.   $vboxd->pack_start( $hboxp, FALSE, FALSE, 0 );
  5592.  
  5593.   # Paper list
  5594.   my $labelp = Gtk2::Label->new( $ddo{'Paper size'}{string} );
  5595.   $hboxp->pack_start( $labelp, FALSE, FALSE, 0 );
  5596.  
  5597.   $combobp = Gtk2::ComboBox->new_text;
  5598.   $combobp->append_text( $d->get('Manual') );
  5599.   $combobp->append_text( $d->get('Edit') );
  5600.   $tooltips->set_tip( $combobp, $d->get('Selects or edits the paper size') );
  5601.   $hboxp->pack_end( $combobp, FALSE, FALSE, 0 );
  5602.  
  5603.   # Define manual paper here to reference it in callback
  5604.   $vbox_manual_paper = Gtk2::VBox->new;
  5605.   $vboxd->pack_start( $vbox_manual_paper, FALSE, FALSE, 0 );
  5606.  }
  5607.  
  5608.  # Add remaining options
  5609.  for ( 0 .. $options->num_options - 1 ) {
  5610.   my $option = $options->by_index($_);
  5611.   if ( defined( $pddo{ $option->{name} } ) ) {
  5612.    my ( $widget, $hbox ) = add_widget_from_hash($option);
  5613.    if ( $option->{name} =~ /^page-?width$/x ) {
  5614.     $w            = $option->{constraint}{max};
  5615.     $spin_buttonw = $widget;
  5616.     $vbox_manual_paper->pack_start( $hbox, TRUE, TRUE, 0 );
  5617.    }
  5618.    elsif ( $option->{name} =~ /^page-?height$/x ) {
  5619.     $h            = $option->{constraint}{max};
  5620.     $spin_buttonh = $widget;
  5621.     $vbox_manual_paper->pack_start( $hbox, TRUE, TRUE, 0 );
  5622.    }
  5623.    else {
  5624.     $vboxd->pack_start( $hbox, TRUE, TRUE, 0 );
  5625.    }
  5626.    $batch_scan = $widget if ( $option->{name} eq 'batch-scan' );
  5627.  
  5628.    # If an ADF isn't selected, then we don't want to scan all pages
  5629.    if ( $option->{name} eq 'source' ) {
  5630.     $widget->signal_connect(
  5631.      changed => sub {
  5632.       my $text = $widget->get_active_text;
  5633.       if ( defined($text)
  5634.        and get_value( \%ddo, $option->{name}, $text ) =~ /(flatbed|normal)/ix )
  5635.       {
  5636.        $bscanall->set_sensitive(FALSE);
  5637.        $bscannum->set_active(TRUE);
  5638.       }
  5639.       else {
  5640.        $bscanall->set_sensitive(TRUE);
  5641.        if ( defined($text)
  5642.         and get_value( \%ddo, $option->{name}, $text ) =~
  5643.         /(ADF|Automatic\ Document\ Feeder)/ix )
  5644.        {
  5645.         $batch_scan->set_active(0) if ( defined $batch_scan );
  5646.        }
  5647.       }
  5648.       if ( defined($text)
  5649.        and get_value( \%ddo, $option->{name}, $text ) =~ /duplex/i )
  5650.       {
  5651.        $duplex = TRUE;
  5652.        $frames->set_sensitive(FALSE);
  5653.       }
  5654.       else {
  5655.        $duplex = FALSE;
  5656.        $frames->set_sensitive(TRUE);
  5657.       }
  5658.      }
  5659.     );
  5660.    }
  5661.  
  5662.    # If the mode is changed, update the options
  5663.    if ( $option->{name} eq 'mode' ) {
  5664.     $widget->signal_connect(
  5665.      changed => sub {
  5666.       $SETTING{ $option->{name} } =
  5667.         get_value( \%ddo, $option->{name}, $widget->get_active_text );
  5668.       update_options($device);
  5669.      }
  5670.     );
  5671.    }
  5672.   }
  5673.  }
  5674.  
  5675.  # Add paper size after rest of options in case of pagewidth|height
  5676.  if ( defined($x) and defined($y) ) {
  5677.   $x = $w if ( defined $w );
  5678.   $y = $h if ( defined $h );
  5679.   my @info = (
  5680.    {
  5681.     label     => $d->get('Width'),
  5682.     tooltip   => $d->get('Width of scan area'),
  5683.     letter    => 'x',
  5684.     dimension => $x
  5685.    },
  5686.    {
  5687.     label     => $d->get('Height'),
  5688.     tooltip   => $d->get('Height of scan area'),
  5689.     letter    => 'y',
  5690.     dimension => $y
  5691.    },
  5692.    {
  5693.     label     => $d->get('Left'),
  5694.     tooltip   => $d->get('Top-left x position of scan area'),
  5695.     letter    => 'l',
  5696.     dimension => $l
  5697.    },
  5698.    {
  5699.     label     => $d->get('Top'),
  5700.     tooltip   => $d->get('Top-left y position of scan area'),
  5701.     letter    => 't',
  5702.     dimension => $t
  5703.    }
  5704.   );
  5705.   ( $spin_buttonx, $spin_buttony, $spin_buttonl, $spin_buttont ) =
  5706.     add_spinbutton( $vbox_manual_paper, @info );
  5707.   $combobp->signal_connect(
  5708.    changed => sub {
  5709.     if ( $combobp->get_active_text eq $d->get('Edit') ) {
  5710.      edit_paper($options);
  5711.     }
  5712.     elsif ( $combobp->get_active_text eq $d->get('Manual') ) {
  5713.      $vbox_manual_paper->show_all;
  5714.     }
  5715.     else {
  5716.      my $paper = $combobp->get_active_text;
  5717.      $spin_buttonx->set_value( $SETTING{Paper}{$paper}{x} );
  5718.      $spin_buttony->set_value( $SETTING{Paper}{$paper}{y} );
  5719.      $spin_buttont->set_value( $SETTING{Paper}{$paper}{t} );
  5720.      $spin_buttonl->set_value( $SETTING{Paper}{$paper}{l} );
  5721.      if ( defined($spin_buttonh) and defined($spin_buttonw) ) {
  5722.       $spin_buttonw->set_value( $SETTING{Paper}{$paper}{x} );
  5723.       $spin_buttonh->set_value( $SETTING{Paper}{$paper}{y} );
  5724.      }
  5725.      Glib::Idle->add( sub { $vbox_manual_paper->hide; } );
  5726.     }
  5727.    }
  5728.   );
  5729.   add_paper( $combobp, $options );
  5730.  }
  5731.  
  5732.  # Show window
  5733.  $vboxd->show_all;
  5734.  
  5735.  # Give the GUI a chance to catch up before resizing.
  5736.  Glib::Idle->add( sub { $windows->resize( 100, 100 ); } );
  5737.  Gscan2pdf::Dialog::Scan::Sane::set_combobox_by_text( $combobp,
  5738.   $SETTING{'Paper size'} );
  5739.  
  5740.  #  Unghost the scan button
  5741.  if ( defined $scan_button ) {
  5742.   $scan_button->set_sensitive(TRUE);
  5743.   $scan_button->grab_focus;
  5744.  }
  5745.  return;
  5746. }
  5747.  
  5748. # take an option from the options hash and create the appropriate widget
  5749.  
  5750. sub add_widget_from_hash {
  5751.  my ($option) = @_;
  5752.  
  5753.  # Dig out of possible options
  5754.  $ddo{ $option->{name} }{string} = $pddo{ $option->{name} }{string};
  5755.  
  5756.  # HBox for option
  5757.  my $hbox = Gtk2::HBox->new;
  5758.  $hbox->set_sensitive(FALSE) if ( $option->{default} =~ /inactive/ );
  5759.  
  5760.  # Label
  5761.  my $label = Gtk2::Label->new( $ddo{ $option->{name} }{string} );
  5762.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  5763.  
  5764.  # Widget
  5765.  my $widget;
  5766.  
  5767.  # SpinButton
  5768.  if ( defined $option->{constraint}{max} ) {
  5769.   my $step = 1;
  5770.   $step = $option->{constraint}{step}
  5771.     if ( defined $option->{constraint}{step} );
  5772.   $widget = Gtk2::SpinButton->new_with_range( $option->{constraint}{min},
  5773.    $option->{constraint}{max}, $step );
  5774.  
  5775.   # Set the default
  5776.   $widget->set_value( $option->{default} )
  5777.     unless ( $option->{default} =~ /inactive/ );
  5778.  }
  5779.  
  5780.  # ComboBox
  5781.  else {
  5782.   $widget = Gtk2::ComboBox->new_text;
  5783.  
  5784.   my $index = default2index( $option->{default}, @{ $option->{values} } );
  5785.   foreach ( @{ $option->{values} } ) {
  5786.    add_to_options( $option->{name}, $_ );
  5787.    $widget->append_text( $ddo{ $option->{name} }{values}{$_} );
  5788.   }
  5789.  
  5790.   # Set the default
  5791.   $widget->set_active($index) if ( defined $index );
  5792.  }
  5793.  
  5794.  $hbox->pack_end( $widget, FALSE, FALSE, 0 );
  5795.  $tooltips->set_tip( $widget, $option->{tip} );
  5796.  return ( $widget, $hbox );
  5797. }
  5798.  
  5799. # Helper function to get manual paper size spinbuttons on dialog
  5800.  
  5801. sub add_spinbutton {
  5802.  my ( $vbox, @info ) = @_;
  5803.  my @stack;
  5804.  for (@info) {
  5805.   my $hbox = Gtk2::HBox->new;
  5806.   $vbox->pack_start( $hbox, FALSE, FALSE, 0 );
  5807.   my $label = Gtk2::Label->new( $_->{label} );
  5808.   $hbox->pack_start( $label, FALSE, FALSE, 0 );
  5809.   my $spinbutton = Gtk2::SpinButton->new_with_range( 0, $_->{dimension}, 1 );
  5810.   $SETTING{ $_->{letter} } = $_->{dimension}
  5811.     unless ( defined $SETTING{ $_->{letter} } );
  5812.   $spinbutton->set_value( $SETTING{ $_->{letter} } );
  5813.   $tooltips->set_tip( $spinbutton, $_->{tooltip} );
  5814.   $hbox->pack_end( $spinbutton, FALSE, FALSE, 0 );
  5815.   push @stack, $spinbutton;
  5816.  }
  5817.  return @stack;
  5818. }
  5819.  
  5820. # Paper editor
  5821. sub edit_paper {
  5822.  my ($options) = @_;
  5823.  
  5824.  if ( defined $windowd ) {
  5825.   $windowd->present;
  5826.   return;
  5827.  }
  5828.  
  5829.  $windowd = Gscan2pdf::Dialog->new(
  5830.   'transient-for' => $windows,
  5831.   title           => $d->get('Edit paper size'),
  5832.   border_width    => $border_width
  5833.  );
  5834.  my $vbox1 = $windowd->get('vbox');
  5835.  
  5836.  # Buttons for SimpleList
  5837.  my $hboxl = Gtk2::HBox->new;
  5838.  $vbox1->pack_start( $hboxl, FALSE, FALSE, 0 );
  5839.  my $vboxb = Gtk2::VBox->new;
  5840.  $hboxl->pack_start( $vboxb, FALSE, FALSE, 0 );
  5841.  my $dbutton = Gtk2::Button->new_from_stock('gtk-add');
  5842.  $vboxb->pack_start( $dbutton, TRUE, FALSE, 0 );
  5843.  my $rbutton = Gtk2::Button->new_from_stock('gtk-remove');
  5844.  $vboxb->pack_end( $rbutton, TRUE, FALSE, 0 );
  5845.  
  5846.  # Set up a SimpleList
  5847.  my $paper_list = Gtk2::Ex::Simple::List->new(
  5848.   $d->get('Name')   => 'text',
  5849.   $d->get('Width')  => 'int',
  5850.   $d->get('Height') => 'int',
  5851.   $d->get('Left')   => 'int',
  5852.   $d->get('Top')    => 'int'
  5853.  );
  5854.  for ( keys %{ $SETTING{Paper} } ) {
  5855.   push @{ $paper_list->{data} },
  5856.     [
  5857.    $_,                     $SETTING{Paper}{$_}{x}, $SETTING{Paper}{$_}{y},
  5858.    $SETTING{Paper}{$_}{l}, $SETTING{Paper}{$_}{t}
  5859.     ];
  5860.  }
  5861.  
  5862.  # Set everything to be editable
  5863.  for ( 0 .. 4 ) {
  5864.   $paper_list->set_column_editable( $_, TRUE );
  5865.  }
  5866.  $paper_list->get_column(0)->set_sort_column_id(0);
  5867.  
  5868.  # Add button callback
  5869.  $dbutton->signal_connect(
  5870.   clicked => sub {
  5871.    my @rows = $paper_list->get_selected_indices;
  5872.    $rows[0] = 0 unless (@rows);
  5873.    my $name          = $paper_list->{data}[ $rows[0] ][0];
  5874.    my $paper_version = 2;
  5875.    my $i             = 0;
  5876.    while ( $i < @{ $paper_list->{data} } ) {
  5877.     if ( $paper_list->{data}[$i][0] eq "$name ($paper_version)" ) {
  5878.      ++$paper_version;
  5879.      $i = 0;
  5880.     }
  5881.     else {
  5882.      ++$i;
  5883.     }
  5884.    }
  5885.    my @line = [
  5886.     "$name ($paper_version)",
  5887.     $paper_list->{data}[ $rows[0] ][1],
  5888.     $paper_list->{data}[ $rows[0] ][2],
  5889.     $paper_list->{data}[ $rows[0] ][3],
  5890.     $paper_list->{data}[ $rows[0] ][4]
  5891.    ];
  5892.    splice @{ $paper_list->{data} }, $rows[0] + 1, 0, @line;
  5893.   }
  5894.  );
  5895.  
  5896.  # Remove button callback
  5897.  $rbutton->signal_connect(
  5898.   clicked => sub {
  5899.    my @rows = $paper_list->get_selected_indices;
  5900.    if ( $#rows == $#{ $paper_list->{data} } ) {
  5901.     show_message_dialog( $windowd, 'error', 'close',
  5902.      $d->get('Cannot delete all paper sizes') );
  5903.    }
  5904.    else {
  5905.     while (@rows) {
  5906.      splice @{ $paper_list->{data} }, shift(@rows), 1;
  5907.     }
  5908.    }
  5909.   }
  5910.  );
  5911.  
  5912.  # Set-up the callback to check that no two Names are the same
  5913.  $paper_list->get_model->signal_connect(
  5914.   'row-changed' => sub {
  5915.    my ( $model, $path, $iter ) = @_;
  5916.    for ( my $i = 0 ; $i < @{ $paper_list->{data} } ; $i++ ) {
  5917.     if ( $i != $path->to_string
  5918.      and $paper_list->{data}[ $path->to_string ][0] eq
  5919.      $paper_list->{data}[$i][0] )
  5920.     {
  5921.      my $name          = $paper_list->{data}[ $path->to_string ][0];
  5922.      my $paper_version = 2;
  5923.      if ( $name =~ /(.*)\ \((\d+)\)/x ) {
  5924.       $name          = $1;
  5925.       $paper_version = $2 + 1;
  5926.      }
  5927.      $paper_list->{data}[ $path->to_string ][0] = "$name ($paper_version)";
  5928.      return;
  5929.     }
  5930.    }
  5931.   }
  5932.  );
  5933.  $hboxl->pack_end( $paper_list, FALSE, FALSE, 0 );
  5934.  
  5935.  # Buttons
  5936.  my $hboxb = _hbox_with_apply_cancel_buttons(
  5937.   sub {
  5938.    delete $SETTING{Paper};
  5939.    for ( my $i = 0 ; $i < @{ $paper_list->{data} } ; $i++ ) {
  5940.     $SETTING{Paper}{ $paper_list->{data}[$i][0] }{x} =
  5941.       $paper_list->{data}[$i][1];
  5942.     $SETTING{Paper}{ $paper_list->{data}[$i][0] }{y} =
  5943.       $paper_list->{data}[$i][2];
  5944.     $SETTING{Paper}{ $paper_list->{data}[$i][0] }{l} =
  5945.       $paper_list->{data}[$i][3];
  5946.     $SETTING{Paper}{ $paper_list->{data}[$i][0] }{t} =
  5947.       $paper_list->{data}[$i][4];
  5948.    }
  5949.  
  5950.    # Update list in Gscan2pdf::Document so that it can be used by get_resolution
  5951.    # FIXME: make sure that this is updated for all scan dialogs
  5952.    Gscan2pdf::Document->set_paper_sizes( $SETTING{Paper} );
  5953.  
  5954.    $combobp->remove_text(0) while ( $combobp->get_active > 1 );
  5955.    my @ignored = add_paper( $combobp, $options );
  5956.    show_message_dialog(
  5957.     $windowd,
  5958.     'warning',
  5959.     'close',
  5960.     $d->get(
  5961. 'The following paper sizes are too big to be scanned by the selected device:'
  5962.       )
  5963.       . ' '
  5964.       . join( ', ', @ignored )
  5965.    ) if (@ignored);
  5966.    my @rows = $paper_list->get_selected_indices;
  5967.    $rows[0] = 0 unless (@rows);
  5968.    $SETTING{'Paper size'} = $paper_list->{data}[ $rows[0] ][0];
  5969.    Gscan2pdf::Dialog::Scan::Sane::set_combobox_by_text( $combobp,
  5970.     $SETTING{'Paper size'} );
  5971.    $windowd->hide;
  5972.   },
  5973.   sub {
  5974.    my @rows = $paper_list->get_selected_indices;
  5975.    $rows[0] = 0 unless (@rows);
  5976.    $SETTING{'Paper size'} = $paper_list->{data}[ $rows[0] ][0];
  5977.    Gscan2pdf::Dialog::Scan::Sane::set_combobox_by_text( $combobp,
  5978.     $SETTING{'Paper size'} );
  5979.    $windowd->hide;
  5980.   }
  5981.  );
  5982.  $vbox1->pack_start( $hboxb, FALSE, FALSE, 0 );
  5983.  $windowd->show_all;
  5984.  return;
  5985. }
  5986.  
  5987. # Add paper size to combobox if scanner large enough
  5988.  
  5989. sub add_paper {
  5990.  my ( $combobox, $options ) = @_;
  5991.  my $tolerance = 1;
  5992.  my (@ignored);
  5993.  for ( keys %{ $SETTING{Paper} } ) {
  5994.   if ( $options->supports_paper( $SETTING{Paper}{$_}, $tolerance ) ) {
  5995.    $combobox->prepend_text($_);
  5996.   }
  5997.   else {
  5998.    push @ignored, $_;
  5999.   }
  6000.  }
  6001.  return @ignored;
  6002. }
  6003.  
  6004. # Update device-dependent scan options having selected a new mode
  6005.  
  6006. sub update_options {
  6007.  my ($device) = @_;
  6008.  
  6009.  # Empty $vboxd first
  6010.  foreach ( $vboxd->get_children ) {
  6011.   $_->hide;
  6012.  }
  6013.  
  6014.  my $mode;
  6015.  if ( defined $SETTING{mode} ) {
  6016.   $mode = $SETTING{mode};
  6017.  }
  6018.  else {
  6019.   $mode = 'default';
  6020.  }
  6021.  if ( $SETTING{'cache options'} and defined $SETTING{cache}{$device}{$mode} ) {
  6022.   my $options  = options2hash( $SETTING{cache}{$device}{$mode} );
  6023.   my $response = 'cancel';
  6024.   unless ( $options->num_options ) {
  6025.    $response = show_message_dialog(
  6026.     $window,
  6027.     'question',
  6028.     'ok-cancel',
  6029.     $d->get(
  6030.      "The options cache seems to be empty. Reload device-dependent options?")
  6031.    );
  6032.   }
  6033.   if ( $response eq 'cancel' ) {
  6034.    update_options_hash($options);
  6035.    return;
  6036.   }
  6037.  }
  6038.  
  6039.  if ($test) {
  6040.   my $i = 0;
  6041.   $i++ while ( $device[$i] ne $device );
  6042.  
  6043.   # check if we have output for the new mode
  6044.   my $filename = $test->{file}[$i];
  6045.   $filename .= ".$SETTING{mode}" if ( -e "$filename.$SETTING{mode}" );
  6046.  
  6047.   # Slurp it from file
  6048.   my $output = Gscan2pdf::Document::slurp($filename);
  6049.   $vboxd->hide_all;    # merely here for consistency with normal operation
  6050.   update_options_hash( options2hash($output) );
  6051.  }
  6052.  else {
  6053.   # Set up ProgressBar
  6054.   my $pbar = Gtk2::ProgressBar->new;
  6055.   $pbar->set_pulse_step(.1);
  6056.   $pbar->set_text( $d->get('Updating options') );
  6057.   $vboxd->pack_start( $pbar, FALSE, FALSE, 0 );
  6058.   $pbar->show;
  6059.  
  6060.   Gscan2pdf::Frontend::CLI->find_scan_options(
  6061.    prefix           => $SETTING{'scan prefix'},
  6062.    frontend         => $SETTING{frontend},
  6063.    device           => $device,
  6064.    mode             => $SETTING{mode},
  6065.    running_callback => sub {
  6066.     $pbar->pulse;
  6067.    },
  6068.    finished_callback => sub {
  6069.     my ($output) = @_;
  6070.     $pbar->destroy;
  6071.     $vboxd->hide_all;
  6072.     $logger->info($output);
  6073.     update_options_hash( options2hash($output) );
  6074.    }
  6075.   );
  6076.  }
  6077.  return;
  6078. }
  6079.  
  6080. # return the options, updated with the user defaults
  6081.  
  6082. sub options2hash {
  6083.  
  6084.  my ($output) = @_;
  6085.  my $options = Gscan2pdf::Scanner::Options->new_from_data($output);
  6086.  $logger->debug( Dumper($options) );
  6087.  for ( 0 .. $options->num_options - 1 ) {
  6088.   my $option = $options->by_index($_);
  6089.  
  6090.   # Set default from config
  6091.   if (
  6092.    defined( $SETTING{ $option->{name} } )
  6093.    and $option->{default} ne 'inactive'
  6094.  
  6095.    # only set the default if it is an option
  6096.    and (
  6097.     defined( $option->{constraint}{max} )
  6098.     or defined(
  6099.      default2index( $SETTING{ $option->{name} }, @{ $option->{values} } )
  6100.     )
  6101.    )
  6102.     )
  6103.   {
  6104.    $option->{default} = $SETTING{ $option->{name} };
  6105.   }
  6106.  
  6107.   # in the case that we've switched devices and the new device doesn't support
  6108.   # the new mode
  6109.   elsif ( $option->{name} eq 'mode' ) {
  6110.    delete $SETTING{ $option->{name} };
  6111.   }
  6112.  }
  6113.  
  6114.  # Cache options
  6115.  my $mode;
  6116.  if ( defined $SETTING{mode} ) {
  6117.   $mode = $SETTING{mode};
  6118.  }
  6119.  else {
  6120.   $mode = 'default';
  6121.  }
  6122.  
  6123.  # We could cache the hash, but we'd have to turn off MergeDuplicateOptions
  6124.  $SETTING{cache}{ $SETTING{device} }{$mode} = $output
  6125.    if ( $SETTING{'cache options'} and defined $SETTING{device} );
  6126.  
  6127.  return $options;
  6128. }
  6129.  
  6130. # walk the widget tree and update them from the hash
  6131.  
  6132. sub update_options_hash {
  6133.  
  6134.  my ($options) = @_;
  6135.  my ( $hboxm, $hboxp );
  6136.  
  6137.  foreach my $hbox ( $vboxd->get_children ) {
  6138.   my $key;
  6139.   if ( $hbox->isa('Gtk2::HBox') ) {
  6140.    foreach my $widget ( $hbox->get_children ) {
  6141.     my $opt;
  6142.     $opt = $options->by_name($key) if ( defined $key );
  6143.     if ( $widget->isa('Gtk2::Label') ) {  ## no critic (ProhibitCascadingIfElse)
  6144.      $key = get_key( \%ddo, $widget->get_label );
  6145.     }
  6146.     elsif (
  6147.      $widget->isa('Gtk2::ComboBox')
  6148.  
  6149.      # to prevent recursion
  6150.      and $key ne 'mode'
  6151.      and $key ne 'Paper size'
  6152.      and defined($opt)
  6153.      and defined( $opt->{values} )
  6154.       )
  6155.     {
  6156.  
  6157.      # Empty the list
  6158.      $widget->get_model->clear;
  6159.  
  6160.      # Fill it again
  6161.      my $index = default2index( $opt->{val}, @{ $opt->{constraint} } );
  6162.      foreach ( @{ $opt->{constraint} } ) {
  6163.  
  6164.       # in case the option was new and therefore not in ddo before
  6165.       add_to_options( $key, $_ );
  6166.       $widget->append_text( $ddo{$key}{values}{$_} );
  6167.      }
  6168.  
  6169.      # Set the default
  6170.      $widget->set_active($index) if ( defined $index );
  6171.  
  6172.      # Set the ghosting
  6173.      if ( $opt->{val} =~ /inactive/ ) {
  6174.       $hbox->set_sensitive(FALSE);
  6175.      }
  6176.      else {
  6177.       $hbox->set_sensitive(TRUE);
  6178.      }
  6179.  
  6180.      $hbox->show_all;
  6181.     }
  6182.     elsif ( $key eq 'mode' ) {
  6183.      $hboxm = $hbox;
  6184.     }
  6185.     elsif ( $key eq 'Paper size' ) {
  6186.      $hboxp = $hbox;
  6187.     }
  6188.     elsif ( $widget->isa('Gtk2::SpinButton')
  6189.      and defined($opt)
  6190.      and defined( $opt->{constraint}{max} ) )
  6191.     {
  6192.      $widget->set_range( $opt->{constraint}{min}, $opt->{constraint}{max} );
  6193.  
  6194.      # Set the default
  6195.      if ( $opt->{val} =~ /inactive/ ) {
  6196.       $hbox->set_sensitive(FALSE);
  6197.      }
  6198.      else {
  6199.       $widget->set_value( $opt->{val} );
  6200.       $hbox->set_sensitive(TRUE);
  6201.      }
  6202.      $hbox->show_all;
  6203.     }
  6204.  
  6205.     # If an option no longer available, make it insensitive so that it doesn't
  6206.     # get passed to scanimage or scanadf
  6207.     else {
  6208.      $hbox->set_sensitive(FALSE);
  6209.     }
  6210.    }
  6211.  
  6212.    # Delete option from hash to see at the end which are left
  6213.    $options->delete_by_name($key) if ( defined $options->by_name($key) );
  6214.   }
  6215.  }
  6216.  
  6217.  # Add any new options
  6218.  for ( 0 .. $options->num_options - 1 ) {
  6219.   my $option = $options->by_index($_);
  6220.   if (
  6221.        defined($option)
  6222.    and defined( $pddo{ $option->{name} } )
  6223.  
  6224.    and $option->{name} !~ /^page-?(?:width|height)/x
  6225.     )
  6226.   {
  6227.    my ( $widget, $hbox ) = add_widget_from_hash($option);
  6228.    $vboxd->pack_start( $hbox, TRUE, TRUE, 0 );
  6229.    $hbox->show_all;
  6230.   }
  6231.  }
  6232.  
  6233.  $vbox_manual_paper->show_all
  6234.    if ( $combobp->get_active_text eq $d->get('Manual') );
  6235.  $hboxm->show_all if ( defined $hboxm );
  6236.  $hboxp->show_all if ( defined $hboxp );
  6237.  $vboxd->show;
  6238.  return;
  6239. }
  6240.  
  6241. # return the position that a string occurs in an array
  6242.  
  6243. sub default2index {
  6244.  
  6245.  my ( $default, @array ) = @_;
  6246.  for ( my $i = 0 ; $i < @array ; $i++ ) {
  6247.   return $i if ( $array[$i] eq $default );
  6248.  }
  6249.  return;
  6250. }
  6251.  
  6252. # Dialog for renumber
  6253.  
  6254. sub renumber_dialog {
  6255.  if ( defined $windowrn ) {
  6256.   $windowrn->present;
  6257.   return;
  6258.  }
  6259.  
  6260.  $windowrn = Gscan2pdf::Dialog::Renumber->new(
  6261.   'transient-for'  => $window,
  6262.   document         => $slist,
  6263.   'hide-on-delete' => FALSE,
  6264.   border_width     => $border_width
  6265.  );
  6266.  
  6267.  # Update undo/redo buffers
  6268.  $windowrn->signal_connect(
  6269.   'before-renumber' => sub {
  6270.    take_snapshot();
  6271.   }
  6272.  );
  6273.  
  6274.  $windowrn->show_all;
  6275.  return;
  6276. }
  6277.  
  6278. # Helper function to convert an array of indices into an array of Gscan2pdf::Page objects
  6279.  
  6280. sub indices2pages {
  6281.  my @indices = @_;
  6282.  my @pages;
  6283.  for (@indices) {
  6284.   push @pages, $slist->{data}[$_][2];
  6285.  }
  6286.  return @pages;
  6287. }
  6288.  
  6289. # Rotate selected images
  6290.  
  6291. sub rotate {
  6292.  my ( $angle, $pagelist, $callback ) = @_;
  6293.  
  6294.  # Update undo/redo buffers
  6295.  take_snapshot();
  6296.  
  6297.  for my $page ( @{$pagelist} ) {
  6298.   my ( $signal, $pid );
  6299.   $pid = $slist->rotate(
  6300.    angle           => $angle,
  6301.    page            => $page,
  6302.    queued_callback => sub {
  6303.     return update_tpbar(@_);
  6304.    },
  6305.    started_callback => sub {
  6306.     my ( $thread, $process, $completed, $total ) = @_;
  6307.     $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6308.     return TRUE if ( defined $signal );
  6309.    },
  6310.    finished_callback => sub {
  6311.     my ( $new_page, $pending ) = @_;
  6312.     $callback->($new_page) if $callback;
  6313.     $thbox->hide_all unless $pending;
  6314.     $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6315.    },
  6316.    error_callback => sub {
  6317.     my ($message) = @_;
  6318.     show_message_dialog( $window, 'error', 'close', $message );
  6319.    },
  6320.    display_callback => sub {
  6321.     my ($new_page) = @_;
  6322.     display_image($new_page);
  6323.    },
  6324.   );
  6325.  }
  6326.  return;
  6327. }
  6328.  
  6329. # Analyse selected images
  6330.  
  6331. sub analyse {
  6332.  my ( $select_blank, $select_dark ) = @_;
  6333.  
  6334.  # Update undo/redo buffers
  6335.  take_snapshot();
  6336.  
  6337.  foreach my $i ( 0 .. $#{ $slist->{data} } ) {
  6338.   my $dirty_time   = $slist->{data}[$i][2]{dirty_time};
  6339.   my $analyse_time = $slist->{data}[$i][2]{analyse_time};
  6340.   $dirty_time   = defined($dirty_time)   ? $dirty_time   : 0;
  6341.   $analyse_time = defined($analyse_time) ? $analyse_time : 0;
  6342.   if ( $analyse_time le $dirty_time ) {
  6343.    $logger->info(
  6344. "Updating: $slist->{data}[$i][0] analyse_time: $analyse_time dirty_time: $dirty_time"
  6345.    );
  6346.    my ( $signal, $pid );
  6347.    $pid = $slist->analyse(
  6348.     page            => $slist->{data}[$i][2],
  6349.     queued_callback => sub {
  6350.      return update_tpbar(@_);
  6351.     },
  6352.     started_callback => sub {
  6353.      my ( $thread, $process, $completed, $total ) = @_;
  6354.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6355.      return TRUE if ( defined $signal );
  6356.     },
  6357.     finished_callback => sub {
  6358.      my ( $new_page, $pending ) = @_;
  6359.      $thbox->hide_all unless $pending;
  6360.      $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6361.      select_blank_pages()                          if $select_blank;
  6362.      select_dark_pages()                           if $select_dark;
  6363.     },
  6364.     error_callback => sub {
  6365.      my ($message) = @_;
  6366.      show_message_dialog( $window, 'error', 'close', $message );
  6367.     },
  6368.    );
  6369.   }
  6370.  }
  6371.  return;
  6372. }
  6373.  
  6374. # Handle right-clicks
  6375.  
  6376. sub handle_clicks {
  6377.  my ( $widget, $event ) = @_;
  6378.  
  6379.  # $SETTING{'RMB'} = ($event->button == 3);
  6380.  #warn "rmb $SETTING{'RMB'}\n";
  6381.  
  6382.  if ( $event->button == 3 ) {
  6383.   if ( $widget->isa('Gtk2::ImageView') ) {    # main image
  6384.    $uimanager->get_widget('/Detail_Popup')
  6385.      ->popup( undef, undef, undef, undef, $event->button, $event->time );
  6386.   }
  6387.   else {                                      # Thumbnail simplelist
  6388.    $uimanager->get_widget('/Thumb_Popup')
  6389.      ->popup( undef, undef, undef, undef, $event->button, $event->time );
  6390.   }
  6391.  
  6392.   # block event propagation
  6393.   return TRUE;
  6394.  }
  6395.  
  6396.  # allow event propagation
  6397.  return FALSE;
  6398. }
  6399.  
  6400. # Display page selector and on apply threshold accordingly
  6401.  
  6402. sub threshold {
  6403.  
  6404.  # $SETTING{'Page range'} = 'selected' if $SETTING{'RMB'};
  6405.  
  6406.  my $windowt = Gscan2pdf::Dialog->new(
  6407.   'transient-for' => $window,
  6408.   title           => $d->get('Threshold'),
  6409.   border_width    => $border_width
  6410.  );
  6411.  my $vbox = $windowt->get('vbox');
  6412.  
  6413.  # Frame for page range
  6414.  add_page_range($vbox);
  6415.  
  6416.  # SpinButton for threshold
  6417.  my $hboxt = Gtk2::HBox->new;
  6418.  $vbox->pack_start( $hboxt, FALSE, TRUE, 0 );
  6419.  my $label = Gtk2::Label->new( $d->get('Threshold') );
  6420.  $hboxt->pack_start( $label, FALSE, TRUE, 0 );
  6421.  my $labelp = Gtk2::Label->new( $d->get('%') );
  6422.  $hboxt->pack_end( $labelp, FALSE, TRUE, 0 );
  6423.  my $spinbutton = Gtk2::SpinButton->new_with_range( 0, 100, 1 );
  6424.  $spinbutton->set_value( $SETTING{'threshold tool'} );
  6425.  $hboxt->pack_end( $spinbutton, FALSE, TRUE, 0 );
  6426.  
  6427.  # HBox for buttons
  6428.  my $hboxb = _hbox_with_apply_cancel_buttons(
  6429.   sub {
  6430.  
  6431.    # Update undo/redo buffers
  6432.    take_snapshot();
  6433.  
  6434.    $SETTING{'threshold tool'} = $spinbutton->get_value;
  6435.  
  6436.    my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  6437.    my $page     = 0;
  6438.    for my $i (@pagelist) {
  6439.     $page++;
  6440.     my ( $signal, $pid );
  6441.     $pid = $slist->threshold(
  6442.      threshold       => $SETTING{'threshold tool'},
  6443.      page            => $slist->{data}[$i][2],
  6444.      queued_callback => sub {
  6445.       return update_tpbar(@_);
  6446.      },
  6447.      started_callback => sub {
  6448.       my ( $thread, $process, $completed, $total ) = @_;
  6449.       $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6450.       return TRUE if ( defined $signal );
  6451.      },
  6452.      finished_callback => sub {
  6453.       my ( $new_page, $pending ) = @_;
  6454.       $thbox->hide_all unless $pending;
  6455.       $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6456.      },
  6457.      error_callback => sub {
  6458.       my ($message) = @_;
  6459.       show_message_dialog( $window, 'error', 'close', $message );
  6460.      },
  6461.      display_callback => sub {
  6462.       my ($new_page) = @_;
  6463.       display_image($new_page);
  6464.      },
  6465.     );
  6466.    }
  6467.   },
  6468.   sub { $windowt->destroy }
  6469.  );
  6470.  $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  6471.  $windowt->show_all;
  6472.  return;
  6473. }
  6474.  
  6475. # Display page selector and on apply negate accordingly
  6476.  
  6477. sub negate {
  6478.  
  6479.  # $SETTING{'Page range'} = 'selected' if $SETTING{'RMB'};
  6480.  
  6481.  my $windowt = Gscan2pdf::Dialog->new(
  6482.   'transient-for' => $window,
  6483.   title           => $d->get('Negate'),
  6484.   border_width    => $border_width
  6485.  );
  6486.  my $vbox = $windowt->get('vbox');
  6487.  
  6488.  # Frame for page range
  6489.  add_page_range($vbox);
  6490.  
  6491.  # HBox for buttons
  6492.  my $hboxb = _hbox_with_apply_cancel_buttons(
  6493.   sub {
  6494.  
  6495.    # Update undo/redo buffers
  6496.    take_snapshot();
  6497.  
  6498.    my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  6499.    for my $i (@pagelist) {
  6500.     my ( $signal, $pid );
  6501.     $pid = $slist->negate(
  6502.      page            => $slist->{data}[$i][2],
  6503.      queued_callback => sub {
  6504.       return update_tpbar(@_);
  6505.      },
  6506.      started_callback => sub {
  6507.       my ( $thread, $process, $completed, $total ) = @_;
  6508.       $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6509.       return TRUE if ( defined $signal );
  6510.      },
  6511.      finished_callback => sub {
  6512.       my ( $new_page, $pending ) = @_;
  6513.       $thbox->hide_all unless $pending;
  6514.       $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6515.      },
  6516.      error_callback => sub {
  6517.       my ($message) = @_;
  6518.       show_message_dialog( $window, 'error', 'close', $message );
  6519.      },
  6520.      display_callback => sub {
  6521.       my ($new_page) = @_;
  6522.       display_image($new_page);
  6523.      },
  6524.     );
  6525.    }
  6526.   },
  6527.   sub { $windowt->destroy }
  6528.  );
  6529.  $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  6530.  $windowt->show_all;
  6531.  return;
  6532. }
  6533.  
  6534. # Display page selector and on apply unsharp accordingly
  6535.  
  6536. sub unsharp {
  6537.  
  6538.  # $SETTING{'Page range'} = 'selected' if $SETTING{'RMB'};
  6539.  
  6540.  my $windowum = Gscan2pdf::Dialog->new(
  6541.   'transient-for' => $window,
  6542.   title           => $d->get('Unsharp mask'),
  6543.   border_width    => $border_width
  6544.  );
  6545.  my $vbox = $windowum->get('vbox');
  6546.  
  6547.  # Frame for page range
  6548.  add_page_range($vbox);
  6549.  
  6550.  # SpinButton for radius
  6551.  my $hbox = Gtk2::HBox->new;
  6552.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6553.  my $label = Gtk2::Label->new( $d->get('Radius') );
  6554.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6555.  $label = Gtk2::Label->new( $d->get('pixels') );
  6556.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6557.  my $spinbuttonr = Gtk2::SpinButton->new_with_range( 0, 100, 1 );
  6558.  $spinbuttonr->set_value( $SETTING{'unsharp radius'} );
  6559.  $tooltips->set_tip(
  6560.   $spinbuttonr,
  6561.   $d->get(
  6562. 'The radius of the Gaussian, in pixels, not counting the center pixel (0 = automatic).'
  6563.   )
  6564.  );
  6565.  $hbox->pack_end( $spinbuttonr, FALSE, TRUE, 0 );
  6566.  
  6567.  # SpinButton for sigma
  6568.  $hbox = Gtk2::HBox->new;
  6569.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6570.  $label = Gtk2::Label->new( $d->get('Sigma') );
  6571.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6572.  $label = Gtk2::Label->new( $d->get('pixels') );
  6573.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6574.  my $spinbuttons = Gtk2::SpinButton->new_with_range( 0, 5, .1 );
  6575.  $spinbuttons->set_value( $SETTING{'unsharp sigma'} );
  6576.  $tooltips->set_tip( $spinbuttons,
  6577.   $d->get('The standard deviation of the Gaussian.') );
  6578.  $hbox->pack_end( $spinbuttons, FALSE, TRUE, 0 );
  6579.  
  6580.  # SpinButton for amount
  6581.  $hbox = Gtk2::HBox->new;
  6582.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6583.  $label = Gtk2::Label->new( $d->get('Amount') );
  6584.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6585.  $label = Gtk2::Label->new( $d->get('%') );
  6586.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6587.  my $spinbuttona = Gtk2::SpinButton->new_with_range( 0, 100, 1 );
  6588.  $spinbuttona->set_value( $SETTING{'unsharp amount'} );
  6589.  $tooltips->set_tip(
  6590.   $spinbuttona,
  6591.   $d->get(
  6592. 'The percentage of the difference between the original and the blur image that is added back into the original.'
  6593.   )
  6594.  );
  6595.  $hbox->pack_end( $spinbuttona, FALSE, TRUE, 0 );
  6596.  
  6597.  # SpinButton for threshold
  6598.  $hbox = Gtk2::HBox->new;
  6599.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6600.  $label = Gtk2::Label->new( $d->get('Threshold') );
  6601.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6602.  my $spinbuttont = Gtk2::SpinButton->new_with_range( 0, 1, 0.01 );
  6603.  $spinbuttont->set_value( $SETTING{'unsharp threshold'} );
  6604.  $tooltips->set_tip(
  6605.   $spinbuttont,
  6606.   $d->get(
  6607. 'The threshold, as a fraction of QuantumRange, needed to apply the difference amount.'
  6608.   )
  6609.  );
  6610.  $hbox->pack_end( $spinbuttont, FALSE, TRUE, 0 );
  6611.  
  6612.  # HBox for buttons
  6613.  my $hboxb = _hbox_with_apply_cancel_buttons(
  6614.   sub {
  6615.  
  6616.    # Update undo/redo buffers
  6617.    take_snapshot();
  6618.  
  6619.    $SETTING{'unsharp radius'}    = $spinbuttonr->get_value;
  6620.    $SETTING{'unsharp sigma'}     = $spinbuttons->get_value;
  6621.    $SETTING{'unsharp amount'}    = $spinbuttona->get_value;
  6622.    $SETTING{'unsharp threshold'} = $spinbuttont->get_value;
  6623.  
  6624.    my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  6625.    for my $i (@pagelist) {
  6626.     my ( $signal, $pid );
  6627.     $pid = $slist->unsharp(
  6628.      page            => $slist->{data}[$i][2],
  6629.      radius          => $SETTING{'unsharp radius'},
  6630.      sigma           => $SETTING{'unsharp sigma'},
  6631.      amount          => $SETTING{'unsharp amount'},
  6632.      threshold       => $SETTING{'unsharp threshold'},
  6633.      queued_callback => sub {
  6634.       return update_tpbar(@_);
  6635.      },
  6636.      started_callback => sub {
  6637.       my ( $thread, $process, $completed, $total ) = @_;
  6638.       $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6639.       return TRUE if ( defined $signal );
  6640.      },
  6641.      finished_callback => sub {
  6642.       my ( $new_page, $pending ) = @_;
  6643.       $thbox->hide_all unless $pending;
  6644.       $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6645.      },
  6646.      error_callback => sub {
  6647.       my ($message) = @_;
  6648.       show_message_dialog( $window, 'error', 'close', $message );
  6649.      },
  6650.      display_callback => sub {
  6651.       my ($new_page) = @_;
  6652.       display_image($new_page);
  6653.      },
  6654.     );
  6655.    }
  6656.   },
  6657.   sub { $windowum->destroy }
  6658.  );
  6659.  $windowum->show_all;
  6660.  return;
  6661. }
  6662.  
  6663. # Callback for change Gtk2::ImageView::Tool
  6664.  
  6665. sub change_image_tool_cb {
  6666.  my ( $action, $current ) = @_;
  6667.  my $value = $current->get_current_value();
  6668.  my $tool  = $selector;
  6669.  if ( $value == 10 ) {
  6670.   $tool = $dragger;
  6671.  }
  6672.  elsif ( $value == 30 ) {
  6673.   $tool = $painter;
  6674.  }
  6675.  $view->set_tool($tool);
  6676.  if ( $value == 20
  6677.   and defined( $SETTING{selection} )
  6678.   and @{ $SETTING{selection} } == 4 )
  6679.  {
  6680.   $selector->signal_handler_block( $selector->{selection_changed_signal} );
  6681.   $selector->set_selection(
  6682.    Gtk2::Gdk::Rectangle->new( @{ $SETTING{selection} } ) );
  6683.   $selector->signal_handler_unblock( $selector->{selection_changed_signal} );
  6684.  }
  6685.  return;
  6686. }
  6687.  
  6688. # Display page selector and on apply crop accordingly
  6689.  
  6690. sub crop {
  6691.  
  6692.  if ( defined $windowc ) {
  6693.   $windowc->present;
  6694.   return;
  6695.  }
  6696.  
  6697.  # $SETTING{'Page range'} = 'selected' if $SETTING{'RMB'};
  6698.  
  6699.  $windowc = Gscan2pdf::Dialog->new(
  6700.   'transient-for'  => $window,
  6701.   title            => $d->get('Crop'),
  6702.   'hide-on-delete' => TRUE,
  6703.   border_width     => $border_width
  6704.  );
  6705.  my $vbox = $windowc->get('vbox');
  6706.  
  6707.  # Frame for page range
  6708.  add_page_range($vbox);
  6709.  
  6710.  # SpinButton for x
  6711.  my $hbox = Gtk2::HBox->new;
  6712.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6713.  my $label = Gtk2::Label->new( $d->get('x') );
  6714.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6715.  $label = Gtk2::Label->new( $d->get('pixels') );
  6716.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6717.  $sb_selector_x = Gtk2::SpinButton->new_with_range( 0, $current_page->{w}, 1 );
  6718.  $tooltips->set_tip( $sb_selector_x,
  6719.   $d->get('The x-position of the left hand edge of the crop.') );
  6720.  $hbox->pack_end( $sb_selector_x, FALSE, TRUE, 0 );
  6721.  
  6722.  # SpinButton for y
  6723.  $hbox = Gtk2::HBox->new;
  6724.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6725.  $label = Gtk2::Label->new( $d->get('y') );
  6726.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6727.  $label = Gtk2::Label->new( $d->get('pixels') );
  6728.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6729.  $sb_selector_y = Gtk2::SpinButton->new_with_range( 0, $current_page->{h}, 1 );
  6730.  $tooltips->set_tip( $sb_selector_y,
  6731.   $d->get('The y-position of the top edge of the crop.') );
  6732.  $hbox->pack_end( $sb_selector_y, FALSE, TRUE, 0 );
  6733.  
  6734.  # SpinButton for w
  6735.  $hbox = Gtk2::HBox->new;
  6736.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6737.  $label = Gtk2::Label->new( $d->get('Width') );
  6738.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6739.  $label = Gtk2::Label->new( $d->get('pixels') );
  6740.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6741.  $sb_selector_w = Gtk2::SpinButton->new_with_range( 0, $current_page->{w}, 1 );
  6742.  $tooltips->set_tip( $sb_selector_w, $d->get('The width of the crop.') );
  6743.  $hbox->pack_end( $sb_selector_w, FALSE, TRUE, 0 );
  6744.  
  6745.  # SpinButton for h
  6746.  $hbox = Gtk2::HBox->new;
  6747.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  6748.  $label = Gtk2::Label->new( $d->get('Height') );
  6749.  $hbox->pack_start( $label, FALSE, TRUE, 0 );
  6750.  $label = Gtk2::Label->new( $d->get('pixels') );
  6751.  $hbox->pack_end( $label, FALSE, TRUE, 0 );
  6752.  $sb_selector_h = Gtk2::SpinButton->new_with_range( 0, $current_page->{h}, 1 );
  6753.  $tooltips->set_tip( $sb_selector_h, $d->get('The height of the crop.') );
  6754.  $hbox->pack_end( $sb_selector_h, FALSE, TRUE, 0 );
  6755.  
  6756.  # Callbacks if the spinbuttons change
  6757.  $sb_selector_x->signal_connect(
  6758.   'value-changed' => sub {
  6759.    $SETTING{selection}[0] = $sb_selector_x->get_value;
  6760.    $sb_selector_w->set_range( 0, $current_page->{w} - $SETTING{selection}[0] );
  6761.    update_selector();
  6762.   }
  6763.  );
  6764.  $sb_selector_y->signal_connect(
  6765.   'value-changed' => sub {
  6766.    $SETTING{selection}[1] = $sb_selector_y->get_value;
  6767.    $sb_selector_h->set_range( 0, $current_page->{h} - $SETTING{selection}[1] );
  6768.    update_selector();
  6769.   }
  6770.  );
  6771.  $sb_selector_w->signal_connect(
  6772.   'value-changed' => sub {
  6773.    $SETTING{selection}[2] = $sb_selector_w->get_value;
  6774.    $sb_selector_x->set_range( 0, $current_page->{w} - $SETTING{selection}[2] );
  6775.    update_selector();
  6776.   }
  6777.  );
  6778.  $sb_selector_h->signal_connect(
  6779.   'value-changed' => sub {
  6780.    $SETTING{selection}[3] = $sb_selector_h->get_value;
  6781.    $sb_selector_y->set_range( 0, $current_page->{h} - $SETTING{selection}[3] );
  6782.    update_selector();
  6783.   }
  6784.  );
  6785.  
  6786.  $sb_selector_x->set_value( $SETTING{selection}[0] )
  6787.    if ( defined $SETTING{selection}[0] );
  6788.  $sb_selector_y->set_value( $SETTING{selection}[1] )
  6789.    if ( defined $SETTING{selection}[1] );
  6790.  $sb_selector_w->set_value( $SETTING{selection}[2] )
  6791.    if ( defined $SETTING{selection}[2] );
  6792.  $sb_selector_h->set_value( $SETTING{selection}[3] )
  6793.    if ( defined $SETTING{selection}[3] );
  6794.  
  6795.  # HBox for buttons
  6796.  my $hboxb = _hbox_with_apply_cancel_buttons(
  6797.   sub {
  6798.  
  6799.    return unless ( @{ $SETTING{selection} } );
  6800.  
  6801.    # Update undo/redo buffers
  6802.    take_snapshot();
  6803.  
  6804.    my @pagelist = $slist->get_page_index( $SETTING{'Page range'} );
  6805.    for my $i (@pagelist) {
  6806.     my ( $signal, $pid );
  6807.     $pid = $slist->crop(
  6808.      page            => $slist->{data}[$i][2],
  6809.      x               => $SETTING{selection}[0],
  6810.      y               => $SETTING{selection}[1],
  6811.      w               => $SETTING{selection}[2],
  6812.      h               => $SETTING{selection}[3],
  6813.      queued_callback => sub {
  6814.       return update_tpbar(@_);
  6815.      },
  6816.      started_callback => sub {
  6817.       my ( $thread, $process, $completed, $total ) = @_;
  6818.       $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6819.       return TRUE if ( defined $signal );
  6820.      },
  6821.      finished_callback => sub {
  6822.       my ( $new_page, $pending ) = @_;
  6823.       $thbox->hide_all unless $pending;
  6824.       $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6825.      },
  6826.      error_callback => sub {
  6827.       my ($message) = @_;
  6828.       show_message_dialog( $window, 'error', 'close', $message );
  6829.      },
  6830.      display_callback => sub {
  6831.       my ($new_page) = @_;
  6832.       display_image($new_page);
  6833.      },
  6834.     );
  6835.    }
  6836.  
  6837.   },
  6838.   sub { $windowc->hide }
  6839.  );
  6840.  $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  6841.  $windowc->show_all;
  6842.  return;
  6843. }
  6844.  
  6845. sub update_selector {
  6846.  my $sel = $selector->get_selection;
  6847.  $selector->signal_handler_block( $selector->{selection_changed_signal} );
  6848.  $selector->set_selection(
  6849.   Gtk2::Gdk::Rectangle->new( @{ $SETTING{selection} } ) )
  6850.    if ( defined $sel );
  6851.  $selector->signal_handler_unblock( $selector->{selection_changed_signal} );
  6852.  return;
  6853. }
  6854.  
  6855. # Run a user-defined tool on the selected images
  6856.  
  6857. sub user_defined_tool {
  6858.  my ($action) = @_;
  6859.  my @pages = $slist->get_selected_indices;
  6860.  
  6861.  # Update undo/redo buffers
  6862.  take_snapshot();
  6863.  
  6864.  my $cmd = $action->get('label');
  6865.  for my $i (@pages) {
  6866.   my ( $signal, $pid );
  6867.   $pid = $slist->user_defined(
  6868.    page            => $slist->{data}[$i][2],
  6869.    command         => $cmd,
  6870.    queued_callback => sub {
  6871.     return update_tpbar(@_);
  6872.    },
  6873.    started_callback => sub {
  6874.     my ( $thread, $process, $completed, $total ) = @_;
  6875.     $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6876.     return TRUE if ( defined $signal );
  6877.    },
  6878.    finished_callback => sub {
  6879.     my ( $new_page, $pending ) = @_;
  6880.     $thbox->hide_all unless $pending;
  6881.     $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6882.    },
  6883.    error_callback => sub {
  6884.     my ($message) = @_;
  6885.     show_message_dialog( $window, 'error', 'close', $message );
  6886.    },
  6887.    display_callback => sub {
  6888.     my ($new_page) = @_;
  6889.     display_image($new_page);
  6890.    },
  6891.   );
  6892.  }
  6893.  return;
  6894. }
  6895.  
  6896. # guess from which window the sub was called
  6897.  
  6898. sub get_parent {
  6899.  my ( $w1, $w2, $w3 ) = @_;
  6900.  if ( defined($w1) and $w1->visible ) {
  6901.   return $w1;
  6902.  }
  6903.  elsif ( defined($w2) and $w2->visible ) {
  6904.   return $w2;
  6905.  }
  6906.  else {
  6907.   return $w3;
  6908.  }
  6909.  return;
  6910. }
  6911.  
  6912. # queue $page to be processed by unpaper
  6913.  
  6914. sub unpaper_page {
  6915.  my ( $pages, $options, $callback ) = @_;
  6916.  $options = '' unless ( defined $options );
  6917.  
  6918.  # Update undo/redo buffers
  6919.  take_snapshot();
  6920.  
  6921.  for my $pageobject ( @{$pages} ) {
  6922.   my ( $signal, $pid );
  6923.   $pid = $slist->unpaper(
  6924.    page            => $pageobject,
  6925.    options         => $options,
  6926.    queued_callback => sub {
  6927.     return update_tpbar(@_);
  6928.    },
  6929.    started_callback => sub {
  6930.     my ( $thread, $process, $completed, $total ) = @_;
  6931.     $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  6932.     return TRUE if ( defined $signal );
  6933.    },
  6934.    finished_callback => sub {
  6935.     my ( $new_page, $pending ) = @_;
  6936.     $callback->($new_page) if $callback;
  6937.     $thbox->hide_all unless $pending;
  6938.     $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  6939.    },
  6940.    error_callback => sub {
  6941.     my ($message) = @_;
  6942.     show_message_dialog( $window, 'error', 'close', $message );
  6943.    },
  6944.    display_callback => sub {
  6945.     my ($new_page) = @_;
  6946.     display_image($new_page);
  6947.    },
  6948.   );
  6949.  }
  6950.  
  6951.  return;
  6952. }
  6953.  
  6954. # Run unpaper to clean up scan.
  6955.  
  6956. sub unpaper {
  6957.  
  6958.  if ( defined $windowu ) {
  6959.   $windowu->present;
  6960.   return;
  6961.  }
  6962.  
  6963.  $windowu = Gscan2pdf::Dialog->new(
  6964.   'transient-for'  => $window,
  6965.   title            => $d->get('unpaper'),
  6966.   'hide-on-delete' => TRUE,
  6967.   border_width     => $border_width
  6968.  );
  6969.  my $vbox = $windowu->get('vbox');
  6970.  $unpaper->add_options($vbox);
  6971.  
  6972.  # Frame for page range
  6973.  add_page_range($vbox);
  6974.  
  6975.  # HBox for buttons
  6976.  my $hboxb = Gtk2::HBox->new;
  6977.  $vbox->pack_start( $hboxb, FALSE, TRUE, 0 );
  6978.  
  6979.  # OK button
  6980.  my $sbutton = Gtk2::Button->new_from_stock('gtk-ok');
  6981.  $hboxb->pack_start( $sbutton, TRUE, TRUE, 0 );
  6982.  $sbutton->signal_connect(
  6983.   clicked => sub {
  6984.  
  6985.    # Update undo/redo buffers
  6986.    take_snapshot();
  6987.  
  6988.    # Update $SETTING
  6989.    $SETTING{'unpaper options'} = $unpaper->get_options;
  6990.  
  6991.    # run unpaper
  6992.    my @pages =
  6993.      indices2pages( $slist->get_page_index( $SETTING{'Page range'} ) );
  6994.    unpaper_page( \@pages, $unpaper->get_cmdline );
  6995.  
  6996.    $windowu->hide;
  6997.   }
  6998.  );
  6999.  
  7000.  # Cancel button
  7001.  my $cbutton = Gtk2::Button->new_from_stock('gtk-cancel');
  7002.  $hboxb->pack_end( $cbutton, FALSE, FALSE, 0 );
  7003.  $cbutton->signal_connect( clicked => sub { $windowu->hide; } );
  7004.  
  7005.  $windowu->show_all;
  7006.  return;
  7007. }
  7008.  
  7009. # Add $page to the OCR stack, setting it off if not running.
  7010.  
  7011. sub ocr_page {
  7012.  my ($pages) = @_;
  7013.  
  7014.  for my $page ( @{$pages} ) {
  7015.   my ( $signal, $pid );
  7016.   if ( $SETTING{'ocr engine'} eq 'gocr' ) {
  7017.    $pid = $slist->gocr(
  7018.     page            => $page,
  7019.     queued_callback => sub {
  7020.      return update_tpbar(@_);
  7021.     },
  7022.     started_callback => sub {
  7023.      my ( $thread, $process, $completed, $total ) = @_;
  7024.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  7025.      return TRUE if ( defined $signal );
  7026.     },
  7027.     finished_callback => sub {
  7028.      my ( $new_page, $pending ) = @_;
  7029.      $thbox->hide_all unless $pending;
  7030.      $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  7031.     },
  7032.     error_callback => sub {
  7033.      my ($message) = @_;
  7034.      show_message_dialog( $window, 'error', 'close', $message );
  7035.     },
  7036.     display_callback => sub {
  7037.      my ($new_page) = @_;
  7038.      my @page = $slist->get_selected_indices;
  7039.      create_canvas($new_page)
  7040.        if ( @page and $new_page == $slist->{data}[ $page[0] ][2] );
  7041.     }
  7042.    );
  7043.   }
  7044.   elsif ( $SETTING{'ocr engine'} eq 'tesseract' ) {
  7045.    $pid = $slist->tesseract(
  7046.     page            => $page,
  7047.     language        => $SETTING{'ocr language'},
  7048.     queued_callback => sub {
  7049.      return update_tpbar(@_);
  7050.     },
  7051.     started_callback => sub {
  7052.      my ( $thread, $process, $completed, $total ) = @_;
  7053.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  7054.      return TRUE if ( defined $signal );
  7055.     },
  7056.     finished_callback => sub {
  7057.      my ( $new_page, $pending ) = @_;
  7058.      $thbox->hide_all unless $pending;
  7059.      $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  7060.     },
  7061.     error_callback => sub {
  7062.      my ($message) = @_;
  7063.      show_message_dialog( $window, 'error', 'close', $message );
  7064.     },
  7065.     display_callback => sub {
  7066.      my ($new_page) = @_;
  7067.      my @page = $slist->get_selected_indices;
  7068.      create_canvas($new_page)
  7069.        if ( @page and $new_page == $slist->{data}[ $page[0] ][2] );
  7070.     }
  7071.    );
  7072.   }
  7073.   elsif ( $SETTING{'ocr engine'} eq 'ocropus' ) {
  7074.    $pid = $slist->ocropus(
  7075.     page            => $page,
  7076.     language        => $SETTING{'ocr language'},
  7077.     queued_callback => sub {
  7078.      return update_tpbar(@_);
  7079.     },
  7080.     started_callback => sub {
  7081.      my ( $thread, $process, $completed, $total ) = @_;
  7082.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  7083.      return TRUE if ( defined $signal );
  7084.     },
  7085.     finished_callback => sub {
  7086.      my ( $new_page, $pending ) = @_;
  7087.      $thbox->hide_all unless $pending;
  7088.      $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  7089.     },
  7090.     error_callback => sub {
  7091.      my ($message) = @_;
  7092.      show_message_dialog( $window, 'error', 'close', $message );
  7093.     },
  7094.     display_callback => sub {
  7095.      my ($new_page) = @_;
  7096.      my @page = $slist->get_selected_indices;
  7097.      create_canvas($new_page)
  7098.        if ( @page and $new_page == $slist->{data}[ $page[0] ][2] );
  7099.     }
  7100.    );
  7101.   }
  7102.   else {    # cuneiform
  7103.    $pid = $slist->cuneiform(
  7104.     page            => $page,
  7105.     language        => $SETTING{'ocr language'},
  7106.     queued_callback => sub {
  7107.      return update_tpbar(@_);
  7108.     },
  7109.     started_callback => sub {
  7110.      my ( $thread, $process, $completed, $total ) = @_;
  7111.      $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  7112.      return TRUE if ( defined $signal );
  7113.     },
  7114.     finished_callback => sub {
  7115.      my ( $new_page, $pending ) = @_;
  7116.      $thbox->hide_all unless $pending;
  7117.      $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  7118.     },
  7119.     error_callback => sub {
  7120.      my ($message) = @_;
  7121.      show_message_dialog( $window, 'error', 'close', $message );
  7122.     },
  7123.     display_callback => sub {
  7124.      my ($new_page) = @_;
  7125.      my @page = $slist->get_selected_indices;
  7126.      create_canvas($new_page)
  7127.        if ( @page and $new_page == $slist->{data}[ $page[0] ][2] );
  7128.     }
  7129.    );
  7130.   }
  7131.  }
  7132.  return;
  7133. }
  7134.  
  7135. # Create a combobox from an array and set the default
  7136.  
  7137. sub combobox_from_array {
  7138.  my (@array) = @_;
  7139.  
  7140.  # Fill ComboBox
  7141.  my $combobox = Gtk2::ComboBox->new_text;
  7142.  foreach (@array) {
  7143.   $combobox->append_text( $_->[1] );
  7144.  }
  7145.  return $combobox;
  7146. }
  7147.  
  7148. # Create a combobox from an array and set the default
  7149.  
  7150. sub combobox_set_active {
  7151.  my ( $combobox, $default, @array ) = @_;
  7152.  
  7153.  # Fill ComboBox
  7154.  my $i = 0;
  7155.  my $o;
  7156.  if ( defined($default) ) {
  7157.   foreach (@array) {
  7158.    $o = $i if ( defined( $_->[0] ) and $_->[0] eq $default );
  7159.    ++$i;
  7160.   }
  7161.  }
  7162.  $o = 0 unless ( defined $o );
  7163.  $combobox->set_active($o);
  7164.  return;
  7165. }
  7166.  
  7167. # Add hbox for tesseract languages
  7168.  
  7169. sub add_tess_languages {
  7170.  my ($vbox) = @_;
  7171.  
  7172.  my $hbox = Gtk2::HBox->new;
  7173.  $vbox->pack_start( $hbox, FALSE, FALSE, 0 );
  7174.  my $label = Gtk2::Label->new( $d->get('Language to recognise') );
  7175.  $hbox->pack_start( $label, TRUE, TRUE, 0 );
  7176.  
  7177.  # Tesseract language files
  7178.  my @tesslang;
  7179.  for ( sort { $a cmp $b } keys %{ Gscan2pdf::Tesseract->languages } ) {
  7180.   push @tesslang, [ $_, $d->get( ${ Gscan2pdf::Tesseract->languages }{$_} ) ];
  7181.  }
  7182.  
  7183.  # If there are no language files, then we have tesseract-1.0, i.e. English
  7184.  unless (@tesslang) {
  7185.   push @tesslang, [ undef, $d->get('English') ];
  7186.   $logger->info("No tesseract languages found");
  7187.  }
  7188.  
  7189.  my $combobox = combobox_from_array(@tesslang);
  7190.  combobox_set_active( $combobox, $SETTING{'ocr language'}, @tesslang );
  7191.  $hbox->pack_end( $combobox, TRUE, TRUE, 0 );
  7192.  return $hbox, $combobox, @tesslang;
  7193. }
  7194.  
  7195. # Add hbox for cuneiform languages
  7196.  
  7197. sub add_cf_languages {
  7198.  my ($vbox) = @_;
  7199.  
  7200.  my $hbox = Gtk2::HBox->new;
  7201.  $vbox->pack_start( $hbox, FALSE, FALSE, 0 );
  7202.  my $label = Gtk2::Label->new( $d->get('Language to recognise') );
  7203.  $hbox->pack_start( $label, TRUE, TRUE, 0 );
  7204.  
  7205.  # Tesseract language files
  7206.  my @lang;
  7207.  for ( sort { $a cmp $b } keys %{ Gscan2pdf::Cuneiform->languages } ) {
  7208.   push @lang, [ $_, $d->get( ${ Gscan2pdf::Cuneiform->languages }{$_} ) ];
  7209.  }
  7210.  
  7211.  my $combobox = combobox_from_array(@lang);
  7212.  combobox_set_active( $combobox, $SETTING{'ocr language'}, @lang );
  7213.  $hbox->pack_end( $combobox, TRUE, TRUE, 0 );
  7214.  return $hbox, $combobox, @lang;
  7215. }
  7216.  
  7217. # Run OCR on current page and display result
  7218.  
  7219. sub OCR {
  7220.  
  7221.  if ( defined $windowo ) {
  7222.   $windowo->present;
  7223.   return;
  7224.  }
  7225.  
  7226.  $windowo = Gscan2pdf::Dialog->new(
  7227.   'transient-for'  => $window,
  7228.   title            => $d->get('OCR'),
  7229.   'hide-on-delete' => TRUE,
  7230.   border_width     => $border_width
  7231.  );
  7232.  my $vbox = $windowo->get('vbox');
  7233.  
  7234.  # OCR engine selection
  7235.  my $hboxe = Gtk2::HBox->new;
  7236.  $vbox->pack_start( $hboxe, TRUE, TRUE, 0 );
  7237.  my $label = Gtk2::Label->new( $d->get('OCR Engine') );
  7238.  $hboxe->pack_start( $label, FALSE, FALSE, 0 );
  7239.  my $combobe = combobox_from_array(@ocr_engine);
  7240.  combobox_set_active( $combobe, $SETTING{'ocr engine'}, @ocr_engine );
  7241.  $hboxe->pack_end( $combobe, FALSE, FALSE, 0 );
  7242.  my ( $comboboxtl, $hboxtl, @tesslang, $comboboxcl, $hboxcl, @cflang );
  7243.  
  7244.  if ( $dependencies{tesseract} ) {
  7245.   ( $hboxtl, $comboboxtl, @tesslang ) = add_tess_languages($vbox);
  7246.   $combobe->signal_connect(
  7247.    changed => sub {
  7248.     if ($ocr_engine[ $combobe->get_active ]->[0] eq 'tesseract'
  7249.      or $ocr_engine[ $combobe->get_active ]->[0] eq 'ocropus' )
  7250.     {
  7251.      $hboxtl->show_all;
  7252.     }
  7253.     else {
  7254.      $hboxtl->hide_all;
  7255.     }
  7256.    }
  7257.   );
  7258.  }
  7259.  if ( $dependencies{cuneiform} ) {
  7260.   ( $hboxcl, $comboboxcl, @cflang ) = add_cf_languages($vbox);
  7261.   $combobe->signal_connect(
  7262.    changed => sub {
  7263.     if ( $ocr_engine[ $combobe->get_active ]->[0] eq 'cuneiform' ) {
  7264.      $hboxcl->show_all;
  7265.     }
  7266.     else {
  7267.      $hboxcl->hide_all;
  7268.     }
  7269.    }
  7270.   );
  7271.  }
  7272.  
  7273.  # Frame for page range
  7274.  add_page_range($vbox);
  7275.  
  7276.  # HBox for buttons
  7277.  my $hbox = Gtk2::HBox->new;
  7278.  $vbox->pack_start( $hbox, FALSE, TRUE, 0 );
  7279.  
  7280.  # Start button
  7281.  my $obutton = Gtk2::Button->new( $d->get('Start OCR') );
  7282.  $hbox->pack_start( $obutton, TRUE, TRUE, 0 );
  7283.  $obutton->signal_connect(
  7284.   clicked => sub {
  7285.    $SETTING{'ocr engine'}   = $ocr_engine[ $combobe->get_active ]->[0];
  7286.    $SETTING{'ocr language'} = $tesslang[ $comboboxtl->get_active ]->[0]
  7287.      if ( $SETTING{'ocr engine'} eq 'tesseract'
  7288.     or $SETTING{'ocr engine'} eq 'ocropus' );
  7289.    $SETTING{'ocr language'} = $cflang[ $comboboxcl->get_active ]->[0]
  7290.      if ( $SETTING{'ocr engine'} eq 'cuneiform' );
  7291.  
  7292.    # fill $pagelist with filenames depending on which radiobutton is active
  7293.    my @pages =
  7294.      indices2pages( $slist->get_page_index( $SETTING{'Page range'} ) );
  7295.    if ( not @pages ) {
  7296.     show_message_dialog( $windowo, 'error', 'close',
  7297.      $d->get('No page selected') );
  7298.     return;
  7299.    }
  7300.    ocr_page( \@pages );
  7301.    $windowo->hide;
  7302.   }
  7303.  );
  7304.  
  7305.  # Close button
  7306.  my $cbutton = Gtk2::Button->new_from_stock('gtk-close');
  7307.  $hbox->pack_end( $cbutton, FALSE, FALSE, 0 );
  7308.  $cbutton->signal_connect( clicked => sub { $windowo->hide; } );
  7309.  
  7310.  $windowo->show_all;
  7311.  $hboxtl->hide_all
  7312.    if (
  7313.   defined($hboxtl)
  7314.   and not( $ocr_engine[ $combobe->get_active ]->[0] eq 'tesseract'
  7315.    or $ocr_engine[ $combobe->get_active ]->[0] eq 'ocropus' )
  7316.    );
  7317.  $hboxcl->hide_all
  7318.    if ( defined($hboxcl)
  7319.   and not( $ocr_engine[ $combobe->get_active ]->[0] eq 'cuneiform' ) );
  7320.  return;
  7321. }
  7322.  
  7323. # Remove temporary files, note window state, save settings and quit.
  7324.  
  7325. sub quit {
  7326.  
  7327.  # Check that all pages have been saved
  7328.  for ( my $i = 0 ; $i < @{ $slist->{data} } ; $i++ ) {
  7329.   if ( not $slist->{data}[$i][2]{saved} ) {
  7330.    my $response =
  7331.      show_message_dialog( $window, 'question', 'ok-cancel',
  7332.     $d->get("Some pages have not been saved.\nDo you really want to quit?") );
  7333.    if ( $response ne 'ok' ) {
  7334.     return FALSE;
  7335.    }
  7336.    else {
  7337.     last;
  7338.    }
  7339.   }
  7340.  }
  7341.  
  7342.  # Make sure that we are back in the start directory, otherwise we can't delete
  7343.  # the temp dir.
  7344.  chdir $SETTING{'cwd'};
  7345.  
  7346.  # Remove temporary files (for some reason File::Temp wasn't doing its job here)
  7347.  unlink <$session/*>;
  7348.  rmdir $session;
  7349.  
  7350.  # Write window state to settings
  7351.  ( $SETTING{'window_width'}, $SETTING{'window_height'} ) = $window->get_size;
  7352.  ( $SETTING{'window_x'}, $SETTING{'window_y'} ) = $window->get_position;
  7353.  $SETTING{'thumb panel'} = $hpaned->get_position;
  7354.  
  7355.  # delete $SETTING{'RMB'};
  7356.  
  7357.  # Write config file
  7358.  $conf->save_file( $rc, \%SETTING );
  7359.  $logger->info("Wrote config to $ENV{'HOME'}/.$prog_name");
  7360.  
  7361.  kill_threads();
  7362.  kill_subs();
  7363.  $logger->debug("Quitting");
  7364.  return TRUE;
  7365. }
  7366.  
  7367. # kill all threads
  7368.  
  7369. sub kill_threads {
  7370.  Gscan2pdf::Frontend::Sane->quit();
  7371.  Gscan2pdf::Document->quit();
  7372.  return;
  7373. }
  7374.  
  7375. # View POD
  7376.  
  7377. sub view_pod {
  7378.  
  7379.  if ( defined $windowh ) {
  7380.   $windowh->present;
  7381.   return;
  7382.  }
  7383.  
  7384.  try { require Gtk2::Ex::PodViewer }
  7385.  catch {
  7386.   show_message_dialog(
  7387.    $window, 'error', 'close',
  7388.    sprintf(
  7389.     $d->get(
  7390.          "The help viewer requires module Gtk2::Ex::PodViewer\n"
  7391.        . "Alternatively, try: %s %s\n\n"
  7392.     ),
  7393.     $prog_name,
  7394.     "--help"
  7395.    )
  7396.   );
  7397.   return;
  7398.  };
  7399.  
  7400.  # Window
  7401.  $windowh = Gtk2::Window->new;
  7402.  $windowh->set_transient_for($window);    # Assigns parent
  7403.  $windowh->signal_connect(
  7404.   delete_event => sub {
  7405.    $windowh->hide;
  7406.    return TRUE;    # ensures that the window is not destroyed
  7407.   }
  7408.  );
  7409.  $windowh->set_default_size( 800, 600 );
  7410.  
  7411.  # Vertical divider between index and viewer
  7412.  my $pane = Gtk2::HPaned->new;
  7413.  $pane->set_position(200);
  7414.  $windowh->add($pane);
  7415.  
  7416.  # Index list
  7417.  my $index = Gtk2::Ex::Simple::List->new(
  7418.   'icon'  => 'pixbuf',
  7419.   'title' => 'text',
  7420.   'link'  => 'hstring'
  7421.  );
  7422.  $index->set_headers_visible(FALSE);
  7423.  $index->get_column(1)->set_sizing('autosize');
  7424.  
  7425.  # Index
  7426.  my $index_scrwin = Gtk2::ScrolledWindow->new;
  7427.  $index_scrwin->set_shadow_type('in');
  7428.  $index_scrwin->set_policy( 'automatic', 'automatic' );
  7429.  $index_scrwin->add_with_viewport($index);
  7430.  $index_scrwin->get_child->set_shadow_type('none');
  7431.  
  7432.  # Viewer
  7433.  my $viewer = Gtk2::Ex::PodViewer->new;
  7434.  $viewer->set_border_width($border_width);
  7435.  $viewer->set_cursor_visible(FALSE);
  7436.  $index->get_selection->signal_connect(
  7437.   'changed',
  7438.   sub {
  7439.    my $idx  = ( $index->get_selected_indices )[0];
  7440.    my $mark = $index->{data}[$idx][2];
  7441.    $viewer->jump_to($mark);
  7442.    return TRUE;
  7443.   }
  7444.  );
  7445.  
  7446.  my $viewer_scrwin = Gtk2::ScrolledWindow->new;
  7447.  $viewer_scrwin->set_shadow_type('in');
  7448.  $viewer_scrwin->set_policy( 'automatic', 'automatic' );
  7449.  $viewer_scrwin->add($viewer);
  7450.  
  7451.  $pane->add1($index_scrwin);
  7452.  $pane->add2($viewer_scrwin);
  7453.  
  7454.  $viewer->load($0);
  7455.  
  7456.  # Index contents
  7457.  my $idx_pbf = Gtk2::Image->new->render_icon( 'gtk-jump-to', 'menu' );
  7458.  map { push( @{ $index->{data} }, [ $idx_pbf, strippod($_), $_ ] ) }
  7459.    $viewer->get_marks;
  7460.  
  7461.  $windowh->show_all;
  7462.  return;
  7463. }
  7464.  
  7465. # Remove formatting characters
  7466.  
  7467. sub strippod {
  7468.  my $text = shift;
  7469.  $text =~ s/B<([^<]*)>/$1/gx;
  7470.  $text =~ s/E<gt>/>/gx;
  7471.  return $text;
  7472. }
  7473.  
  7474. # Add option, value pair to options
  7475.  
  7476. sub add_to_options {
  7477.  my ( $option, $value ) = @_;
  7478.  
  7479.  # Dig out of possible options, if defined
  7480.  if ( defined( $pddo{$option} )
  7481.   and defined( $pddo{$option}{values} )
  7482.   and defined( $pddo{$option}{values}{$value} ) )
  7483.  {
  7484.   $ddo{$option}{values}{$value} = $pddo{$option}{values}{$value};
  7485.  }
  7486.  else {
  7487.   $ddo{$option}{values}{$value} = $value;
  7488.  }
  7489.  return;
  7490. }
  7491.  
  7492. # Get option string from label
  7493.  
  7494. sub get_key {
  7495.  my ( $options, $value ) = @_;
  7496.  foreach ( keys %$options ) {
  7497.   return $_ if ( $options->{$_}{string} eq $value );
  7498.  }
  7499.  return;
  7500. }
  7501.  
  7502. # Get value string from combobox
  7503.  
  7504. sub get_value {
  7505.  my ( $options, $option, $value ) = @_;
  7506.  foreach ( keys %{ $options->{$option}{values} } ) {
  7507.   return $_ if ( $options->{$option}{values}{$_} eq $value );
  7508.  }
  7509.  return;
  7510. }
  7511.  
  7512. # Update undo/redo buffers before doing something
  7513.  
  7514. sub take_snapshot {
  7515.  
  7516.  # Deep copy the tied data. Otherwise, very bad things happen.
  7517.  @undo_buffer = map { [@$_] } @{ $slist->{data} };
  7518.  @undo_selection = $slist->get_selected_indices;
  7519.  $logger->debug( Dumper( \@undo_buffer ) );
  7520.  
  7521.  # Unghost Undo/redo
  7522.  $uimanager->get_widget('/MenuBar/Edit/Undo')->set_sensitive(TRUE);
  7523.  $uimanager->get_widget('/ToolBar/Undo')->set_sensitive(TRUE);
  7524.  
  7525.  # Save session
  7526.  $slist->save_session($session);
  7527.  return;
  7528. }
  7529.  
  7530. # Put things back to last snapshot after updating redo buffer
  7531.  
  7532. sub undo {
  7533.  $logger->info("Undoing");
  7534.  
  7535.  # Deep copy the tied data. Otherwise, very bad things happen.
  7536.  @redo_buffer = map { [@$_] } @{ $slist->{data} };
  7537.  @redo_selection = $slist->get_selected_indices;
  7538.  $logger->debug("redo_selection, undo_selection:");
  7539.  $logger->debug( Dumper( \@redo_selection, \@undo_selection ) );
  7540.  $logger->debug("redo_buffer, undo_buffer:");
  7541.  $logger->debug( Dumper( \@redo_buffer, \@undo_buffer ) );
  7542.  
  7543.  # Block slist signals whilst updating
  7544.  $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  7545.  @{ $slist->{data} } = @undo_buffer;
  7546.  
  7547.  # Unblock slist signals now finished
  7548.  $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  7549.  
  7550.  # Reselect the pages to display the detail view
  7551.  $slist->select(@undo_selection);
  7552.  
  7553.  # Update menus/buttons
  7554.  update_uimanager();
  7555.  $uimanager->get_widget('/MenuBar/Edit/Undo')->set_sensitive(FALSE);
  7556.  $uimanager->get_widget('/MenuBar/Edit/Redo')->set_sensitive(TRUE);
  7557.  $uimanager->get_widget('/ToolBar/Undo')->set_sensitive(FALSE);
  7558.  $uimanager->get_widget('/ToolBar/Redo')->set_sensitive(TRUE);
  7559.  return;
  7560. }
  7561.  
  7562. # Put things back to last snapshot after updating redo buffer
  7563.  
  7564. sub unundo {
  7565.  $logger->info("Redoing");
  7566.  
  7567.  # Deep copy the tied data. Otherwise, very bad things happen.
  7568.  @undo_buffer = map { [@$_] } @{ $slist->{data} };
  7569.  @undo_selection = $slist->get_selected_indices;
  7570.  $logger->debug("redo_selection, undo_selection:");
  7571.  $logger->debug( Dumper( \@redo_selection, \@undo_selection ) );
  7572.  $logger->debug("redo_buffer, undo_buffer:");
  7573.  $logger->debug( Dumper( \@redo_buffer, \@undo_buffer ) );
  7574.  
  7575.  # Block slist signals whilst updating
  7576.  $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  7577.  @{ $slist->{data} } = @redo_buffer;
  7578.  
  7579.  # Unblock slist signals now finished
  7580.  $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  7581.  
  7582.  # Reselect the pages to display the detail view
  7583.  $slist->select(@redo_selection);
  7584.  
  7585.  # Update menus/buttons
  7586.  update_uimanager();
  7587.  $uimanager->get_widget('/MenuBar/Edit/Undo')->set_sensitive(TRUE);
  7588.  $uimanager->get_widget('/MenuBar/Edit/Redo')->set_sensitive(FALSE);
  7589.  $uimanager->get_widget('/ToolBar/Undo')->set_sensitive(TRUE);
  7590.  $uimanager->get_widget('/ToolBar/Redo')->set_sensitive(FALSE);
  7591.  return;
  7592. }
  7593.  
  7594. # Initialise IconFactory
  7595.  
  7596. sub init_icons {
  7597.  my @icons = @_;
  7598.  return if defined $IconFactory;
  7599.  
  7600.  $IconFactory = Gtk2::IconFactory->new();
  7601.  $IconFactory->add_default();
  7602.  
  7603.  foreach (@icons) {
  7604.   register_icon( $_->[0], $_->[1] );
  7605.  }
  7606.  return;
  7607. }
  7608.  
  7609. # Add icons
  7610.  
  7611. sub register_icon {
  7612.  my ( $stock_id, $path ) = @_;
  7613.  
  7614.  return unless defined $IconFactory;
  7615.  
  7616.  my $icon;
  7617.  try { $icon = Gtk2::Gdk::Pixbuf->new_from_file($path); }
  7618.  catch {
  7619.   $logger->warn("Unable to load icon `$path': $_");
  7620.   return;
  7621.  };
  7622.  $IconFactory->add( $stock_id, Gtk2::IconSet->new_from_pixbuf($icon) );
  7623.  return;
  7624. }
  7625.  
  7626. # We should clean up after ourselves so that we don't
  7627. # leave dead processes flying around.
  7628. sub kill_subs {
  7629.  
  7630.  foreach ( keys %helperTag ) {
  7631.   killfam 'TERM', ($_);
  7632.   $logger->info("Sending TERM signal to PID $_ and its children");
  7633.  }
  7634.  return;
  7635. }
  7636.  
  7637. # marked page list as saved
  7638.  
  7639. sub mark_pages {
  7640.  my @pages = @_;
  7641.  $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  7642.  foreach (@pages) {
  7643.   $slist->{data}[$_][2]{saved} = TRUE;
  7644.  }
  7645.  $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  7646.  return;
  7647. }
  7648.  
  7649. # Convert all files in temp that are not jpg, png, or tiff to png,
  7650.  
  7651. sub compress_temp {
  7652.  return
  7653.    if (
  7654.   show_message_dialog(
  7655.    $window,     'question',
  7656.    'ok-cancel', $d->get('This operation cannot be undone. Are you sure?')
  7657.   ) ne 'ok'
  7658.    );
  7659.  @undo_buffer    = ();
  7660.  @undo_selection = ();
  7661.  $uimanager->get_widget('/MenuBar/Edit/Undo')->set_sensitive(FALSE);
  7662.  $uimanager->get_widget('/ToolBar/Undo')->set_sensitive(FALSE);
  7663.  
  7664.  for ( @{ $slist->{data} } ) {
  7665.   my ( $signal, $pid );
  7666.   $pid = $slist->to_png(
  7667.    page            => $_->[2],
  7668.    queued_callback => sub {
  7669.     return update_tpbar(@_);
  7670.    },
  7671.    started_callback => sub {
  7672.     my ( $thread, $process, $completed, $total ) = @_;
  7673.     $signal = setup_tpbar( $thread, $process, $completed, $total, $pid );
  7674.     return TRUE if ( defined $signal );
  7675.    },
  7676.    finished_callback => sub {
  7677.     my ( $new_page, $pending ) = @_;
  7678.     $thbox->hide_all unless $pending;
  7679.     $tcbutton->signal_handler_disconnect($signal) if ( defined $signal );
  7680.    },
  7681.    error_callback => sub {
  7682.     my ($message) = @_;
  7683.     show_message_dialog( $window, 'error', 'close', $message );
  7684.    },
  7685.   );
  7686.  }
  7687.  return;
  7688. }
  7689.  
  7690. # Expand tildes in the filename
  7691.  
  7692. sub expand_tildes {
  7693.  my ($filename) = @_;
  7694.  $filename =~ s{ ^ ~ ( [^/]* ) } {
  7695.   $1 ? (getpwnam($1))[7] : ( $ENV{HOME} || $ENV{LOGDIR} || (getpwuid($>))[7] )
  7696.  }ex;
  7697.  return $filename;
  7698. }
  7699.  
  7700. # Preferences dialog
  7701.  
  7702. sub preferences {    ## no critic (ProhibitExcessComplexity)
  7703.  
  7704.  if ( defined $windowr ) {
  7705.   $windowr->present;
  7706.   return;
  7707.  }
  7708.  
  7709.  $windowr = Gscan2pdf::Dialog->new(
  7710.   'transient-for'  => $window,
  7711.   title            => $d->get('Preferences'),
  7712.   'hide-on-delete' => TRUE,
  7713.   border_width     => $border_width
  7714.  );
  7715.  my $vbox = $windowr->get('vbox');
  7716.  
  7717.  # Frontends
  7718.  my $hbox = Gtk2::HBox->new;
  7719.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7720.  my $label = Gtk2::Label->new( $d->get('Frontend') );
  7721.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7722.  my @frontends = (
  7723.   [
  7724.    'libsane-perl', $d->get('libsane-perl'),
  7725.    $d->get('Scan using the perl bindings for SANE.')
  7726.   ],
  7727.   [
  7728.    'scanimage', $d->get('scanimage'),
  7729.    $d->get('Scan using the scanimage frontend.')
  7730.   ],
  7731.   [
  7732.    'scanimage-perl',
  7733.    $d->get('scanimage-perl'),
  7734.    $d->get('Scan using the scanimage-perl frontend.')
  7735.   ],
  7736.   [
  7737.    'scanadf-perl', $d->get('scanadf-perl'),
  7738.    $d->get('Scan using the scanadf-perl frontend.')
  7739.   ],
  7740.  );
  7741.  push @frontends,
  7742.    [
  7743.   'scanadf', $d->get('scanadf'),
  7744.   $d->get('Scan using the scanadf frontend.')
  7745.    ],
  7746.    if ( $dependencies{scanadf} );
  7747.  my $combob = combobox_from_array(@frontends);
  7748.  my $cbcsh =
  7749.    Gtk2::CheckButton->new_with_label( $d->get('Cycle SANE handle after scan') );
  7750.  $combob->signal_connect(
  7751.   changed => sub {
  7752.  
  7753.    if ( $frontends[ $combob->get_active ][0] eq 'libsane-perl' ) {
  7754.     $cbcsh->set_sensitive(TRUE);
  7755.    }
  7756.    else {
  7757.     $cbcsh->set_sensitive(FALSE);
  7758.    }
  7759.   }
  7760.  );
  7761.  combobox_set_active( $combob, $SETTING{frontend}, @frontends );
  7762.  $hbox->pack_end( $combob, TRUE, TRUE, 0 );
  7763.  
  7764.  # Cycle SANE handle after scan
  7765.  $cbcsh->set_active( $SETTING{'cycle sane handle'} )
  7766.    if ( defined $SETTING{'cycle sane handle'} );
  7767.  $vbox->pack_start( $cbcsh, TRUE, TRUE, 0 );
  7768.  
  7769.  # Default filename
  7770.  $hbox = Gtk2::HBox->new;
  7771.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7772.  $label = Gtk2::Label->new( $d->get('Default filename for PDFs') );
  7773.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7774.  my $fileentry = Gtk2::Entry->new;
  7775.  $tooltips->set_tip(
  7776.   $fileentry,
  7777.   $d->get(
  7778. "\%a\t author\n\%t\t title\n\%y\t document's year\n\%Y\t today's year\n\%m\t document's month\n\%M\t today's month\n\%d\t document's day\n\%D\t today's day"
  7779.   )
  7780.  );
  7781.  $hbox->add($fileentry);
  7782.  $fileentry->set_text( $SETTING{'default filename'} )
  7783.    if defined( $SETTING{'default filename'} );
  7784.  
  7785.  # scan command prefix
  7786.  $hbox = Gtk2::HBox->new;
  7787.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7788.  $label = Gtk2::Label->new( $d->get('Scan command prefix') );
  7789.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7790.  my $preentry = Gtk2::Entry->new;
  7791.  $hbox->add($preentry);
  7792.  $preentry->set_text( $SETTING{'scan prefix'} )
  7793.    if defined( $SETTING{'scan prefix'} );
  7794.  
  7795.  # Restore window setting
  7796.  my $cbw = Gtk2::CheckButton->new_with_label(
  7797.   $d->get('Restore window settings on startup') );
  7798.  $cbw->set_active(TRUE) if ( $SETTING{'restore window'} );
  7799.  $vbox->pack_start( $cbw, TRUE, TRUE, 0 );
  7800.  
  7801.  # Cache options?
  7802.  my $cbc = Gtk2::CheckButton->new_with_label(
  7803.   $d->get('Cache device-dependent options') );
  7804.  $cbc->set_active(TRUE) if ( $SETTING{'cache options'} );
  7805.  $vbox->pack_start( $cbc, TRUE, TRUE, 0 );
  7806.  
  7807.  # Clear options cache
  7808.  my $button =
  7809.    Gtk2::Button->new( $d->get('Clear device-dependent options cache') );
  7810.  $vbox->pack_start( $button, TRUE, TRUE, 0 );
  7811.  $button->signal_connect(
  7812.   clicked => sub {
  7813.    delete $SETTING{cache} if ( defined $SETTING{cache} );
  7814.   }
  7815.  );
  7816.  
  7817.  # Temporary directory settings
  7818.  $hbox = Gtk2::HBox->new;
  7819.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7820.  $label = Gtk2::Label->new( $d->get('Temporary directory') );
  7821.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7822.  my $tmpentry = Gtk2::Entry->new;
  7823.  $hbox->add($tmpentry);
  7824.  $tmpentry->set_text( dirname($session) );
  7825.  $button = Gtk2::Button->new( $d->get('Browse') );
  7826.  $button->signal_connect(
  7827.   clicked => sub {
  7828.    my $file_chooser = Gtk2::FileChooserDialog->new(
  7829.     $d->get('Select temporary directory'),
  7830.     $windowr, 'select-folder',
  7831.     'gtk-cancel' => 'cancel',
  7832.     'gtk-ok'     => 'ok'
  7833.    );
  7834.    $file_chooser->set_current_folder( $tmpentry->get_text );
  7835.    if ( 'ok' eq $file_chooser->run ) {
  7836.     $tmpentry->set_text( $file_chooser->get_filename );
  7837.    }
  7838.    $file_chooser->destroy;
  7839.   }
  7840.  );
  7841.  $hbox->pack_end( $button, TRUE, TRUE, 0 );
  7842.  
  7843.  # Blank page standard deviation threshold
  7844.  $hbox = Gtk2::HBox->new;
  7845.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7846.  $label = Gtk2::Label->new( $d->get('Blank threshold') );
  7847.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7848.  my $spinbuttonb = Gtk2::SpinButton->new_with_range( 0, 1, 0.001 );
  7849.  $spinbuttonb->set_value( $SETTING{'Blank threshold'} );
  7850.  $tooltips->set_tip( $spinbuttonb,
  7851.   $d->get('Threshold used for selecting blank pages') );
  7852.  $hbox->add($spinbuttonb);
  7853.  
  7854.  # Dark page mean threshold
  7855.  $hbox = Gtk2::HBox->new;
  7856.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7857.  $label = Gtk2::Label->new( $d->get('Dark threshold') );
  7858.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7859.  my $spinbuttond = Gtk2::SpinButton->new_with_range( 0, 1, 0.01 );
  7860.  $spinbuttond->set_value( $SETTING{'Dark threshold'} );
  7861.  $tooltips->set_tip( $spinbuttond,
  7862.   $d->get('Threshold used for selecting dark pages') );
  7863.  $hbox->add($spinbuttond);
  7864.  
  7865.  # OCR output
  7866.  $hbox = Gtk2::HBox->new;
  7867.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7868.  $label = Gtk2::Label->new( $d->get('OCR output') );
  7869.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  7870.  my @array = (
  7871.   [
  7872.    'replace',
  7873.    $d->get('Replace'),
  7874.    $d->get(
  7875.     'Replace the contents of the text buffer with that from the OCR output.')
  7876.   ],
  7877.   [
  7878.    'prepend', $d->get('Prepend'),
  7879.    $d->get('Prepend the OCR output to the text buffer.')
  7880.   ],
  7881.   [
  7882.    'append', $d->get('Append'),
  7883.    $d->get('Append the OCR output to the text buffer.')
  7884.   ],
  7885.  );
  7886.  my $comboo = combobox_from_array(@array);
  7887.  combobox_set_active( $comboo, $SETTING{'OCR output'}, @array );
  7888.  $hbox->pack_end( $comboo, TRUE, TRUE, 0 );
  7889.  
  7890.  # User-defined tools
  7891.  my $frame = Gtk2::Frame->new( $d->get('User-defined tools') );
  7892.  $vbox->pack_start( $frame, TRUE, TRUE, 0 );
  7893.  my $vboxt = Gtk2::VBox->new;
  7894.  $vboxt->set_border_width($border_width);
  7895.  $frame->add($vboxt);
  7896.  for my $tool (@user_defined_tools) {
  7897.   add_user_defined_tool_entry( $vboxt, $tool );
  7898.  }
  7899.  my $abutton = Gtk2::Button->new_from_stock('gtk-add');
  7900.  $vboxt->pack_start( $abutton, TRUE, TRUE, 0 );
  7901.  $abutton->signal_connect(
  7902.   clicked => sub {
  7903.    my %tool = ( cmd => 'my-tool %i %o' );
  7904.    add_user_defined_tool_menu( \%tool );
  7905.    add_user_defined_tool_entry( $vboxt, \%tool );
  7906.    $vboxt->reorder_child( $abutton, -1 );
  7907.    $SETTING{user_defined_tools} = list_user_defined_tools($vboxt);
  7908.   }
  7909.  );
  7910.  
  7911.  # View saved files
  7912.  my $cbv = Gtk2::CheckButton->new_with_label( $d->get('View files on saving') );
  7913.  $cbv->set_active( $SETTING{'view files toggle'} )
  7914.    if ( defined $SETTING{'view files toggle'} );
  7915.  $vbox->pack_start( $cbv, TRUE, TRUE, 0 );
  7916.  
  7917.  # Apply button
  7918.  $hbox = _hbox_with_apply_cancel_buttons(
  7919.   sub {
  7920.    $windowr->hide;
  7921.    if ( $SETTING{frontend} ne $frontends[ $combob->get_active ][0] ) {
  7922.     $SETTING{frontend} = $frontends[ $combob->get_active ][0];
  7923.     if ( $SETTING{frontend} eq 'libsane-perl' ) {
  7924.      undef $windows if ( defined $windows );
  7925.     }
  7926.     else {
  7927.      undef $windows2 if ( defined $windows2 );
  7928.      rescan_options( $device_list[ $combobd->get_active ]{name} )
  7929.        if ( defined $windows );
  7930.     }
  7931.    }
  7932.    $SETTING{'cycle sane handle'} = $cbcsh->get_active;
  7933.    $SETTING{'default filename'}  = $fileentry->get_text;
  7934.    $SETTING{'scan prefix'}       = $preentry->get_text;
  7935.    $SETTING{'cache options'}     = $cbc->get_active;
  7936.    delete $SETTING{cache}
  7937.      if ( defined $SETTING{cache} and not $SETTING{'cache options'} );
  7938.    $SETTING{'restore window'} = $cbw->get_active;
  7939.  
  7940.    my @tmpdirs = File::Spec->splitdir($session);
  7941.    pop @tmpdirs;    # Remove the top level
  7942.    my $tmp = File::Spec->catdir(@tmpdirs);
  7943.  
  7944.    # Expand tildes in the filename
  7945.    my $newdir = expand_tildes( $tmpentry->get_text );
  7946.  
  7947.    if ( $newdir ne $tmp ) {
  7948.     $SETTING{TMPDIR} = $newdir;
  7949.     show_message_dialog(
  7950.      $window,
  7951.      'warning',
  7952.      'close',
  7953.      $d->get(
  7954. 'You will have to restart gscanp2df for changes to the temporary directory to take effect.'
  7955.      )
  7956.     );
  7957.    }
  7958.    $SETTING{'Blank threshold'} = $spinbuttonb->get_value;
  7959.    $SETTING{'Dark threshold'}  = $spinbuttond->get_value;
  7960.    $SETTING{'OCR output'}      = $array[ $comboo->get_active ][0];
  7961.  
  7962.    # Store viewer preferences
  7963.    $SETTING{'view files toggle'} = $cbv->get_active;
  7964.   },
  7965.   sub {
  7966.    $windowr->hide;
  7967.   }
  7968.  );
  7969.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  7970.  $windowr->show_all;
  7971.  return;
  7972. }
  7973.  
  7974. sub _hbox_with_apply_cancel_buttons {
  7975.  my ( $apply_callback, $cancel_callback ) = @_;
  7976.  
  7977.  my $hbox = Gtk2::HBox->new;
  7978.  
  7979.  # Apply button
  7980.  my $button = Gtk2::Button->new_from_stock('gtk-apply');
  7981.  $hbox->pack_start( $button, TRUE, TRUE, 0 );
  7982.  $button->signal_connect( clicked => $apply_callback );
  7983.  
  7984.  # Cancel button
  7985.  $button = Gtk2::Button->new_from_stock('gtk-cancel');
  7986.  $hbox->pack_end( $button, TRUE, TRUE, 0 );
  7987.  $button->signal_connect( clicked => $cancel_callback );
  7988.  return $hbox;
  7989. }
  7990.  
  7991. # Return list of user-defined tools
  7992. sub list_user_defined_tools {
  7993.  my ($vbox) = @_;
  7994.  my @list;
  7995.  for my $hbox ( $vbox->get_children ) {
  7996.   if ( $hbox->isa('Gtk2::HBox') ) {
  7997.    for my $widget ( $hbox->get_children ) {
  7998.     push @list, $widget->get_text if ( $widget->isa('Gtk2::Entry') );
  7999.    }
  8000.   }
  8001.  }
  8002.  return \@list;
  8003. }
  8004.  
  8005. # Add user-defined tool menu item
  8006. sub add_user_defined_tool_menu {
  8007.  my ($tool) = @_;
  8008.  my $action_group = Gtk2::ActionGroup->new("actions");
  8009.  $tool->{name} = "$action_group";
  8010.  my $tool_ui = <<"EOS";
  8011. <ui>
  8012.  <menubar name='MenuBar'>
  8013.   <menu action='Tools'>
  8014.    <menu action='User-defined'>
  8015.     <menuitem action='$tool->{name}'/>
  8016.    </menu>
  8017.   </menu>
  8018.  </menubar>
  8019. </ui>
  8020. EOS
  8021.  
  8022.  # add the basic XML description of the GUI
  8023.  $tool->{merge_id} = $uimanager->add_ui_from_string($tool_ui);
  8024.  
  8025.  my @action_item = (
  8026.  
  8027.   # Fields for each action item:
  8028.   # [name, stock_id, value, label, accelerator, tooltip, callback]
  8029.   [ $tool->{name}, undef, $tool->{cmd}, undef, undef, \&user_defined_tool ],
  8030.  );
  8031.  $action_group->add_actions( \@action_item, undef );
  8032.  
  8033.  # Add the actiongroup to the uimanager
  8034.  $uimanager->insert_action_group( $action_group, 0 );
  8035.  $tool->{action_group} = $action_group;
  8036.  return;
  8037. }
  8038.  
  8039. # Add user-defined tool entry
  8040. sub add_user_defined_tool_entry {
  8041.  my ( $vbox, $tool ) = @_;
  8042.  my $hbox = Gtk2::HBox->new;
  8043.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  8044.  my $entry = Gtk2::Entry->new;
  8045.  $entry->set_text( $tool->{cmd} );
  8046.  $entry->signal_connect(
  8047.   changed => sub {
  8048.    my $action = $tool->{action_group}->get_action( $tool->{name} );
  8049.    $action->set( 'label', $entry->get_text );
  8050.    $SETTING{user_defined_tools} = list_user_defined_tools($vbox);
  8051.    ()    # this callback must return either 2 or 0 items.
  8052.   }
  8053.  );
  8054.  
  8055.  $tooltips->set_tip(
  8056.   $entry,
  8057.   $d->get(
  8058. "Use \%i and \%o for the input and output filenames respectively, or a single \%i if the image is to be modified in-place.\n\nThe other variable available is:\n\n\%r resolution"
  8059.   )
  8060.  );
  8061.  $hbox->pack_start( $entry, TRUE, TRUE, 0 );
  8062.  my $button = Gtk2::Button->new;
  8063.  $button->set_image( Gtk2::Image->new_from_stock( 'gtk-delete', 'button' ) );
  8064.  $button->signal_connect(
  8065.   clicked => sub {
  8066.    $uimanager->remove_ui( $tool->{merge_id} );
  8067.    $hbox->destroy;
  8068.    $SETTING{user_defined_tools} = list_user_defined_tools($vbox);
  8069.   }
  8070.  );
  8071.  $hbox->pack_end( $button, FALSE, FALSE, 0 );
  8072.  $hbox->show_all;
  8073.  return;
  8074. }
  8075.  
  8076. sub properties {
  8077.  
  8078.  if ( defined $windowp ) {
  8079.   $windowp->present;
  8080.   return;
  8081.  }
  8082.  
  8083.  $windowp = Gscan2pdf::Dialog->new(
  8084.   'transient-for'  => $window,
  8085.   title            => $d->get('Properties'),
  8086.   'hide-on-delete' => TRUE,
  8087.   border_width     => $border_width
  8088.  );
  8089.  my $vbox = $windowp->get('vbox');
  8090.  
  8091.  my $hbox = Gtk2::HBox->new;
  8092.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  8093.  my $label = Gtk2::Label->new( $d->get('Resolution') );
  8094.  $hbox->pack_start( $label, FALSE, FALSE, 0 );
  8095.  my $entry = Gtk2::Entry->new;
  8096.  $entry->set_width_chars(4);
  8097.  $entry->set_activates_default(TRUE);
  8098.  $entry->signal_connect(
  8099.   'insert-text' => sub {
  8100.    my ( $widget, $string, $len, $position ) = @_;
  8101.  
  8102.    # only allow a valid positive real number
  8103.    for ( split '', $string ) {
  8104.     if (( $_ ne '.' and ( $_ lt '0' or $_ gt '9' ) )
  8105.      or ( $_ eq '.' and $entry->get_text =~ /\./ ) )
  8106.     {
  8107.      $entry->signal_stop_emission_by_name('insert-text');
  8108.      last;
  8109.     }
  8110.    }
  8111.    ()    # this callback must return either 2 or 0 items.
  8112.   }
  8113.  );
  8114.  
  8115.  $entry->set_text( get_selected_properties() );
  8116.  $slist->get_selection->signal_connect(
  8117.   changed => sub {
  8118.    $entry->set_text( get_selected_properties() );
  8119.   }
  8120.  );
  8121.  $hbox->pack_end( $entry, TRUE, TRUE, 0 );
  8122.  
  8123.  $hbox = Gtk2::HBox->new;
  8124.  $vbox->pack_start( $hbox, TRUE, TRUE, 0 );
  8125.  
  8126.  # Apply button
  8127.  my $button = Gtk2::Button->new_from_stock('gtk-apply');
  8128.  $button->can_default(TRUE);
  8129.  $windowp->set_default($button);
  8130.  $hbox->pack_start( $button, TRUE, TRUE, 0 );
  8131.  $button->signal_connect(
  8132.   clicked => sub {
  8133.    $windowp->hide;
  8134.    my $resolution = $entry->get_text;
  8135.    $slist->get_model->signal_handler_block( $slist->{row_changed_signal} );
  8136.    for ( $slist->get_selected_indices ) {
  8137.     $slist->{data}[$_][2]{resolution} = $resolution;
  8138.    }
  8139.    $slist->get_model->signal_handler_unblock( $slist->{row_changed_signal} );
  8140.   }
  8141.  );
  8142.  
  8143.  # Cancel button
  8144.  $button = Gtk2::Button->new_from_stock('gtk-cancel');
  8145.  $hbox->pack_end( $button, TRUE, TRUE, 0 );
  8146.  $button->signal_connect(
  8147.   clicked => sub {
  8148.    $windowp->hide;
  8149.   }
  8150.  );
  8151.  $windowp->show_all;
  8152.  return;
  8153. }
  8154.  
  8155. # Helper function for properties()
  8156. sub get_selected_properties {
  8157.  my @page       = $slist->get_selected_indices;
  8158.  my $resolution = '';
  8159.  $resolution = $slist->{data}[ shift @page ][2]{resolution} if ( @page > 0 );
  8160.  for (@page) {
  8161.   if ( $slist->{data}[$_][2]{resolution} != $resolution ) {
  8162.    $resolution = '';
  8163.    last;
  8164.   }
  8165.  }
  8166.  
  8167.  # round the value to a sensible number of significant figures
  8168.  return $resolution eq '' ? '' : sprintf( "%g", $resolution );
  8169. }
  8170.  
  8171. # Helper function to display a message dialog, wait for a response, and return it
  8172.  
  8173. sub show_message_dialog {
  8174.  my ( $parent, $type, $buttons, $text ) = @_;
  8175.  my $dialog =
  8176.    Gtk2::MessageDialog->new( $parent, 'destroy-with-parent', $type, $buttons,
  8177.   $text );
  8178.  my $response = $dialog->run;
  8179.  $dialog->destroy;
  8180.  return $response;
  8181. }
  8182.  
  8183. Gtk2->main;
  8184.  
  8185. __END__
  8186.  
  8187. =encoding utf8
  8188.  
  8189. =head1 Name
  8190.  
  8191. gscan2pdf - A GUI to produce PDFs or DjVus from scanned documents
  8192.  
  8193. =for html <p align="center">
  8194.  <img src="http://sourceforge.net/dbimage.php?id=249848" border="1" width="632"
  8195.  height="480" alt="Screenshot" /><br/>Screenshot: Main page v0.9.30</p>
  8196.  
  8197. =head1 Synopsis
  8198.  
  8199. =over
  8200.  
  8201. =item 1. Scan one or several pages in with File/Scan
  8202.  
  8203. =item 2. Create PDF of selected pages with File/Save
  8204.  
  8205. =back
  8206.  
  8207. =head1 Description
  8208.  
  8209. gscan2pdf has the following command-line options:
  8210.  
  8211. =over
  8212.  
  8213. =item --device=<device>
  8214. Specifies the device to use, instead of getting the list of devices from via the SANE API.
  8215. This can be useful if the scanner is on a remote computer which is not broadcasting its existence.
  8216.  
  8217. =item --help
  8218. Displays this help page and exits.
  8219.  
  8220. =item --log=<log file>
  8221. Specifies a file to store logging messages.
  8222.  
  8223. =item --(debug|info|warn|error|fatal)
  8224. Defines the log level. If a log file is specified, this defaults to 'debug', otherwise 'warn'.
  8225.  
  8226. =item --version
  8227. Displays the program version and exits.
  8228.  
  8229. =back
  8230.  
  8231. Scanning is handled with SANE via scanimage.
  8232. PDF conversion is done by PDF::API2.
  8233. TIFF export is handled by libtiff (faster and smaller memory footprint for
  8234. multipage files).
  8235.  
  8236. =head1 Download
  8237.  
  8238. gscan2pdf is available on Sourceforge
  8239. (L<http://sourceforge.net/projects/gscan2pdf/files/gscan2pdf/>).
  8240.  
  8241. =head2 Debian-based
  8242.  
  8243. If you are using Debian, you should find that sid has the latest version already
  8244. packaged.
  8245.  
  8246. If you are using a Ubuntu-based system, just add the following line to your
  8247. "F</etc/apt/sources.list>" file:
  8248.  
  8249. C<deb http://ppa.launchpad.net/jeffreyratcliffe/ubuntu E<lt>releaseE<gt> main>
  8250.  
  8251. C<deb-src http://ppa.launchpad.net/jeffreyratcliffe/ubuntu E<lt>releaseE<gt> main>
  8252.  
  8253. where C<E<lt>releaseE<gt>> is the version of Ubuntu you are using.
  8254.  
  8255. If you are you are using Synaptic, then use menu
  8256. I<Edit/Reload Package Information>, search for gscan2pdf in the package list,
  8257. and lo and behold, you can install the nice shiny new version automatically.
  8258.  
  8259. From the command line:
  8260.  
  8261. C<apt-get update>
  8262.  
  8263. C<apt-get install gscan2pdf>
  8264.  
  8265. If you add the key for my ppa to your list of trusted keys, then you will no longer get
  8266. the "not authenticated" warnings. Fetch the key:
  8267.  
  8268. C<gpg --keyserver keyserver.ubuntu.com --recv-keys 5BC3E400>
  8269.  
  8270. Then add it to the apt keyring:
  8271.  
  8272. C<gpg --export --armor 5BC3E400 | sudo apt-key add ->
  8273.  
  8274. =head2 RPMs
  8275.  
  8276. Download the rpm from Sourceforge, and then install it with
  8277. C<rpm -i gscan2pdf-version.rpm>
  8278.  
  8279. =head2 From source
  8280.  
  8281. The source is hosted in the files section of the gscan2pdf project on
  8282. Sourceforge (L<http://sourceforge.net/projects/gscan2pdf/files/>).
  8283.  
  8284. =head2 From the repository
  8285.  
  8286. gscan2pdf uses Git for its Revision Control System. You can browse the
  8287. tree at L<http://sourceforge.net/p/gscan2pdf/code/>.
  8288.  
  8289. Git users can clone the complete tree with
  8290. C<git clone git://git.code.sf.net/p/gscan2pdf/code>
  8291.  
  8292. =head1 Building gscan2pdf from source
  8293.  
  8294. Having downloaded the source either from a Sourceforge file release, or from the
  8295. Git repository, unpack it if necessary with
  8296. C<tar xvfz gscan2pdf-x.x.x.tar.gz
  8297. cd gscan2pdf-x.x.x>
  8298.  
  8299. C<perl Makefile.PL>, will create the Makefile.
  8300. There is a C<make test>, but this is not machine-dependent, and therefore really
  8301. just for my benefit to make sure I haven't broken the device-dependent options
  8302. parsing routine.
  8303.  
  8304. You can install directly from the source with C<make install>, but building the
  8305. appropriate package for your distribution should be as straightforward as
  8306. C<make debdist> or C<make rpmdist>. However, you will
  8307. additionally need the rpm, devscripts, fakeroot, debhelper and gettext packages.
  8308.  
  8309. =head1 Dependencies
  8310.  
  8311. The list below looks daunting, but all packages are available from any
  8312. reasonable up-to-date distribution. If you are using Synaptic, having installed
  8313. gscan2pdf, locate the gscan2pdf entry in Synaptic, right-click it and you can
  8314. install them under I<Recommends>. Note also that the library names given below
  8315. are the Debian/Ubuntu ones. Those distributions using RPM typically use
  8316. perl(module) where Debian has libmodule-perl.
  8317.  
  8318. =over
  8319.  
  8320. =item Required
  8321.  
  8322. =over
  8323.  
  8324. =item libgtk2.0-0 (>= 2.4)
  8325.  
  8326. The GTK+ graphical user interface library.
  8327.  
  8328. =item libglib-perl (>= 1.100-1)
  8329.  
  8330. Perl interface to the GLib and GObject libraries
  8331.  
  8332. =item libgtk2-perl (>= 1:1.043-1)
  8333.  
  8334. Perl interface to the 2.x series of the Gimp Toolkit library
  8335.  
  8336. =item libgtk2-imageview-perl
  8337.  
  8338. Perl bindings to the gtkimageview widget.
  8339. See L<http://trac.bjourne.webfactional.com/>
  8340.  
  8341. =item libgtk2-ex-simple-list-perl
  8342.  
  8343. A simple interface to Gtk2's complex MVC list widget
  8344.  
  8345. =item liblocale-gettext-perl (>= 1.05)
  8346.  
  8347. Using libc functions for internationalization in Perl
  8348.  
  8349. =item libpdf-api2-perl
  8350.  
  8351. provides the functions for creating PDF documents in Perl
  8352.  
  8353. =item libsane
  8354.  
  8355. API library for scanners
  8356.  
  8357. =item libsane-perl
  8358.  
  8359. Perl bindings for libsane.
  8360.  
  8361. =item libset-intspan-perl
  8362.  
  8363. manages sets of integers
  8364.  
  8365. =item libtiff-tools
  8366.  
  8367. TIFF manipulation and conversion tools
  8368.  
  8369. =item Imagemagick
  8370.  
  8371. Image manipulation programs
  8372.  
  8373. =item perlmagick
  8374.  
  8375. A perl interface to the libMagick graphics routines
  8376.  
  8377. =item sane-utils
  8378.  
  8379. API library for scanners -- utilities.
  8380.  
  8381. =back
  8382.  
  8383. =item Optional
  8384.  
  8385. =over
  8386.  
  8387. =item sane
  8388.  
  8389. scanner graphical frontends. Only required for the scanadf frontend.
  8390.  
  8391. =item libgtk2-ex-podviewer-perl
  8392.  
  8393. Perl Gtk2 widget for displaying Plain Old Documentation (POD). Not required if
  8394. you don't need the gscan2pdf documentation (which is anyway repeated on the
  8395. website).
  8396.  
  8397. =item unpaper
  8398.  
  8399. post-processing tool for scanned pages. See L<http://unpaper.berlios.de/>.
  8400.  
  8401. =item xdg-utils
  8402.  
  8403. Desktop integration utilities from freedesktop.org. Required for Email as PDF.
  8404. See L<http://portland.freedesktop.org/wiki/>
  8405.  
  8406. =item djvulibre-bin
  8407.  
  8408. Utilities for the DjVu image format. See L<http://djvu.sourceforge.net/>
  8409.  
  8410. =item gocr
  8411.  
  8412. A command line OCR. See L<http://jocr.sourceforge.net/>.
  8413.  
  8414. =item tesseract
  8415.  
  8416. A command line OCR. See L<http://code.google.com/p/tesseract-ocr/>
  8417.  
  8418. =item ocropus
  8419.  
  8420. A command line OCR. See L<http://code.google.com/p/ocropus/>
  8421.  
  8422. =item cuneiform
  8423.  
  8424. A command line OCR. See L<http://launchpad.net/cuneiform-linux>
  8425.  
  8426. =back
  8427.  
  8428. =back
  8429.  
  8430. =head1 Support
  8431.  
  8432. There are two mailing lists for gscan2pdf:
  8433.  
  8434. =over
  8435.  
  8436. =item gscan2pdf-announce
  8437.  
  8438. A low-traffic list for announcements, mostly of new releases. You can subscribe
  8439. at L<http://lists.sourceforge.net/lists/listinfo/gscan2pdf-announce>
  8440.  
  8441. =item gscan2pdf-help
  8442.  
  8443. General support, questions, etc.. You can subscribe at
  8444. L<http://lists.sourceforge.net/lists/listinfo/gscan2pdf-help>
  8445.  
  8446. =back
  8447.  
  8448. =head1 Reporting bugs
  8449.  
  8450. Before reporting bugs, please read the L<"FAQs"> section.
  8451.  
  8452. Please report any bugs found, preferably against the Debian package[1][2].
  8453. You do not need to be a Debian user, or set up an account to do this.
  8454.  
  8455. =over
  8456.  
  8457. =item 1. http://packages.debian.org/sid/gscan2pdf
  8458.  
  8459. =item 2. http://www.debian.org/Bugs/
  8460.  
  8461. =back
  8462.  
  8463. Alternatively, there is a bug tracker for the gscan2pdf project on
  8464. Sourceforge (L<http://sourceforge.net/p/gscan2pdf/_list/tickets?source=navbar>).
  8465.  
  8466. Please include the log file created by C<gscan2pdf --log=log> with any new bug report.
  8467.  
  8468. =head1 Translations
  8469.  
  8470. gscan2pdf has already been partly translated several languages.
  8471. If you would like to contribute to an existing or new translation, please check
  8472. out Rosetta: L<https://translations.launchpad.net/gscan2pdf>
  8473.  
  8474. Note that the translations for the scanner options are taken
  8475. directly from sane-backends. If you would like to contribute to these, you can
  8476. do so either at contact the sane-devel mailing list
  8477. ([email protected]) and have a look at the po/ directory in
  8478. the source code L<http://www.sane-project.org/cvs.html>.
  8479.  
  8480. Alternatively, Ubuntu has its own translation project. For the 9.04 release, the
  8481. translations are available at
  8482. L<https://translations.launchpad.net/ubuntu/jaunty/+source/sane-backends/+pots/sane-backends>
  8483.  
  8484. =head1 Menus
  8485.  
  8486. =head2 File
  8487.  
  8488. =head3 New
  8489.  
  8490. Clears the page list.
  8491.  
  8492. =head3 Open
  8493.  
  8494. Opens any format that imagemagick supports. PDFs will have their embedded
  8495. images extracted and imported one per page.
  8496.  
  8497. =head3 Scan
  8498.  
  8499. Sets options before scanning via SANE.
  8500.  
  8501. =head4 Device
  8502.  
  8503. Chooses between available scanners.
  8504.  
  8505. =head4 # Pages
  8506.  
  8507. Selects the number of pages, or all pages to scan.
  8508.  
  8509. =head4 Source document
  8510.  
  8511. Selects between single sided or double sides pages.
  8512.  
  8513. This affects the page numbering.
  8514. Single sided scans are numbered consecutively.
  8515. Double sided scans are incremented (or decremented, see below) by 2, i.e. 1, 3,
  8516. 5, etc..
  8517.  
  8518. =head4 Side to scan
  8519.  
  8520. If double sided is selected above, assuming a non-duplex scanner, i.e. a
  8521. scanner that cannot automatically scan both sides of a page, this determines
  8522. whether the page number is incremented or decremented by 2.
  8523.  
  8524. To scan both sides of three pages, i.e. 6 sides:
  8525.  
  8526. =over
  8527.  
  8528. =item 1. Select:
  8529.  
  8530. # Pages = 3 (or "all" if your scanner can detect when it is out of paper)
  8531.  
  8532. Double sided
  8533.  
  8534. Facing side
  8535.  
  8536. =item 2. Scans sides 1, 3 & 5.
  8537.  
  8538. =item 3. Put pile back with scanner ready to scan back of last page.
  8539.  
  8540. =item 4. Select:
  8541.  
  8542. # Pages = 3 (or "all" if your scanner can detect when it is out of paper)
  8543.  
  8544. Double sided
  8545.  
  8546. Reverse side
  8547.  
  8548. =item 5. Scans sides 6, 4 & 2.
  8549.  
  8550. =item 6. gscan2pdf automatically sorts the pages so that they appear in the
  8551. correct order.
  8552.  
  8553. =back
  8554.  
  8555. =head4 Device-dependent options
  8556.  
  8557. These, naturally, depend on your scanner.
  8558. They can include
  8559.  
  8560. =over
  8561.  
  8562. =item Page size.
  8563.  
  8564. =item Mode (colour/black & white/greyscale)
  8565.  
  8566. =item Resolution (in PPI)
  8567.  
  8568. =item Batch-scan
  8569.  
  8570. Guarantees that a "no documents" condition will be returned after the last
  8571. scanned page, to prevent endless flatbed scans after a batch scan.
  8572.  
  8573. =item Wait-for-button/Button-wait
  8574.  
  8575. After sending the scan command, wait until the button on the scanner is pressed
  8576. before actually starting the scan process.
  8577.  
  8578. =item Source
  8579.  
  8580. Selects the document source.
  8581. Possible options can include Flatbed or ADF.
  8582. On some scanners, this is the only way of generating an out-of-documents signal.
  8583.  
  8584. =back
  8585.  
  8586. =head3 Save
  8587.  
  8588. Saves the selected or all pages as a PDF, DjVu, TIFF, PNG, JPEG, PNM or
  8589. GIF.
  8590.  
  8591. =head4 PDF Metadata
  8592.  
  8593. Metadata are information that are not visible when viewing the PDF, but are
  8594. embedded in the file and so searchable and can be examined, typically with the
  8595. "Properties" option of the PDF viewer.
  8596.  
  8597. The metadata are completely optional, but can also be used to generate the
  8598. filename see preferences for details.
  8599.  
  8600. =head4 DjVu
  8601.  
  8602. Both black and white, and colour images produce better
  8603. compression than PDF. See L<http://www.djvuzone.org/> for more details.
  8604.  
  8605. =head3 Email as PDF
  8606.  
  8607. Attaches the selected or all pages as a PDF to a blank email.
  8608. This requires xdg-email, which is in the xdg-utils package.
  8609. If this is not present, the option is ghosted out.
  8610.  
  8611. =head3 Print
  8612.  
  8613. Prints the selected or all pages.
  8614.  
  8615. =head3 Compress temporary files
  8616.  
  8617. If your temporary ($TMPDIR) directory is getting full, this function can be useful -
  8618. compressing all images at LZW-compressed TIFFs. These require much less space than
  8619. the PNM files that are typically produced by SANE or by importing a PDF.
  8620.  
  8621. =head2 Edit
  8622.  
  8623. =head3 Delete
  8624.  
  8625. Deletes the selected page.
  8626.  
  8627. =head3 Renumber
  8628.  
  8629. Renumbers the pages from 1..n.
  8630.  
  8631. Note that the page order can also be changed by drag and drop in the thumbnail
  8632. view.
  8633.  
  8634. =head3 Select
  8635.  
  8636. The select menus can be used to select, all, even, odd, blank, dark or modified
  8637. pages. Selecting blank or dark pages runs imagemagick to make the decision.
  8638. Selecting modified pages selects those which have modified by threshold,
  8639. unsharp, etc., since the last OCR run was made.
  8640.  
  8641. =head3 Preferences
  8642.  
  8643. The preferences menu item allows the control of the default behviour of various
  8644. functions. Most of these are self-explanatory.
  8645.  
  8646. =head4 Frontend
  8647.  
  8648. gscan2pdf supports two frontends, scanimage and scanadf.
  8649. scanadf support was added when it was realised that scanadf works better than
  8650. scanimage with some scanners. On Debian-based systems, scanadf is in the sane package,
  8651. not, like scanimage, in sane-utils. If scanadf is not present, the option is
  8652. obviously ghosted out.
  8653.  
  8654. In 0.9.27, Perl bindings for SANE were introduced and two further frontends,
  8655. scanimage-perl and scanadf-perl (scanimage and scanadf transliterated from C into
  8656. Perl) were added.
  8657.  
  8658. =head4 Default filename for PDF files
  8659.  
  8660. The following variables are available, which are replaced by the corresponding
  8661. metadata:
  8662.  
  8663.  %a author
  8664.  %t title
  8665.  %y document's year
  8666.  %Y today's year
  8667.  %m document's month
  8668.  %M today's month
  8669.  %d document's day
  8670.  %D today's day
  8671.  
  8672. =head2 View
  8673.  
  8674. =head3 Zoom 100%
  8675.  
  8676. Zooms to 1:1. How this appears depends on the desktop resolution.
  8677.  
  8678. =head3 Zoom to fit
  8679.  
  8680. Scales the view such that all the page is visible.
  8681.  
  8682. =head3 Zoom in
  8683.  
  8684. =head3 Zoom out
  8685.  
  8686. =head3 Rotate 90 clockwise
  8687.  
  8688. The rotate options require the package imagemagick and, if this is not present,
  8689. are ghosted out.
  8690.  
  8691. =head3 Rotate 180
  8692.  
  8693. =head3 Rotate 90 anticlockwise
  8694.  
  8695. =head2 Tools
  8696.  
  8697. =head3 Threshold
  8698.  
  8699. Changes all pixels darker than the given value to black; all others become
  8700. white.
  8701.  
  8702. =head3 Unsharp mask
  8703.  
  8704. The unsharp option sharpens an image. The image is convolved with a Gaussian
  8705. operator of the given radius and standard deviation (sigma). For reasonable
  8706. results, radius should be larger than sigma. Use a radius of 0 to have the
  8707. method select a suitable radius.
  8708.  
  8709. =head3 Crop
  8710.  
  8711. =head3 unpaper
  8712.  
  8713. unpaper (see L<http://unpaper.berlios.de/>) is a utility for cleaning up a scan.
  8714.  
  8715. =head3 OCR (Optical Character Recognition)
  8716.  
  8717. The gocr, tesseract, ocropus or cuneiform utilities are used to produce text from
  8718. an image.
  8719.  
  8720. There is an OCR output buffer for each page and is embedded as
  8721. plain text behind the scanned image in the PDF
  8722. produced. This way, Beagle can index (i.e. search) the plain text.
  8723.  
  8724. In DjVu files, the OCR output buffer is embedded in the hidden text layer.
  8725. Thus these can also be indexed by Beagle.
  8726.  
  8727. There is an interesting review of OCR software at
  8728. L<http://web.archive.org/web/20080529012847/http://groundstate.ca/ocr>.
  8729. An important conclusion was that 400ppi is necessary for decent results.
  8730.  
  8731. Up to v2.04, the only way to tell which languages were available to tesseract
  8732. was to look for the language files. Therefore, gscan2pdf checks the path
  8733. returned by:
  8734.  
  8735. tesseract '' '' -l ''
  8736.  
  8737. If there are no language files in the above location, then gscan2pdf
  8738. assumes that tesseract v1.0 is installed, which had no language files.
  8739.  
  8740. =head3 Variables for user-defined tools
  8741.  
  8742. The following variables are available:
  8743.  
  8744.  %i input filename
  8745.  %o output filename
  8746.  %r resolution
  8747.  
  8748. An image can be modified in-place by just specifying %i.
  8749.  
  8750.  
  8751. =head1 FAQs
  8752.  
  8753. =head2 Why isn't option xyz available in the scan window?
  8754.  
  8755. Possibly because SANE or your scanner doesn't support it.
  8756.  
  8757. If an option listed in the output of C<scanimage --help> that you would like to
  8758. use isn't available, send me the output and I will look at implementing it.
  8759.  
  8760. =head2 I've only got an old flatbed scanner with no automatic sheetfeeder.
  8761. How do I scan a multipage document?
  8762.  
  8763. If you are lucky, you have an option like Wait-for-button or Button-wait, where
  8764. the scanner will wait for you to press the scan button on the device before it
  8765. starts the scan, allowing you to scan multiple pages without touching the
  8766. computer.
  8767.  
  8768. Otherwise, you have to set the number of pages to scan to 1 and hit the scan
  8769. button on the scan window for each page.
  8770.  
  8771. =head2 Why is option xyz ghosted out?
  8772.  
  8773. Probably because the package required for that option is not installed.
  8774. Email as PDF requires xdg-email (xdg-utils), unpaper and the rotate options
  8775. require imagemagick.
  8776.  
  8777. =head2 Why can I not scan from the flatbed of my HP scanner?
  8778.  
  8779. Generally for HP scanners with an ADF, to scan from the flatbed, you should
  8780. set "# Pages" to "1", and possibly "Batch scan" to "No".
  8781.  
  8782. =head2 When I update gscan2pdf using the Update Manager in Ubuntu, why is the list of changes never displayed?
  8783.  
  8784. As far as I can tell, this is pulled from changelogs.ubuntu.com, and therefore
  8785. only the changelogs from official Ubuntu builds are displayed.
  8786.  
  8787. =head2 Why can gscan2pdf not find my scanner?
  8788.  
  8789. If your scanner is not connected directly to the machine on which you are
  8790. running gscan2pdf and you have not installed the SANE daemon, saned,
  8791. gscan2pdf cannot automatically find it. In this case, you can specify the
  8792. scanner device on the command line:
  8793.  
  8794. C<gscan2pdf --device <device>>
  8795.  
  8796. =head1 See Also
  8797.  
  8798. Xsane
  8799. http://scantailor.sourceforge.net/
  8800.  
  8801. =head1 Author
  8802.  
  8803. Jeffrey Ratcliffe (ra28145 at users dot sf dot net)
  8804.  
  8805. =head1 Thanks to
  8806.  
  8807. =over
  8808.  
  8809. =item *
  8810. all the people who have sent patches, translations, bugs and feedback.
  8811.  
  8812. =item *
  8813. the GTK2 project for a most excellent graphics toolkit.
  8814.  
  8815. =item *
  8816. the Gtk2-Perl project for their superb Perl bindings for GTK2.
  8817.  
  8818. =item *
  8819. The SANE project for scanner access
  8820.  
  8821. =item *
  8822. Björn Lindqvist for the gtkimageview widget
  8823.  
  8824. =item *
  8825. Sourceforge for hosting the project.
  8826.  
  8827. =back
  8828.  
  8829. =for html <hr />
  8830. <a href="http://sourceforge.net/projects/gscan2pdf">
  8831. <img src="http://sflogo.sourceforge.net/sflogo.php?group_id=174140&amp;type=14" width="150" height="40" alt="Get gscan2pdf at SourceForge.net. Fast, secure and Free Open Source software downloads" /></a>
  8832. <a href="http://sourceforge.net/p/gscan2pdf/donate/">
  8833. <img src="http://sourceforge.net/images/project-support.jpg" width="88" height="32" border="0" alt="Support This Project"></a>
  8834.  
  8835. =cut
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!