line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Audio::GtkGramofile::GUI; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
5630
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
37
|
|
4
|
1
|
|
|
1
|
|
5
|
use warnings; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
28
|
|
5
|
|
|
|
|
|
|
|
6
|
1
|
|
|
1
|
|
485
|
use Gtk2; |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
use Audio::GtkGramofile::Settings; |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
use vars qw($VERSION); |
10
|
|
|
|
|
|
|
$VERSION = do { my @r = (q$Revision: 1.6 $ =~ /\d+/g); shift @r; sprintf("0.%04d",@r) }; # must be all one line, for MakeMaker |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
use constant ROW_HEIGHT => 4; |
13
|
|
|
|
|
|
|
use constant APP_WIDTH => 690; |
14
|
|
|
|
|
|
|
use constant APP_HEIGHT => 800; |
15
|
|
|
|
|
|
|
use constant SCREEN_OFF => 50; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
sub new { |
18
|
|
|
|
|
|
|
my $proto = shift; |
19
|
|
|
|
|
|
|
my $class = ref($proto) || $proto; |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
my $self = {}; |
22
|
|
|
|
|
|
|
bless $self, $class; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
$self->{finished} = \&on_setting_finished; |
25
|
|
|
|
|
|
|
$self->{changed} = \&on_setting_changed; |
26
|
|
|
|
|
|
|
return $self; |
27
|
|
|
|
|
|
|
} |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
sub set_gtkgramofile { |
30
|
|
|
|
|
|
|
my $self = shift; |
31
|
|
|
|
|
|
|
my $gtkgramofile = shift; |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
$self->{gtkgramofile} = $gtkgramofile; |
34
|
|
|
|
|
|
|
} |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
sub create_stock_buttons { |
37
|
|
|
|
|
|
|
my $self = shift; |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
my $factory = Gtk2::IconFactory->new; |
40
|
|
|
|
|
|
|
$factory->add_default; |
41
|
|
|
|
|
|
|
my $style = Gtk2::Style->new; |
42
|
|
|
|
|
|
|
my @items = ( |
43
|
|
|
|
|
|
|
{ stock_id => "ar_mixer", label => "Mixer", icon => 'gtk-execute' }, |
44
|
|
|
|
|
|
|
{ stock_id => "ar_play", label => "Play", icon => 'gtk-cdrom' }, |
45
|
|
|
|
|
|
|
{ stock_id => "ar_record", label => "Record", icon => 'gtk-ok' }, |
46
|
|
|
|
|
|
|
{ stock_id => "ar_save", label => "Save Settings", icon => 'gtk-save' }, |
47
|
|
|
|
|
|
|
{ stock_id => "ar_cancel", label => "Close Window", icon => 'gtk-cancel' }, |
48
|
|
|
|
|
|
|
{ stock_id => "ar_find", label => "Browse", icon => 'gtk-find' }, |
49
|
|
|
|
|
|
|
{ stock_id => "ar_quit", label => "Quit", icon => 'gtk-quit' }, |
50
|
|
|
|
|
|
|
{ stock_id => "ar_start", label => "Start", icon => 'gtk-convert' }, |
51
|
|
|
|
|
|
|
{ stock_id => "ar_properties", label => "Set", icon => 'gtk-properties' }, |
52
|
|
|
|
|
|
|
{ stock_id => "ar_stop", label => "Stop", icon => 'gtk-stop' } |
53
|
|
|
|
|
|
|
); |
54
|
|
|
|
|
|
|
Gtk2::Stock->add(@items); |
55
|
|
|
|
|
|
|
foreach (@items) { |
56
|
|
|
|
|
|
|
$factory->add($_->{'stock_id'}, $style->lookup_icon_set($_->{'icon'})); |
57
|
|
|
|
|
|
|
} |
58
|
|
|
|
|
|
|
} |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
sub check_button { |
61
|
|
|
|
|
|
|
my $self = shift; |
62
|
|
|
|
|
|
|
my $table = shift; |
63
|
|
|
|
|
|
|
my $button_text = shift; |
64
|
|
|
|
|
|
|
my $checkxstart = shift; |
65
|
|
|
|
|
|
|
my $checkxend = shift; |
66
|
|
|
|
|
|
|
my $ystart = shift; |
67
|
|
|
|
|
|
|
my $yend = shift; |
68
|
|
|
|
|
|
|
|
69
|
|
|
|
|
|
|
my $check = Gtk2::CheckButton->new($button_text); |
70
|
|
|
|
|
|
|
$check->show; |
71
|
|
|
|
|
|
|
$self->{$table}->attach($check, $checkxstart, $checkxend, $ystart, $yend, ['fill'], [], 2, 2); |
72
|
|
|
|
|
|
|
$check; |
73
|
|
|
|
|
|
|
} |
74
|
|
|
|
|
|
|
|
75
|
|
|
|
|
|
|
sub label_and_entry { |
76
|
|
|
|
|
|
|
my $self = shift; |
77
|
|
|
|
|
|
|
my $table = shift; |
78
|
|
|
|
|
|
|
my $label_text = shift; |
79
|
|
|
|
|
|
|
my $labelxstart = shift; |
80
|
|
|
|
|
|
|
my $labelxend = shift; |
81
|
|
|
|
|
|
|
my $entryxstart = shift; |
82
|
|
|
|
|
|
|
my $entryxend = shift; |
83
|
|
|
|
|
|
|
my $ystart = shift; |
84
|
|
|
|
|
|
|
my $yend = shift; |
85
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
my $label = Gtk2::Label->new($label_text); |
87
|
|
|
|
|
|
|
$label->set_alignment(0,0.5); |
88
|
|
|
|
|
|
|
$self->{$table}->attach($label, $labelxstart, $labelxend, $ystart, $yend, ['fill'], [], 2, 2); |
89
|
|
|
|
|
|
|
$label->show; |
90
|
|
|
|
|
|
|
|
91
|
|
|
|
|
|
|
my $entry = Gtk2::Entry->new; |
92
|
|
|
|
|
|
|
$entry->show; |
93
|
|
|
|
|
|
|
$entry->set_size_request(10, -1); |
94
|
|
|
|
|
|
|
$self->{$table}->attach($entry, $entryxstart, $entryxend, $ystart, $yend, ['fill'], [], 2, 2); |
95
|
|
|
|
|
|
|
$entry; |
96
|
|
|
|
|
|
|
} |
97
|
|
|
|
|
|
|
|
98
|
|
|
|
|
|
|
sub label_and_entry_and_button { |
99
|
|
|
|
|
|
|
my $self = shift; |
100
|
|
|
|
|
|
|
my $table = shift; |
101
|
|
|
|
|
|
|
my $label_text = shift; |
102
|
|
|
|
|
|
|
my $labelxstart = shift; |
103
|
|
|
|
|
|
|
my $labelxend = shift; |
104
|
|
|
|
|
|
|
my $entryxstart = shift; |
105
|
|
|
|
|
|
|
my $entryxend = shift; |
106
|
|
|
|
|
|
|
my $buttonxstart = shift; |
107
|
|
|
|
|
|
|
my $buttonxend = shift; |
108
|
|
|
|
|
|
|
my $ystart = shift; |
109
|
|
|
|
|
|
|
my $yend = shift; |
110
|
|
|
|
|
|
|
|
111
|
|
|
|
|
|
|
my $entry = $self->label_and_entry($table, $label_text, $labelxstart, $labelxend, $entryxstart, |
112
|
|
|
|
|
|
|
$entryxend, $ystart, $yend); |
113
|
|
|
|
|
|
|
my $button = Gtk2::Button->new_from_stock('ar_find'); |
114
|
|
|
|
|
|
|
$button->show; |
115
|
|
|
|
|
|
|
$button->set_size_request(10, -1); |
116
|
|
|
|
|
|
|
$self->{$table}->attach($button, $buttonxstart, $buttonxend, $ystart, $yend, ['fill'], [], 2, 2); |
117
|
|
|
|
|
|
|
($entry, $button); |
118
|
|
|
|
|
|
|
} |
119
|
|
|
|
|
|
|
|
120
|
|
|
|
|
|
|
sub separator { |
121
|
|
|
|
|
|
|
my $self = shift; |
122
|
|
|
|
|
|
|
my $table = shift; |
123
|
|
|
|
|
|
|
my $xstart = shift; |
124
|
|
|
|
|
|
|
my $xend = shift; |
125
|
|
|
|
|
|
|
my $ystart = shift; |
126
|
|
|
|
|
|
|
my $yend = shift; |
127
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
my $separator = Gtk2::HSeparator->new; |
129
|
|
|
|
|
|
|
$separator->show; |
130
|
|
|
|
|
|
|
$self->{$table}->attach($separator, $xstart, $xend, $ystart, $yend, ['fill'], [], 2, 2); |
131
|
|
|
|
|
|
|
} |
132
|
|
|
|
|
|
|
|
133
|
|
|
|
|
|
|
sub label_and_spin { |
134
|
|
|
|
|
|
|
my $self = shift; |
135
|
|
|
|
|
|
|
my $table = shift; |
136
|
|
|
|
|
|
|
my $label_text = shift; |
137
|
|
|
|
|
|
|
my $labelxstart = shift; |
138
|
|
|
|
|
|
|
my $labelxend = shift; |
139
|
|
|
|
|
|
|
my $spinxstart = shift; |
140
|
|
|
|
|
|
|
my $spinxend = shift; |
141
|
|
|
|
|
|
|
my $ystart = shift; |
142
|
|
|
|
|
|
|
my $yend = shift; |
143
|
|
|
|
|
|
|
my $adj1 = shift; |
144
|
|
|
|
|
|
|
my $adj2 = shift; |
145
|
|
|
|
|
|
|
|
146
|
|
|
|
|
|
|
my $label = Gtk2::Label->new($label_text); |
147
|
|
|
|
|
|
|
$label->set_alignment(0,0.5); |
148
|
|
|
|
|
|
|
$self->{$table}->attach_defaults($label, $labelxstart, $labelxend, $ystart, $yend); |
149
|
|
|
|
|
|
|
$label->show; |
150
|
|
|
|
|
|
|
|
151
|
|
|
|
|
|
|
my $adjust = Gtk2::Adjustment->new($adj1, $adj2, 10000, 1, 50, 200 ); |
152
|
|
|
|
|
|
|
my $spin = Gtk2::SpinButton->new($adjust, 1, 0); |
153
|
|
|
|
|
|
|
$self->{$table}->attach($spin, $spinxstart, $spinxend, $ystart, $yend, ['expand', 'fill'], [], 2, 2); |
154
|
|
|
|
|
|
|
$spin->show; |
155
|
|
|
|
|
|
|
$spin->set_size_request(40, -1); |
156
|
|
|
|
|
|
|
$spin; |
157
|
|
|
|
|
|
|
} |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
sub check_and_button { |
160
|
|
|
|
|
|
|
my $self = shift; |
161
|
|
|
|
|
|
|
my $table = shift; |
162
|
|
|
|
|
|
|
my $button_text = shift; |
163
|
|
|
|
|
|
|
my $checkxstart = shift; |
164
|
|
|
|
|
|
|
my $checkxend = shift; |
165
|
|
|
|
|
|
|
my $buttonxstart = shift; |
166
|
|
|
|
|
|
|
my $buttonxend = shift; |
167
|
|
|
|
|
|
|
my $ystart = shift; |
168
|
|
|
|
|
|
|
my $yend = shift; |
169
|
|
|
|
|
|
|
|
170
|
|
|
|
|
|
|
my $check = $self->check_button($table, $button_text, $checkxstart, $checkxend, $ystart, $yend); |
171
|
|
|
|
|
|
|
my $button = Gtk2::Button->new_from_stock('ar_properties'); |
172
|
|
|
|
|
|
|
$button->show; |
173
|
|
|
|
|
|
|
$button->set_size_request(10, -1); |
174
|
|
|
|
|
|
|
$self->{$table}->attach($button, $buttonxstart, $buttonxend, $ystart, $yend, ['fill'], [], 2, 2); |
175
|
|
|
|
|
|
|
return ($check, $button); |
176
|
|
|
|
|
|
|
} |
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
sub hbox_label_entry { |
179
|
|
|
|
|
|
|
my $self = shift; |
180
|
|
|
|
|
|
|
my $table = shift; |
181
|
|
|
|
|
|
|
my $label_text = shift; |
182
|
|
|
|
|
|
|
my $xstart = shift; |
183
|
|
|
|
|
|
|
my $xend = shift; |
184
|
|
|
|
|
|
|
my $ystart = shift; |
185
|
|
|
|
|
|
|
my $yend = shift; |
186
|
|
|
|
|
|
|
|
187
|
|
|
|
|
|
|
my $hbox = Gtk2::HBox->new(1,5); |
188
|
|
|
|
|
|
|
$hbox->show; |
189
|
|
|
|
|
|
|
$hbox->set_homogeneous(1); |
190
|
|
|
|
|
|
|
|
191
|
|
|
|
|
|
|
my $label = Gtk2::Label->new($label_text); |
192
|
|
|
|
|
|
|
$label->set_alignment(0,0.5); |
193
|
|
|
|
|
|
|
$label->show; |
194
|
|
|
|
|
|
|
|
195
|
|
|
|
|
|
|
my $entry = Gtk2::Entry->new; |
196
|
|
|
|
|
|
|
$entry->show; |
197
|
|
|
|
|
|
|
$entry->set_sensitive(0); |
198
|
|
|
|
|
|
|
|
199
|
|
|
|
|
|
|
$hbox->pack_start_defaults($label); |
200
|
|
|
|
|
|
|
$hbox->pack_end_defaults($entry); |
201
|
|
|
|
|
|
|
$self->{$table}->attach($hbox, $xstart, $xend, $ystart, $yend, ['fill'], [], 2, 2); |
202
|
|
|
|
|
|
|
$entry; |
203
|
|
|
|
|
|
|
} |
204
|
|
|
|
|
|
|
|
205
|
|
|
|
|
|
|
sub initialise { |
206
|
|
|
|
|
|
|
my $self = shift; |
207
|
|
|
|
|
|
|
|
208
|
|
|
|
|
|
|
$self->{gramofile} = Gtk2::Window->new('toplevel'); |
209
|
|
|
|
|
|
|
my $screen = $self->{gramofile}->get_screen; |
210
|
|
|
|
|
|
|
my $maxw = $screen->get_width - SCREEN_OFF; |
211
|
|
|
|
|
|
|
my $width = APP_WIDTH; |
212
|
|
|
|
|
|
|
$width = $maxw if ($maxw < $width); |
213
|
|
|
|
|
|
|
my $maxh = $screen->get_height - SCREEN_OFF; |
214
|
|
|
|
|
|
|
my $height = APP_HEIGHT; |
215
|
|
|
|
|
|
|
$height = $maxh if ($maxh < $height); |
216
|
|
|
|
|
|
|
$self->{gramofile}->set_default_size($width, $height); |
217
|
|
|
|
|
|
|
$self->{gramofile}->set_title('gramofile'); |
218
|
|
|
|
|
|
|
$self->{gramofile}->set_resizable(1); |
219
|
|
|
|
|
|
|
$self->{gramofile}->realize; |
220
|
|
|
|
|
|
|
|
221
|
|
|
|
|
|
|
my $scrolled_window = Gtk2::ScrolledWindow->new(undef, undef); |
222
|
|
|
|
|
|
|
$scrolled_window->set_policy('automatic', 'automatic'); |
223
|
|
|
|
|
|
|
$self->{gramofile}->add($scrolled_window); |
224
|
|
|
|
|
|
|
$scrolled_window->show(); |
225
|
|
|
|
|
|
|
|
226
|
|
|
|
|
|
|
$self->{main_vbox} = Gtk2::VBox->new(0, 0); |
227
|
|
|
|
|
|
|
$scrolled_window->add_with_viewport($self->{main_vbox}); |
228
|
|
|
|
|
|
|
$self->{main_vbox}->show; |
229
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
$self->{notebook} = Gtk2::Notebook->new; |
231
|
|
|
|
|
|
|
$self->{notebook}->show; |
232
|
|
|
|
|
|
|
$self->{notebook}->set_border_width(2); |
233
|
|
|
|
|
|
|
$self->{main_vbox}->add($self->{notebook}); |
234
|
|
|
|
|
|
|
|
235
|
|
|
|
|
|
|
$self->{status_vbox} = Gtk2::VBox->new(0, 0); |
236
|
|
|
|
|
|
|
$self->{main_vbox}->add($self->{status_vbox}); |
237
|
|
|
|
|
|
|
$self->{status_vbox}->show; |
238
|
|
|
|
|
|
|
|
239
|
|
|
|
|
|
|
# LOCATE TRACKS TAB |
240
|
|
|
|
|
|
|
|
241
|
|
|
|
|
|
|
$self->{tracksplit_frame} = Gtk2::Frame->new('Locate Tracks'); |
242
|
|
|
|
|
|
|
$self->{tracksplit_frame}->set_label_align(0, 0); |
243
|
|
|
|
|
|
|
$self->{notebook}->append_page($self->{tracksplit_frame}, Gtk2::Label->new("Locate Tracks")); |
244
|
|
|
|
|
|
|
$self->{tracksplit_frame}->show; |
245
|
|
|
|
|
|
|
$self->{tracksplit_frame}->set_border_width(2); |
246
|
|
|
|
|
|
|
|
247
|
|
|
|
|
|
|
$self->{tracksplit_vbox} = Gtk2::VBox->new(0, 0); |
248
|
|
|
|
|
|
|
$self->{tracksplit_frame}->add($self->{tracksplit_vbox}); |
249
|
|
|
|
|
|
|
$self->{tracksplit_vbox}->show; |
250
|
|
|
|
|
|
|
|
251
|
|
|
|
|
|
|
$self->{tracksplit_table} = Gtk2::Table->new(22, 6, 0); |
252
|
|
|
|
|
|
|
$self->{tracksplit_table}->set_row_spacings(ROW_HEIGHT); |
253
|
|
|
|
|
|
|
$self->{tracksplit_vbox}->add($self->{tracksplit_table}); |
254
|
|
|
|
|
|
|
$self->{tracksplit_table}->show; |
255
|
|
|
|
|
|
|
|
256
|
|
|
|
|
|
|
$self->{tracksplit_filename_entry} = $self->label_and_entry('tracksplit_table', |
257
|
|
|
|
|
|
|
'File or Directory name', 0, 2, 2, 6, 0, 1); |
258
|
|
|
|
|
|
|
($self->{tracksplit_filename_filter_entry}, $self->{tracksplit_browse_button}) = |
259
|
|
|
|
|
|
|
$self->label_and_entry_and_button('tracksplit_table', 'File name filter', 0, 2, 2, 5, 5, 6, 1, 2); |
260
|
|
|
|
|
|
|
$self->separator('tracksplit_table', 0, 6, 2, 3); |
261
|
|
|
|
|
|
|
|
262
|
|
|
|
|
|
|
$self->{tracksplit_rms_file_check} = |
263
|
|
|
|
|
|
|
$self->check_button('tracksplit_table', 'Save/load signal power (RMS) data to/from .rms file', 0, 6, 3, 4); |
264
|
|
|
|
|
|
|
$self->{tracksplit_generate_graph_check} = |
265
|
|
|
|
|
|
|
$self->check_button('tracksplit_table', 'Generate graph files', 0, 6, 4, 5); |
266
|
|
|
|
|
|
|
$self->separator('tracksplit_table', 0, 6, 5, 6); |
267
|
|
|
|
|
|
|
$self->{signal_power_data_blocklen_spin} = $self->label_and_spin('tracksplit_table', |
268
|
|
|
|
|
|
|
'Length of blocks of signal power data (samples)', 0, 5, 5, 6, 6, 7, 0, 0); |
269
|
|
|
|
|
|
|
$self->{global_silence_factor_spin} = $self->label_and_spin('tracksplit_table', |
270
|
|
|
|
|
|
|
'Global silence factor (0.1 %)', 0, 5, 5, 6, 7, 8, 0, 0); |
271
|
|
|
|
|
|
|
$self->{local_silence_factor_spin} = $self->label_and_spin('tracksplit_table', |
272
|
|
|
|
|
|
|
'Local silence factor (%)', 0, 5, 5, 6, 8, 9, 1, -2); |
273
|
|
|
|
|
|
|
$self->{inter_track_silence_minlen_spin} = $self->label_and_spin('tracksplit_table', |
274
|
|
|
|
|
|
|
'Minimal length of inter-track silence (blocks)', 0, 5, 5, 6, 9, 10, 1, -2); |
275
|
|
|
|
|
|
|
$self->{track_minlen_spin} = $self->label_and_spin('tracksplit_table', |
276
|
|
|
|
|
|
|
'Minimal length of tracks (blocks)', 0, 5, 5, 6, 10, 11, 1, -2); |
277
|
|
|
|
|
|
|
$self->{track_start_extra_blocks_spin} = $self->label_and_spin('tracksplit_table', |
278
|
|
|
|
|
|
|
'Number of extra blocks at track start', 0, 5, 5, 6, 11, 12, 1, -2); |
279
|
|
|
|
|
|
|
$self->{track_end_extra_blocks_spin} = $self->label_and_spin('tracksplit_table', |
280
|
|
|
|
|
|
|
'Number of extra blocks at track end', 0, 5, 5, 6, 12, 13, 1, -2); |
281
|
|
|
|
|
|
|
|
282
|
|
|
|
|
|
|
$self->{tracksplit_separator2} = Gtk2::HSeparator->new; |
283
|
|
|
|
|
|
|
$self->{tracksplit_separator2}->show; |
284
|
|
|
|
|
|
|
$self->{tracksplit_vbox}->add($self->{tracksplit_separator2}); |
285
|
|
|
|
|
|
|
|
286
|
|
|
|
|
|
|
$self->{tracksplit_buttons_table} = Gtk2::Table->new(1, 2, 1); |
287
|
|
|
|
|
|
|
$self->{tracksplit_vbox}->pack_end($self->{tracksplit_buttons_table},0,0,0); |
288
|
|
|
|
|
|
|
$self->{tracksplit_buttons_table}->show; |
289
|
|
|
|
|
|
|
|
290
|
|
|
|
|
|
|
$self->{stop_tracksplit_button} = Gtk2::Button->new_from_stock('ar_stop'); |
291
|
|
|
|
|
|
|
$self->{tracksplit_buttons_table}->attach($self->{stop_tracksplit_button}, 0, 1, 0, 1, ['expand', 'fill'], [], 2, 2); |
292
|
|
|
|
|
|
|
$self->{stop_tracksplit_button}->show; |
293
|
|
|
|
|
|
|
$self->{stop_tracksplit_button}->set_sensitive(0); |
294
|
|
|
|
|
|
|
|
295
|
|
|
|
|
|
|
$self->{start_tracksplit_button} = Gtk2::Button->new_from_stock('ar_start'); |
296
|
|
|
|
|
|
|
$self->{tracksplit_buttons_table}->attach($self->{start_tracksplit_button}, 1, 2, 0, 1, ['expand', 'fill'], [], 2, 2); |
297
|
|
|
|
|
|
|
$self->{start_tracksplit_button}->show; |
298
|
|
|
|
|
|
|
|
299
|
|
|
|
|
|
|
# PROCESS SIGNAL TAB |
300
|
|
|
|
|
|
|
|
301
|
|
|
|
|
|
|
$self->{process_frame} = Gtk2::Frame->new('Process Signal'); |
302
|
|
|
|
|
|
|
$self->{process_frame}->set_label_align(0, 0); |
303
|
|
|
|
|
|
|
$self->{notebook}->append_page($self->{process_frame}, Gtk2::Label->new("Process Signal")); |
304
|
|
|
|
|
|
|
$self->{process_frame}->show; |
305
|
|
|
|
|
|
|
$self->{process_frame}->set_border_width(2); |
306
|
|
|
|
|
|
|
|
307
|
|
|
|
|
|
|
$self->{process_vbox} = Gtk2::VBox->new(0, 0); |
308
|
|
|
|
|
|
|
$self->{process_frame}->add($self->{process_vbox}); |
309
|
|
|
|
|
|
|
$self->{process_vbox}->show; |
310
|
|
|
|
|
|
|
|
311
|
|
|
|
|
|
|
$self->{process_table} = Gtk2::Table->new(22, 6, 0); |
312
|
|
|
|
|
|
|
$self->{process_table}->set_row_spacings(ROW_HEIGHT); |
313
|
|
|
|
|
|
|
$self->{process_vbox}->add($self->{process_table}); |
314
|
|
|
|
|
|
|
$self->{process_table}->show; |
315
|
|
|
|
|
|
|
|
316
|
|
|
|
|
|
|
$self->{process_infile_entry} = $self->label_and_entry('process_table', |
317
|
|
|
|
|
|
|
'Input File or Directory', 0, 2, 2, 6, 0, 1); |
318
|
|
|
|
|
|
|
($self->{process_infile_filter_entry}, $self->{process_infile_button}) = |
319
|
|
|
|
|
|
|
$self->label_and_entry_and_button('process_table', 'Input File filter', 0, 2, 2, 5, 5, 6, 1, 2); |
320
|
|
|
|
|
|
|
$self->separator('process_table', 0, 6, 2, 3); |
321
|
|
|
|
|
|
|
$self->{process_outfile_entry} = $self->label_and_entry('process_table', |
322
|
|
|
|
|
|
|
'Output File or Directory', 0, 2, 2, 6, 3, 4); |
323
|
|
|
|
|
|
|
($self->{process_outfile_filter_entry}, $self->{process_outfile_button}) = |
324
|
|
|
|
|
|
|
$self->label_and_entry_and_button('process_table', 'Output File filter', 0, 2, 2, 5, 5, 6, 4, 5); |
325
|
|
|
|
|
|
|
$self->{process_op_regexp_check} = |
326
|
|
|
|
|
|
|
$self->check_button('process_table', 'Use filter as regexp', 0, 6, 5, 6); |
327
|
|
|
|
|
|
|
$self->separator('process_table', 0, 6, 6, 7); |
328
|
|
|
|
|
|
|
$self->{copyonly_filter_check} = |
329
|
|
|
|
|
|
|
$self->check_button('process_table', 'Copy Only', 0, 6, 7, 8); |
330
|
|
|
|
|
|
|
$self->{monoize_filter_check} = |
331
|
|
|
|
|
|
|
$self->check_button('process_table', 'Mono Filter', 0, 6, 8, 9); |
332
|
|
|
|
|
|
|
($self->{simple_median_filter_check}, $self->{simple_median_filter_button}) = $self->check_and_button( |
333
|
|
|
|
|
|
|
'process_table','Simple Median Filter', 0, 5, 5, 6, 9, 10); |
334
|
|
|
|
|
|
|
($self->{double_median_filter_check}, $self->{double_median_filter_button}) = $self->check_and_button( |
335
|
|
|
|
|
|
|
'process_table','Double Median Filter', 0, 5, 5, 6, 10, 11); |
336
|
|
|
|
|
|
|
($self->{simple_mean_filter_check}, $self->{simple_mean_filter_button}) = $self->check_and_button( |
337
|
|
|
|
|
|
|
'process_table','Simple Mean Filter', 0, 5, 5, 6, 11, 12); |
338
|
|
|
|
|
|
|
($self->{rms_filter_check}, $self->{rms_filter_button}) = $self->check_and_button( |
339
|
|
|
|
|
|
|
'process_table','RMS Filter', 0, 5, 5, 6, 12, 13); |
340
|
|
|
|
|
|
|
($self->{cond_median_filter_check}, $self->{cond_median_filter_button}) = $self->check_and_button( |
341
|
|
|
|
|
|
|
'process_table','Conditional Median Filter', 0, 5, 5, 6, 13, 14); |
342
|
|
|
|
|
|
|
($self->{cond_median2_filter_check}, $self->{cond_median2_filter_button}) = $self->check_and_button( |
343
|
|
|
|
|
|
|
'process_table','Conditional Median Filter II', 0, 5, 5, 6, 14, 15); |
344
|
|
|
|
|
|
|
($self->{cond_median3_filter_check}, $self->{cond_median3_filter_button}) = $self->check_and_button( |
345
|
|
|
|
|
|
|
'process_table','Conditional Median Filter IIF', 0, 5, 5, 6, 15, 16); |
346
|
|
|
|
|
|
|
($self->{simple_normalize_filter_check}, $self->{simple_normalize_filter_button}) = $self->check_and_button( |
347
|
|
|
|
|
|
|
'process_table','Simple Normalize Filter', 0, 5, 5, 6, 16, 17); |
348
|
|
|
|
|
|
|
$self->{experimenting_filter_check} = |
349
|
|
|
|
|
|
|
$self->check_button('process_table', 'Experimenting Filter', 0, 6, 17, 18); |
350
|
|
|
|
|
|
|
$self->separator('process_table', 0, 6, 18, 19); |
351
|
|
|
|
|
|
|
|
352
|
|
|
|
|
|
|
$self->{times_buttons_hbox} = Gtk2::HBox->new(1,5); |
353
|
|
|
|
|
|
|
$self->{times_buttons_hbox}->show; |
354
|
|
|
|
|
|
|
my $times = Gtk2::RadioButton->new; |
355
|
|
|
|
|
|
|
|
356
|
|
|
|
|
|
|
$self->{split_tracks_radio} = Gtk2::RadioButton->new_with_label_from_widget($times,'Split tracks'); |
357
|
|
|
|
|
|
|
$self->{split_tracks_radio}->show; |
358
|
|
|
|
|
|
|
$self->{split_tracks_radio}->set_sensitive(1); |
359
|
|
|
|
|
|
|
$self->{times_buttons_hbox}->pack_start_defaults($self->{split_tracks_radio}); |
360
|
|
|
|
|
|
|
|
361
|
|
|
|
|
|
|
$self->{begin_and_end_times_radio} = Gtk2::RadioButton->new_with_label_from_widget($times,'Use begin and end times'); |
362
|
|
|
|
|
|
|
$self->{begin_and_end_times_radio}->show; |
363
|
|
|
|
|
|
|
$self->{begin_and_end_times_radio}->set_sensitive(1); |
364
|
|
|
|
|
|
|
$self->{times_buttons_hbox}->pack_start_defaults($self->{begin_and_end_times_radio}); |
365
|
|
|
|
|
|
|
|
366
|
|
|
|
|
|
|
$self->{whole_frames_check} = Gtk2::CheckButton->new('Adjust to whole frames'); |
367
|
|
|
|
|
|
|
$self->{whole_frames_check}->set_sensitive(1); |
368
|
|
|
|
|
|
|
$self->{whole_frames_check}->show; |
369
|
|
|
|
|
|
|
$self->{times_buttons_hbox}->pack_end_defaults($self->{whole_frames_check}); |
370
|
|
|
|
|
|
|
|
371
|
|
|
|
|
|
|
$self->{process_table}->attach($self->{times_buttons_hbox}, 0, 6, 19, 20, ['fill'], [], 2, 2); |
372
|
|
|
|
|
|
|
|
373
|
|
|
|
|
|
|
$self->{process_separator3} = Gtk2::HSeparator->new; |
374
|
|
|
|
|
|
|
$self->{process_separator3}->show; |
375
|
|
|
|
|
|
|
$self->{process_vbox}->add($self->{process_separator3}); |
376
|
|
|
|
|
|
|
|
377
|
|
|
|
|
|
|
$self->{process_buttons_table} = Gtk2::Table->new(1, 2, 1); |
378
|
|
|
|
|
|
|
$self->{process_vbox}->pack_end($self->{process_buttons_table},0,0,0); |
379
|
|
|
|
|
|
|
$self->{process_buttons_table}->show; |
380
|
|
|
|
|
|
|
|
381
|
|
|
|
|
|
|
$self->{stop_process_button} = Gtk2::Button->new_from_stock('ar_stop'); |
382
|
|
|
|
|
|
|
$self->{process_buttons_table}->attach($self->{stop_process_button}, 0, 1, 0, 1, ['expand', 'fill'], [], 2, 2); |
383
|
|
|
|
|
|
|
$self->{stop_process_button}->show; |
384
|
|
|
|
|
|
|
$self->{stop_process_button}->set_sensitive(0); |
385
|
|
|
|
|
|
|
|
386
|
|
|
|
|
|
|
$self->{start_process_button} = Gtk2::Button->new_from_stock('ar_start'); |
387
|
|
|
|
|
|
|
$self->{process_buttons_table}->attach($self->{start_process_button}, 1, 2, 0, 1, ['expand', 'fill'], [], 2, 2); |
388
|
|
|
|
|
|
|
$self->{start_process_button}->show; |
389
|
|
|
|
|
|
|
|
390
|
|
|
|
|
|
|
# STATUS BAR AND BUTTONS |
391
|
|
|
|
|
|
|
|
392
|
|
|
|
|
|
|
$self->{status_hbox} = Gtk2::HBox->new; |
393
|
|
|
|
|
|
|
$self->{status_hbox}->show; |
394
|
|
|
|
|
|
|
$self->{status_vbox}->add($self->{status_hbox}); |
395
|
|
|
|
|
|
|
$self->{status_bar} = Gtk2::Statusbar->new; |
396
|
|
|
|
|
|
|
$self->{status_hbox}->pack_start($self->{status_bar}, 1, 1, 2); |
397
|
|
|
|
|
|
|
$self->{status_bar}->show; |
398
|
|
|
|
|
|
|
|
399
|
|
|
|
|
|
|
$self->{rpsq_hbox} = Gtk2::HBox->new(1,5); |
400
|
|
|
|
|
|
|
$self->{rpsq_hbox}->show; |
401
|
|
|
|
|
|
|
$self->{rpsq_hbox}->set_homogeneous(1); |
402
|
|
|
|
|
|
|
|
403
|
|
|
|
|
|
|
$self->{record_button} = Gtk2::Button->new_from_stock('ar_record'); |
404
|
|
|
|
|
|
|
$self->{record_button}->show; |
405
|
|
|
|
|
|
|
$self->{rpsq_hbox}->pack_start_defaults($self->{record_button}); |
406
|
|
|
|
|
|
|
|
407
|
|
|
|
|
|
|
$self->{play_button} = Gtk2::Button->new_from_stock('ar_play'); |
408
|
|
|
|
|
|
|
$self->{play_button}->show; |
409
|
|
|
|
|
|
|
$self->{rpsq_hbox}->pack_start_defaults($self->{play_button}); |
410
|
|
|
|
|
|
|
|
411
|
|
|
|
|
|
|
$self->{save_button} = Gtk2::Button->new_from_stock('ar_save'); |
412
|
|
|
|
|
|
|
$self->{save_button}->show; |
413
|
|
|
|
|
|
|
$self->{rpsq_hbox}->pack_start_defaults($self->{save_button}); |
414
|
|
|
|
|
|
|
|
415
|
|
|
|
|
|
|
$self->{quit_button} = Gtk2::Button->new_from_stock('ar_quit'); |
416
|
|
|
|
|
|
|
$self->{quit_button}->show; |
417
|
|
|
|
|
|
|
$self->{rpsq_hbox}->pack_start_defaults($self->{quit_button}); |
418
|
|
|
|
|
|
|
|
419
|
|
|
|
|
|
|
$self->{main_vbox}->add($self->{rpsq_hbox}); |
420
|
|
|
|
|
|
|
|
421
|
|
|
|
|
|
|
# TOOLTIPS |
422
|
|
|
|
|
|
|
|
423
|
|
|
|
|
|
|
$self->{tooltips} = Gtk2::Tooltips->new(); |
424
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{tracksplit_filename_entry}, "File or Directory name for wav file/s"); |
425
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{tracksplit_filename_filter_entry}, "Filter used on the names of files"); |
426
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{tracksplit_rms_file_check}, "If a file containing RMS data should be generated"); |
427
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{tracksplit_generate_graph_check}, "If a set of graph files should be generated"); |
428
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{local_silence_factor_spin}, "The local silence factor - used to detect track start and end more accurately"); |
429
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{inter_track_silence_minlen_spin}, "Sets the minimum length for the inter track silence"); |
430
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{track_minlen_spin}, "Minimum length of tracks"); |
431
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{track_start_extra_blocks_spin}, "Extra blocks saved at track start"); |
432
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{track_end_extra_blocks_spin}, "Extra blocks saved at track end"); |
433
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{signal_power_data_blocklen_spin}, "Signal Power Data"); |
434
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{global_silence_factor_spin}, "The global silence threshold of the whole sound file"); |
435
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{start_tracksplit_button}, "Start splitting the sound file/s"); |
436
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{stop_tracksplit_button}, "Stop splitting the sound file/s"); |
437
|
|
|
|
|
|
|
|
438
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{process_infile_entry}, "Input File or Directory name for wav file/s"); |
439
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{process_infile_filter_entry}, "Filter used on the names of files"); |
440
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{process_outfile_entry}, "Output File or Directory name for wav file/s"); |
441
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{process_outfile_filter_entry}, "Filter used on the names of files"); |
442
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{process_op_regexp_check}, "Use the output filter as a perl regular expression"); |
443
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{copyonly_filter_check}, "Do nothing - just copy the signal unchanged."); |
444
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{monoize_filter_check}, "Average left & right signals."); |
445
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{simple_median_filter_check}, "Interpolate short ticks."); |
446
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{double_median_filter_check}, "Interpolate short ticks and correct interpolations."); |
447
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{simple_mean_filter_check}, "'Smooth' the signal by taking the mean of samples."); |
448
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{rms_filter_check}, "Compute the 'running' Root-Mean-Square of the signal."); |
449
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{cond_median_filter_check}, "Remove ticks while not changing rest of signal."); |
450
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{cond_median2_filter_check}, "Remove ticks while not changing rest of signal - Better."); |
451
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{cond_median3_filter_check}, "Remove ticks while not changing rest of signal - Using frequency domain."); |
452
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{simple_normalize_filter_check}, "Normalize filter - Increase or reduce signal by 0 to +/- 100 %. Use TRACK file to find maximum sample value and apply appropriate factor"); |
453
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{experimenting_filter_check}, "The filter YOU are experimenting with (in signpr_exper.c)."); |
454
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{split_tracks_radio}, "Split wav file into tracks."); |
455
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{begin_and_end_times_radio}, "Process wav file from begin time until end time."); |
456
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{whole_frames_check}, "Specify frame size for processing wav file."); |
457
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{start_process_button}, "Start signal processing the sound file/s"); |
458
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{stop_process_button}, "Stop signal processing the sound file/s"); |
459
|
|
|
|
|
|
|
|
460
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{record_button}, "Start recording to file"); |
461
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{play_button}, "Play a file"); |
462
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{save_button}, "Store useful settings in $ENV{HOME}/.gramofilerc"); |
463
|
|
|
|
|
|
|
$self->{tooltips}->set_tip($self->{quit_button}, "Quit GtkGramofile"); |
464
|
|
|
|
|
|
|
|
465
|
|
|
|
|
|
|
$self->{notebook}->set_current_page(0); |
466
|
|
|
|
|
|
|
} |
467
|
|
|
|
|
|
|
|
468
|
|
|
|
|
|
|
sub on_setting_finished { |
469
|
|
|
|
|
|
|
my $widget = shift; |
470
|
|
|
|
|
|
|
my $tmp = shift; |
471
|
|
|
|
|
|
|
my $cb_data; |
472
|
|
|
|
|
|
|
if (ref $tmp eq 'Gtk2::Gdk::Event::Focus') { |
473
|
|
|
|
|
|
|
$cb_data = shift; |
474
|
|
|
|
|
|
|
} else { |
475
|
|
|
|
|
|
|
$cb_data = $tmp; |
476
|
|
|
|
|
|
|
} |
477
|
|
|
|
|
|
|
my $self = $cb_data->{self}; |
478
|
|
|
|
|
|
|
my $section = $cb_data->{section}; |
479
|
|
|
|
|
|
|
my $name = $cb_data->{name}; |
480
|
|
|
|
|
|
|
my $ref = ref $widget; |
481
|
|
|
|
|
|
|
my $value; |
482
|
|
|
|
|
|
|
|
483
|
|
|
|
|
|
|
if ($ref eq "Gtk2::Entry") {$value = $widget->get_text} |
484
|
|
|
|
|
|
|
elsif ($ref eq "Gtk2::SpinButton") {$value = $widget->get_value_as_int} |
485
|
|
|
|
|
|
|
elsif ($ref eq "Gtk2::CheckButton" || $ref eq "Gtk2::ToggleButton" || $ref eq "Gtk2::RadioButton") { |
486
|
|
|
|
|
|
|
if ($widget->get_active) {$value = 1} else {$value = 0}} |
487
|
|
|
|
|
|
|
|
488
|
|
|
|
|
|
|
$self->{gtkgramofile}->set_value($section, $name, $value); |
489
|
|
|
|
|
|
|
$self->message("$name has been set to $value"); |
490
|
|
|
|
|
|
|
|
491
|
|
|
|
|
|
|
return 0; |
492
|
|
|
|
|
|
|
} |
493
|
|
|
|
|
|
|
|
494
|
|
|
|
|
|
|
sub on_setting_changed { |
495
|
|
|
|
|
|
|
my $widget = shift; |
496
|
|
|
|
|
|
|
my $cb_data = shift; |
497
|
|
|
|
|
|
|
my $self = $cb_data->{self}; |
498
|
|
|
|
|
|
|
my $section = $cb_data->{section}; |
499
|
|
|
|
|
|
|
my $name = $cb_data->{name}; |
500
|
|
|
|
|
|
|
my $ref = ref $widget; |
501
|
|
|
|
|
|
|
my $value; |
502
|
|
|
|
|
|
|
|
503
|
|
|
|
|
|
|
if ($ref eq "Gtk2::Entry") {$value = $widget->get_text} |
504
|
|
|
|
|
|
|
elsif ($ref eq "Gtk2::SpinButton") {$value = $widget->get_value_as_int} |
505
|
|
|
|
|
|
|
elsif ($ref eq "Gtk2::CheckButton" || $ref eq "Gtk2::ToggleButton") {if ($widget->get_active) {$value = 1} else {$value = 0}} |
506
|
|
|
|
|
|
|
|
507
|
|
|
|
|
|
|
$self->{gtkgramofile}->set_value($section, $name, $value); |
508
|
|
|
|
|
|
|
$self->message("$name has been changed to $value"); |
509
|
|
|
|
|
|
|
|
510
|
|
|
|
|
|
|
return 1; |
511
|
|
|
|
|
|
|
} |
512
|
|
|
|
|
|
|
|
513
|
|
|
|
|
|
|
sub connect_signals { |
514
|
|
|
|
|
|
|
my $self = shift; |
515
|
|
|
|
|
|
|
|
516
|
|
|
|
|
|
|
my @callbacks = qw(quit record play save tracksplit_browse start_tracksplit stop_tracksplit process_infile process_outfile |
517
|
|
|
|
|
|
|
simple_median_filter double_median_filter simple_mean_filter rms_filter cond_median_filter cond_median2_filter |
518
|
|
|
|
|
|
|
cond_median3_filter simple_normalize_filter start_process stop_process); |
519
|
|
|
|
|
|
|
|
520
|
|
|
|
|
|
|
foreach my $callback (@callbacks) { |
521
|
|
|
|
|
|
|
$self->{$callback."_button"}->signal_connect('clicked', $self->{gtkgramofile}->{signals}->get_callback($callback), $self->{gtkgramofile}->{signals}); |
522
|
|
|
|
|
|
|
} |
523
|
|
|
|
|
|
|
$self->{gramofile}->signal_connect('delete_event', $self->{gtkgramofile}->{signals}->get_callback("quit")); |
524
|
|
|
|
|
|
|
|
525
|
|
|
|
|
|
|
foreach my $check (qw(tracksplit_rms_file_check tracksplit_generate_graph_check)) { |
526
|
|
|
|
|
|
|
$self->connect_signal('toggled', $self->{finished}, 'tracksplit_params', $check); |
527
|
|
|
|
|
|
|
} |
528
|
|
|
|
|
|
|
foreach my $spin (qw(global_silence_factor_spin local_silence_factor_spin inter_track_silence_minlen_spin track_minlen_spin track_start_extra_blocks_spin track_end_extra_blocks_spin signal_power_data_blocklen_spin)) { |
529
|
|
|
|
|
|
|
$self->connect_signal('changed', $self->{changed}, 'tracksplit_params', $spin); |
530
|
|
|
|
|
|
|
} |
531
|
|
|
|
|
|
|
$self->connect_signal('changed', $self->{finished}, 'tracksplit_general', 'tracksplit_filename_entry'); |
532
|
|
|
|
|
|
|
$self->connect_signal('focus_out_event', $self->{finished}, 'tracksplit_general', 'tracksplit_filename_entry'); |
533
|
|
|
|
|
|
|
$self->connect_signal('changed', $self->{finished}, 'tracksplit_general', 'tracksplit_filename_filter_entry'); |
534
|
|
|
|
|
|
|
$self->connect_signal('focus_out_event', $self->{finished}, 'tracksplit_general', 'tracksplit_filename_filter_entry'); |
535
|
|
|
|
|
|
|
|
536
|
|
|
|
|
|
|
foreach my $entry (qw(process_infile_entry process_infile_filter_entry process_outfile_entry process_outfile_filter_entry)) { |
537
|
|
|
|
|
|
|
$self->connect_signal('changed', $self->{finished}, 'process_params', $entry); |
538
|
|
|
|
|
|
|
} |
539
|
|
|
|
|
|
|
$self->connect_signal('toggled', $self->{finished}, 'process_params', 'process_op_regexp_check'); |
540
|
|
|
|
|
|
|
foreach my $check (qw(copyonly_filter_check monoize_filter_check simple_median_filter_check double_median_filter_check simple_mean_filter_check rms_filter_check cond_median_filter_check cond_median2_filter_check cond_median3_filter_check simple_normalize_filter_check experimenting_filter_check)) { |
541
|
|
|
|
|
|
|
$self->connect_signal('toggled', $self->{finished}, 'process_filters', $check); |
542
|
|
|
|
|
|
|
} |
543
|
|
|
|
|
|
|
$self->{"begin_and_end_times_radio"}->signal_connect('toggled', $self->{gtkgramofile}->{signals}->get_callback("begin_and_end_times_radio"), $self->{gtkgramofile}->{signals}); |
544
|
|
|
|
|
|
|
$self->{"whole_frames_check"}->signal_connect('toggled', $self->{gtkgramofile}->{signals}->get_callback("whole_frames_check"), $self->{gtkgramofile}->{signals}); |
545
|
|
|
|
|
|
|
} |
546
|
|
|
|
|
|
|
|
547
|
|
|
|
|
|
|
sub connect_signal { |
548
|
|
|
|
|
|
|
my ($self, $signal, $function, $section, $event) = @_; |
549
|
|
|
|
|
|
|
my $cb_data = {self => $self, section => $section}; |
550
|
|
|
|
|
|
|
(my $name = $event) =~ s/_(spin|entry|check|radio)$//; |
551
|
|
|
|
|
|
|
$cb_data->{name} = $name; |
552
|
|
|
|
|
|
|
$self->{$event}->signal_connect($signal, $function, $cb_data); |
553
|
|
|
|
|
|
|
} |
554
|
|
|
|
|
|
|
|
555
|
|
|
|
|
|
|
sub message { |
556
|
|
|
|
|
|
|
my $self = shift; |
557
|
|
|
|
|
|
|
my $data = shift; |
558
|
|
|
|
|
|
|
|
559
|
|
|
|
|
|
|
if (defined $self) { |
560
|
|
|
|
|
|
|
my $context_id=$self->{status_bar}->get_context_id('gramofile'); |
561
|
|
|
|
|
|
|
$self->{status_bar}->pop($context_id); |
562
|
|
|
|
|
|
|
$self->{status_bar}->push($context_id, $data); |
563
|
|
|
|
|
|
|
} else { |
564
|
|
|
|
|
|
|
print "GtkGramofile message - $data\n" |
565
|
|
|
|
|
|
|
} |
566
|
|
|
|
|
|
|
} |
567
|
|
|
|
|
|
|
|
568
|
|
|
|
|
|
|
sub load_settings_to_interface { |
569
|
|
|
|
|
|
|
my $self = shift; |
570
|
|
|
|
|
|
|
|
571
|
|
|
|
|
|
|
my $defaults = $self->{gtkgramofile}->get_defaults; |
572
|
|
|
|
|
|
|
|
573
|
|
|
|
|
|
|
foreach my $section (keys %{$defaults}) { |
574
|
|
|
|
|
|
|
foreach my $parameter (keys %{$defaults->{$section}}) { |
575
|
|
|
|
|
|
|
my $value = $self->{gtkgramofile}->get_value($section, $parameter); |
576
|
|
|
|
|
|
|
$self->{$parameter."_entry"}->set_text($value) |
577
|
|
|
|
|
|
|
if defined ($self->{$parameter."_entry"}) and $parameter ne $self->{$parameter."_entry"}->get_text; |
578
|
|
|
|
|
|
|
$self->{$parameter."_spin"}->set_value($value) |
579
|
|
|
|
|
|
|
if defined ($self->{$parameter."_spin"}) and $parameter ne $self->{$parameter."_spin"}->get_value_as_int; |
580
|
|
|
|
|
|
|
$self->{$parameter."_check"}->set_active($value) if defined ($self->{$parameter."_check"}); |
581
|
|
|
|
|
|
|
$self->{$parameter."_radio"}->set_active($value) if defined ($self->{$parameter."_radio"}); |
582
|
|
|
|
|
|
|
} |
583
|
|
|
|
|
|
|
} |
584
|
|
|
|
|
|
|
} |
585
|
|
|
|
|
|
|
|
586
|
|
|
|
|
|
|
1; |