view release on metacpan or  search on metacpan

lib/ChordPro/Wx/SettingsDialog_wxg.pm  view on Meta::CPAN

# generated by wxGlade 1.1.1 on Thu Nov 20 08:12:17 2025
#
# To get wxPerl visit http://www.wxperl.it
#

use Wx;
use strict;

# begin wxGlade: dependencies
# end wxGlade

# begin wxGlade: extracode
# end wxGlade

package ChordPro::Wx::SettingsDialog_wxg;

use Wx qw[:everything];
use base qw(Wx::Dialog);
use strict;

use Wx::Locale gettext => '_T';
sub new {
    my( $self, $parent, $id, $title, $pos, $size, $style, $name ) = @_;
    $parent = undef              unless defined $parent;
    $id     = -1                 unless defined $id;
    $title  = ""                 unless defined $title;
    $pos    = wxDefaultPosition  unless defined $pos;
    $size   = wxDefaultSize      unless defined $size;
    $name   = ""                 unless defined $name;

    # begin wxGlade: ChordPro::Wx::SettingsDialog_wxg::new
    $style = wxDEFAULT_DIALOG_STYLE
        unless defined $style;

    $self = $self->SUPER::new( $parent, $id, $title, $pos, $size, $style, $name );
    $self->SetTitle(_T("Settings"));
    
    $self->{sz_main} = Wx::BoxSizer->new(wxVERTICAL);
    
    $self->{sz_prefs_outer} = Wx::BoxSizer->new(wxVERTICAL);
    $self->{sz_main}->Add($self->{sz_prefs_outer}, 1, wxEXPAND, 0);
    
    $self->{nb_preferences} = Wx::Notebook->new($self, wxID_ANY);
    $self->{sz_prefs_outer}->Add($self->{nb_preferences}, 1, wxEXPAND|wxLEFT|wxRIGHT, 5);
    
    $self->{nb_config} = Wx::Panel->new($self->{nb_preferences}, wxID_ANY);
    $self->{nb_preferences}->AddPage($self->{nb_config}, _T("Presets"));
    
    $self->{sizer_1} = Wx::BoxSizer->new(wxVERTICAL);
    
    my $label_1 = Wx::StaticText->new($self->{nb_config}, wxID_ANY, _T("Instrument and Style Presets"), wxDefaultPosition, wxDefaultSize, wxALIGN_CENTER_HORIZONTAL);
    $label_1->SetMinSize(Wx::Size->new(-1, 35));
    $label_1->SetForegroundColour(Wx::Colour->new(0, 104, 217));
    $label_1->SetFont(Wx::Font->new(18, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, 0, ""));
    $self->{sizer_1}->Add($label_1, 0, wxALL|wxEXPAND, 15);
    
    $self->{sizer_6} = Wx::BoxSizer->new(wxHORIZONTAL);
    $self->{sizer_1}->Add($self->{sizer_6}, 1, wxEXPAND|wxLEFT|wxRIGHT, 15);
    
    $self->{sz_instrument} = Wx::BoxSizer->new(wxVERTICAL);
    $self->{sizer_6}->Add($self->{sz_instrument}, 1, wxEXPAND|wxRIGHT, 25);
    
    my $l_instrument = Wx::StaticText->new($self->{nb_config}, wxID_ANY, _T("Instrument"));
    $l_instrument->SetFont(Wx::Font->new(11, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD, 0, ""));
    $self->{sz_instrument}->Add($l_instrument, 0, wxBOTTOM|wxEXPAND, 5);
    
    $self->{ch_instrument} = Wx::Choice->new($self->{nb_config}, wxID_ANY, wxDefaultPosition, wxDefaultSize, [_T("Guitar"), _T("Ukulele"), _T("Mandolin"), _T("Keyboard")], );
    $self->{ch_instrument}->SetMinSize(Wx::Size->new(250, -1));
    $self->{ch_instrument}->SetSelection(0);
    $self->{sz_instrument}->Add($self->{ch_instrument}, 0, wxBOTTOM|wxEXPAND, 5);
    
    $self->{l_instrument_desc} = Wx::StaticText->new($self->{nb_config}, wxID_ANY, _T("\n\n"), wxDefaultPosition, wxDefaultSize, wxST_NO_AUTORESIZE);
    $self->{l_instrument_desc}->Wrap(250);
    $self->{sz_instrument}->Add($self->{l_instrument_desc}, 1, wxEXPAND, 0);
    
    $self->{sz_instrument}->Add(20, 20, 0, wxEXPAND, 0);
    
    my $l_style = Wx::StaticText->new($self->{nb_config}, wxID_ANY, _T("Style"));
    $l_style->SetFont(Wx::Font->new(11, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD, 0, ""));
    $self->{sz_instrument}->Add($l_style, 0, wxBOTTOM|wxEXPAND, 5);
    
    $self->{ch_style} = Wx::Choice->new($self->{nb_config}, wxID_ANY, wxDefaultPosition, wxDefaultSize, [_T("Default")], );
    $self->{ch_style}->SetMinSize(Wx::Size->new(250, -1));
    $self->{ch_style}->SetSelection(0);
    $self->{sz_instrument}->Add($self->{ch_style}, 0, wxBOTTOM|wxEXPAND, 5);
    
    $self->{l_style_desc} = Wx::StaticText->new($self->{nb_config}, wxID_ANY, _T("\n\n"), wxDefaultPosition, wxDefaultSize, wxST_NO_AUTORESIZE);
    $self->{l_style_desc}->Wrap(250);
    $self->{sz_instrument}->Add($self->{l_style_desc}, 1, wxEXPAND, 0);
    
    $self->{sz_stylemods} = Wx::BoxSizer->new(wxVERTICAL);
    $self->{sizer_6}->Add($self->{sz_stylemods}, 1, wxEXPAND|wxRIGHT, 15);
    
    $self->{l_stylemods} = Wx::StaticText->new($self->{nb_config}, wxID_ANY, _T("Style Modifiers"));
    $self->{l_stylemods}->SetFont(Wx::Font->new(11, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_BOLD, 0, ""));
    $self->{sz_stylemods}->Add($self->{l_stylemods}, 0, wxBOTTOM, 5);
    
    use ChordPro::Wx::CheckListBox;
    $self->{ch_stylemods} = ChordPro::Wx::CheckListBox->new($self->{nb_config}, wxID_ANY, wxDefaultPosition, wxDefaultSize, [_T("None")], );
    $self->{sz_stylemods}->Add($self->{ch_stylemods}, 1, wxEXPAND, 0);
    
    $self->{sz_stylemods_desc} = Wx::BoxSizer->new(wxVERTICAL);
    $self->{sizer_6}->Add($self->{sz_stylemods_desc}, 1, wxEXPAND|wxRIGHT, 15);
    

lib/ChordPro/Wx/SettingsDialog_wxg.pm  view on Meta::CPAN

    $self->{sizer_4}->Add($label_4, 0, wxALL|wxEXPAND, 15);
    
    $self->{sizer_11} = Wx::FlexGridSizer->new(1, 2, 15, 15);
    $self->{sizer_4}->Add($self->{sizer_11}, 0, wxEXPAND|wxLEFT|wxRIGHT, 15);
    
    $self->{l_messages} = Wx::StaticText->new($self->{nb_messages}, wxID_ANY, _T("Font for messages"));
    $self->{sizer_11}->Add($self->{l_messages}, 0, wxALIGN_CENTER_VERTICAL|wxEXPAND, 5);
    
    $self->{fp_messages} = Wx::FontPickerCtrl->new($self->{nb_messages}, wxID_ANY, wxNullFont, wxDefaultPosition, wxDefaultSize, wxFNTP_FONTDESC_AS_LABEL | wxFNTP_USEFONT_FOR_LABEL);
    $self->{fp_messages}->SetToolTip(_T("Select a font and font size for the messages"));
    $self->{sizer_11}->Add($self->{fp_messages}, 0, wxEXPAND, 5);
    
    $self->{nb_pdf_preview} = Wx::Panel->new($self->{nb_preferences}, wxID_ANY);
    $self->{nb_preferences}->AddPage($self->{nb_pdf_preview}, _T("PDF Preview"));
    
    $self->{sizer_3} = Wx::BoxSizer->new(wxVERTICAL);
    
    my $label_5 = Wx::StaticText->new($self->{nb_pdf_preview}, wxID_ANY, _T("PDF Preview Settings"), wxDefaultPosition, wxDefaultSize, wxALIGN_CENTER_HORIZONTAL);
    $label_5->SetMinSize(Wx::Size->new(-1, 35));
    $label_5->SetForegroundColour(Wx::Colour->new(0, 104, 217));
    $label_5->SetFont(Wx::Font->new(18, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, 0, ""));
    $self->{sizer_3}->Add($label_5, 0, wxALL|wxEXPAND, 15);
    
    $self->{sizer_12} = Wx::GridBagSizer->new(15, 15);
    $self->{sizer_3}->Add($self->{sizer_12}, 0, wxEXPAND|wxLEFT|wxRIGHT, 15);
    
    $self->{cb_pdfviewer} = Wx::CheckBox->new($self->{nb_pdf_preview}, wxID_ANY, _T("PDF Viewer"));
    $self->{cb_pdfviewer}->SetToolTip(_T("Use an external program instead of the built-in PDF viewer"));
    $self->{sizer_12}->Add($self->{cb_pdfviewer}, Wx::GBPosition->new(0, 0), Wx::GBSpan->new(1, 1), wxALIGN_CENTER_VERTICAL, 0);
    
    $self->{t_pdfviewer} = Wx::TextCtrl->new($self->{nb_pdf_preview}, wxID_ANY, "");
    $self->{t_pdfviewer}->SetToolTip(_T("Specify the command to run the alternative PDF viewer.\n  %f will be replaced by the file name\n  %u will be replaced by the file URL\nLeave empty to use the system default viewer."));
    $self->{sizer_12}->Add($self->{t_pdfviewer}, Wx::GBPosition->new(0, 1), Wx::GBSpan->new(1, 1), wxEXPAND, 5);
    
    my $label_9 = Wx::StaticText->new($self->{nb_pdf_preview}, wxID_ANY, _T("By default ChordPro will use a built-in viewer to preview the generated PDF output.\n\nIn case you want a different viewer, check the checkbox above, and fill in the command...
    $label_9->Wrap(750);
    $self->{sizer_3}->Add($label_9, 0, wxALL|wxEXPAND, 15);
    
    $self->{nb_html_preview} = Wx::Panel->new($self->{nb_preferences}, wxID_ANY);
    $self->{nb_preferences}->AddPage($self->{nb_html_preview}, _T("HTML Preview"));
    
    $self->{sizer_7} = Wx::BoxSizer->new(wxVERTICAL);
    
    my $label_8 = Wx::StaticText->new($self->{nb_html_preview}, wxID_ANY, _T("HTML Preview Settings"), wxDefaultPosition, wxDefaultSize, wxALIGN_CENTER_HORIZONTAL);
    $label_8->SetMinSize(Wx::Size->new(-1, 35));
    $label_8->SetForegroundColour(Wx::Colour->new(0, 104, 217));
    $label_8->SetFont(Wx::Font->new(18, wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL, wxFONTWEIGHT_NORMAL, 0, ""));
    $self->{sizer_7}->Add($label_8, 0, wxALL|wxEXPAND, 15);
    
    $self->{sizer_14} = Wx::GridBagSizer->new(15, 15);
    $self->{sizer_7}->Add($self->{sizer_14}, 0, wxEXPAND|wxLEFT|wxRIGHT, 15);
    
    $self->{cb_htmlviewer} = Wx::CheckBox->new($self->{nb_html_preview}, wxID_ANY, _T("Preview with HTML"));
    $self->{cb_htmlviewer}->SetToolTip(_T("Use HTML viewer"));
    $self->{sizer_14}->Add($self->{cb_htmlviewer}, Wx::GBPosition->new(0, 0), Wx::GBSpan->new(1, 1), wxALIGN_CENTER_VERTICAL, 0);
    
    my $label_10 = Wx::StaticText->new($self->{nb_html_preview}, wxID_ANY, _T("This is experimental, under development, incomplete, buggy, and so on.\n\nIn other words, do not use it."), wxDefaultPosition, wxDefaultSize, wxALIGN_LEFT);
    $label_10->Wrap(750);
    $self->{sizer_7}->Add($label_10, 0, wxALL|wxEXPAND, 15);
    
    $self->{sz_prefs_outer}->Add(20, 5, 0, wxEXPAND|wxTOP, 0);
    
    $self->{sz_prefs_buttons} = Wx::StdDialogButtonSizer->new();
    $self->{sz_prefs_outer}->Add($self->{sz_prefs_buttons}, 0, wxALIGN_RIGHT|wxBOTTOM, 5);
    
    $self->{b_prefs_cancel} = Wx::Button->new($self, wxID_CANCEL, "");
    $self->{b_prefs_cancel}->SetToolTip(_T("Close the dialog, discarding changes"));
    $self->{sz_prefs_buttons}->AddButton($self->{b_prefs_cancel});
    
    $self->{b_prefs_ok} = Wx::Button->new($self, wxID_OK, "");
    $self->{b_prefs_ok}->SetToolTip(_T("Apply the changes and close the dialog"));
    $self->{b_prefs_ok}->SetDefault();
    $self->{sz_prefs_buttons}->AddButton($self->{b_prefs_ok});
    
    $self->{sz_prefs_buttons}->Realize();
    
    $self->{nb_html_preview}->SetSizer($self->{sizer_7});
    
    $self->{sizer_12}->AddGrowableCol(1);
    
    $self->{nb_pdf_preview}->SetSizer($self->{sizer_3});
    
    $self->{sizer_11}->AddGrowableCol(1);
    
    $self->{nb_messages}->SetSizer($self->{sizer_4});
    
    $self->{sz_colours}->AddGrowableCol(0);
    $self->{sz_colours}->AddGrowableCol(2);
    
    $self->{sizer_10}->AddGrowableCol(1);
    
    $self->{nb_editor}->SetSizer($self->{sizer_5});
    
    $self->{sizer_13}->AddGrowableCol(1);
    
    $self->{nb_notations}->SetSizer($self->{sizer_2});
    
    $self->{sz_presets}->AddGrowableCol(1);
    
    $self->{nb_config}->SetSizer($self->{sizer_1});
    
    $self->SetSizer($self->{sz_main});
    $self->{sz_main}->Fit($self);
    $self->{sz_main}->SetSizeHints($self);
    
    $self->Layout();
    Wx::Event::EVT_CHOICE($self, $self->{ch_instrument}->GetId, $self->can('OnChangeInstrument'));
    Wx::Event::EVT_CHOICE($self, $self->{ch_style}->GetId, $self->can('OnChangeStyle'));
    Wx::Event::EVT_CHECKLISTBOX($self, $self->{ch_stylemods}->GetId, $self->can('OnChangeStylemods'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_configfile}->GetId, $self->can('OnConfigFile'));
    Wx::Event::EVT_FILEPICKER_CHANGED($self, $self->{fp_customconfig}->GetId, $self->can('OnCustomConfigChanged'));
    Wx::Event::EVT_BUTTON($self, $self->{b_createconfig}->GetId, $self->can('OnCreateConfig'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_customlib}->GetId, $self->can('OnCustomLib'));
    Wx::Event::EVT_DIRPICKER_CHANGED($self, $self->{dp_customlibrary}->GetId, $self->can('OnCustomLibChanged'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_usestdcfg}->GetId, $self->can('OnUseStdCfg'));
    Wx::Event::EVT_CHOICE($self, $self->{ch_notation}->GetId, $self->can('OnChNotation'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_xcode}->GetId, $self->can('OnCbTranscode'));
    Wx::Event::EVT_CHOICE($self, $self->{ch_xcode}->GetId, $self->can('OnChTranscode'));
    Wx::Event::EVT_FONTPICKER_CHANGED($self, $self->{fp_editor}->GetId, $self->can('OnEditorFontPickerChanged'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_editorwrap}->GetId, $self->can('OnEditorWrap'));
    Wx::Event::EVT_SPINCTRL($self, $self->{sp_editorwrap}->GetId, $self->can('OnEditorWrapIndent'));
    Wx::Event::EVT_CHOICE($self, $self->{ch_theme}->GetId, $self->can('OnThemeChanged'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_fg}->GetId, $self->can('OnColourFGChanged'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_bg}->GetId, $self->can('OnColourBGChanged'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_s1}->GetId, $self->can('OnColourS1Changed'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_s2}->GetId, $self->can('OnColourS2Changed'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_s3}->GetId, $self->can('OnColourS3Changed'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_s4}->GetId, $self->can('OnColourS4Changed'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_s5}->GetId, $self->can('OnColourS5Changed'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_s6}->GetId, $self->can('OnColourS6Changed'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_annfg}->GetId, $self->can('OnColourAnnFGChanged'));
    Wx::Event::EVT_COLOURPICKER_CHANGED($self, $self->{cp_annbg}->GetId, $self->can('OnColourAnnBGChanged'));
    Wx::Event::EVT_TEXT($self, $self->{t_prefext}->GetId, $self->can('OnPrefExtChanged'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_tmplfile}->GetId, $self->can('OnCbTmplFile'));
    Wx::Event::EVT_FONTPICKER_CHANGED($self, $self->{fp_messages}->GetId, $self->can('OnMessagesFontPickerChanged'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_pdfviewer}->GetId, $self->can('OnPDFViewer'));
    Wx::Event::EVT_CHECKBOX($self, $self->{cb_htmlviewer}->GetId, $self->can('OnHTMLViewer'));
    Wx::Event::EVT_BUTTON($self, $self->{b_prefs_cancel}->GetId, $self->can('OnCancel'));
    Wx::Event::EVT_BUTTON($self, $self->{b_prefs_ok}->GetId, $self->can('OnAccept'));

    # end wxGlade
    return $self;

}


sub OnChangeInstrument {
    my ($self, $event) = @_;
    # wxGlade: ChordPro::Wx::SettingsDialog_wxg::OnChangeInstrument <event_handler>
    warn "Event handler (OnChangeInstrument) not implemented";
    $event->Skip;
    # end wxGlade
}


sub OnChangeStyle {
    my ($self, $event) = @_;
    # wxGlade: ChordPro::Wx::SettingsDialog_wxg::OnChangeStyle <event_handler>
    warn "Event handler (OnChangeStyle) not implemented";
    $event->Skip;
    # end wxGlade
}


sub OnChangeStylemods {
    my ($self, $event) = @_;
    # wxGlade: ChordPro::Wx::SettingsDialog_wxg::OnChangeStylemods <event_handler>
    warn "Event handler (OnChangeStylemods) not implemented";
    $event->Skip;
    # end wxGlade
}


sub OnConfigFile {
    my ($self, $event) = @_;
    # wxGlade: ChordPro::Wx::SettingsDialog_wxg::OnConfigFile <event_handler>
    warn "Event handler (OnConfigFile) not implemented";
    $event->Skip;
    # end wxGlade
}


sub OnCustomConfigChanged {
    my ($self, $event) = @_;
    # wxGlade: ChordPro::Wx::SettingsDialog_wxg::OnCustomConfigChanged <event_handler>
    warn "Event handler (OnCustomConfigChanged) not implemented";
    $event->Skip;
    # end wxGlade
}


sub OnCreateConfig {
    my ($self, $event) = @_;
    # wxGlade: ChordPro::Wx::SettingsDialog_wxg::OnCreateConfig <event_handler>
    warn "Event handler (OnCreateConfig) not implemented";
    $event->Skip;
    # end wxGlade
}