view release on metacpan or  search on metacpan

GtkGramofile/GUI.pm  view on Meta::CPAN

  $self->{gtkgramofile}->set_value($section, $name, $value);
  $self->message("$name has been changed to $value");
  
  return 1;
}

sub connect_signals {
  my $self = shift;

  my @callbacks = qw(quit record play save tracksplit_browse start_tracksplit stop_tracksplit process_infile process_outfile
simple_median_filter double_median_filter simple_mean_filter rms_filter cond_median_filter cond_median2_filter 
cond_median3_filter simple_normalize_filter start_process stop_process);

  foreach my $callback (@callbacks) {
    $self->{$callback."_button"}->signal_connect('clicked', $self->{gtkgramofile}->{signals}->get_callback($callback), $self->{gtkgramofile}->{signals});
  }
  $self->{gramofile}->signal_connect('delete_event', $self->{gtkgramofile}->{signals}->get_callback("quit"));

  foreach my $check (qw(tracksplit_rms_file_check tracksplit_generate_graph_check)) {
    $self->connect_signal('toggled', $self->{finished}, 'tracksplit_params', $check);
  }
  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)) {
    $self->connect_signal('changed', $self->{changed}, 'tracksplit_params', $spin);
  }

GtkGramofile/Settings.pm  view on Meta::CPAN

}

sub signals {
  my $self = shift;
  my $signals = shift;

  $self->{signals} = $signals if defined $signals;
  $self->{signals};
}

sub callbacks {
  my $self = shift;
  my $callbacks = shift;

  $self->{callbacks} = $callbacks if defined $callbacks;
  $self->{callbacks};
}

sub logic {
  my $self = shift;
  my $logic = shift;

  $self->{logic} = $logic if defined $logic;
  $self->{logic};
}

t/Audio-GtkGramofile.t  view on Meta::CPAN

hbox_label_entry initialise on_setting_finished on_setting_changed connect_signals connect_signal message load_settings_to_interface));

my $logic = Audio::GtkGramofile::Logic->new;         # create an object
ok( defined $logic,              'new() returned something' );
ok( $logic->isa('Audio::GtkGramofile::Logic'),   "and it's the right class" );
can_ok($logic, qw(new set_gtkgramofile tracksplit_watch_callback process_watch_callback tracksplit tracksplit_one process_signal process_one));

my $settings = Audio::GtkGramofile::Settings->new;         # create an object
ok( defined $settings,              'new() returned something' );
ok( $settings->isa('Audio::GtkGramofile::Settings'),   "and it's the right class" );
can_ok($settings, qw(new gui signals callbacks logic load_settings get_value set_value get_defaults get_default 
set_default get_section_keys restore_settings save_settings set_warning_text));

my $signals = Audio::GtkGramofile::Signals->new;         # create an object
ok( defined $signals,              'new() returned something' );
ok( $signals->isa('Audio::GtkGramofile::Signals'),   "and it's the right class" );
can_ok($signals, qw(new set_gtkgramofile get_callback on_quit_clicked quit_gramofile on_record_clicked on_play_clicked
on_generic_browse_clicked on_tracksplit_browse_clicked on_start_tracksplit_clicked on_stop_generic_clicked on_stop_tracksplit_clicked
on_process_infile_clicked on_process_outfile_clicked label_and_spin on_generic_1par_filter_clicked on_simple_median_filter_clicked
on_double_median_filter_clicked on_simple_mean_filter_clicked on_rms_filter_clicked on_cond_median_filter_clicked on_cond_median2_filter_clicked
on_cond_median3_filter_clicked on_simple_normalize_filter_clicked on_start_process_clicked on_stop_process_clicked on_save_clicked));