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, ""));