1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
package Gscan2pdf::Dialog;
use warnings;
use strict;
use Gtk3;
use Glib 1.220 qw(TRUE FALSE); # To get TRUE and FALSE
use Gscan2pdf::PageRange;
use Gscan2pdf::Translation '__'; # easier to extract strings with xgettext
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;
use Glib::Object::Subclass Gtk3::Dialog::,
signals => {
delete_event => \&on_delete_event,
key_press_event => \&on_key_press_event,
},
properties => [
Glib::ParamSpec->boolean(
'hide-on-delete', # name
'Hide on delete', # nickname
'Whether to destroy or hide the dialog when it is dismissed', # blurb
FALSE, # default
[qw/readable writable/] # flags
),
Glib::ParamSpec->enum(
'page-range', # name
'page-range', # nickname
'Either selected or all', # blurb
'Gscan2pdf::PageRange::Range',
'selected', # default
[qw/readable writable/] # flags
),
];
our $VERSION = '2.13.5';
my $EMPTY = q{};
sub INIT_INSTANCE {
my $self = shift;
$self->set_position('center-on-parent');
return $self;
}
sub on_delete_event {
my ( $widget, $event ) = @_;
if ( $widget->get('hide-on-delete') ) {
$widget->hide;
return Gtk3::EVENT_STOP; # ensures that the window is not destroyed
}
$widget->destroy;
return Gtk3::EVENT_PROPAGATE;
}
sub on_key_press_event {
my ( $widget, $event ) = @_;
if ( $event->keyval != Gtk3::Gdk::KEY_Escape ) {
$widget->signal_chain_from_overridden($event);
return Gtk3::EVENT_PROPAGATE;
}
if ( $widget->get('hide-on-delete') ) {
$widget->hide;
}
else {
$widget->destroy;
}
return Gtk3::EVENT_STOP;
}
# Add a frame and radio buttons to $vbox,
sub add_page_range {
my ($self) = @_;
my $frame = Gtk3::Frame->new( __('Page Range') );
$self->get_content_area->pack_start( $frame, FALSE, FALSE, 0 );
my $pr = Gscan2pdf::PageRange->new;
$pr->set_active( $self->get('page-range') );
$pr->signal_connect(
changed => sub {
$self->set( 'page-range', $pr->get_active );
}
);
$frame->add($pr);
return;
}
# Add buttons and link up their actions
sub add_actions {
my ( $self, @button_list ) = @_;
my @responses = qw(ok cancel);
my ( @buttons, %callbacks );
my $i = 0;
while ( $i < @button_list - 1 ) {
my $text = shift @button_list;
my $callback = shift @button_list;
my $response = shift @responses;
if ( not defined $response ) { last }
$callbacks{$response} = $callback;
push @buttons, $self->add_button( $text => $response );
}
$self->set_default_response('ok');
$self->signal_connect(
response => sub {
my ( $widget, $response ) = @_;
if ( defined $response and defined $callbacks{$response} ) {
$callbacks{$response}->();
}
}
);
return @buttons;
}
sub dump_or_stringify {
my ($val) = @_;
return (
defined $val
? ( ref($val) eq $EMPTY ? $val : Dumper($val) )
: 'undef'
);
}
1;
__END__
|
