Features/ToolsPrefernces: Preferences.pm

package Padre::Wx::FBP::Preferences;

# This module was generated by Padre::Plugin::FormBuilder::Perl.
# To change this module, edit the original .fbp file and regenerate.
# DO NOT MODIFY BY HAND!

use 5.008;
use strict;
use warnings;
use Padre::Wx ();
use Padre::Wx::Role::Main ();
use Padre::Wx::Editor ();

our $VERSION = '0.85';
our @ISA     = qw{
    Padre::Wx::Role::Main
    Wx::Dialog
};

sub new {
    my $class  = shift;
    my $parent = shift;

    my $self = $class->SUPER::new(
        $parent,
        -1,
        Wx::gettext("Padre Preferences"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxDEFAULT_DIALOG_STYLE | Wx::wxRESIZE_BORDER,
    );
    $self->SetSizeHints( Wx::wxDefaultSize, Wx::wxDefaultSize );

    my $treebook = Wx::Treebook->new(
        $self,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_panel3 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $m_staticText341 = Wx::StaticText->new(
        $m_panel3,
        -1,
        Wx::gettext("Editor Style"),
    );
    $m_staticText341->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $editor_style = Wx::Choice->new(
        $m_panel3,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $editor_style->SetSelection(0);

    Wx::Event::EVT_CHOICE(
        $self,
        $editor_style,
        sub {
            shift->preview_refresh(@_);
        },
    );

    my $m_staticline21 = Wx::StaticLine->new(
        $m_panel3,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $main_output_ansi = Wx::CheckBox->new(
        $m_panel3,
        -1,
        Wx::gettext("Coloured text in output window (ANSI)"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $info_on_statusbar = Wx::CheckBox->new(
        $m_panel3,
        -1,
        Wx::gettext("Show low priority info messages on status bar (not in a popup)"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $editor_right_margin_enable = Wx::CheckBox->new(
        $m_panel3,
        -1,
        Wx::gettext("Show right margin at column"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    Wx::Event::EVT_CHECKBOX(
        $self,
        $editor_right_margin_enable,
        sub {
            shift->preview_refresh(@_);
        },
    );

    my $editor_right_margin_column = Wx::TextCtrl->new(
        $m_panel3,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    Wx::Event::EVT_TEXT(
        $self,
        $editor_right_margin_column,
        sub {
            shift->preview_refresh(@_);
        },
    );

    my $m_staticText17 = Wx::StaticText->new(
        $m_panel3,
        -1,
        Wx::gettext("Editor Font"),
    );

    my $editor_font = Wx::FontPickerCtrl->new(
        $m_panel3,
        -1,
        Wx::wxNullFont,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxFNTP_DEFAULT_STYLE,
    );
    $editor_font->SetMaxPointSize(100);

    Wx::Event::EVT_FONTPICKER_CHANGED(
        $self,
        $editor_font,
        sub {
            shift->preview_refresh(@_);
        },
    );

    my $m_staticText18 = Wx::StaticText->new(
        $m_panel3,
        -1,
        Wx::gettext("Editor Current Line Background Colour"),
    );

    my $editor_currentline_color = Wx::ColourPickerCtrl->new(
        $m_panel3,
        -1,
        Wx::Colour->new( 0, 0, 0 ),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxCLRP_DEFAULT_STYLE,
    );

    Wx::Event::EVT_COLOURPICKER_CHANGED(
        $self,
        $editor_currentline_color,
        sub {
            shift->preview_refresh(@_);
        },
    );

    my $m_staticline2 = Wx::StaticLine->new(
        $m_panel3,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $m_staticText331 = Wx::StaticText->new(
        $m_panel3,
        -1,
        Wx::gettext("Appearance Preview"),
    );
    $m_staticText331->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $preview = Padre::Wx::Editor->new(
        $m_panel3,
        -1,
    );

    my $m_panel4 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $m_staticText36111 = Wx::StaticText->new(
        $m_panel4,
        -1,
        Wx::gettext("Content Assist"),
    );
    $m_staticText36111->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $m_staticline411 = Wx::StaticLine->new(
        $m_panel4,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $autocomplete_always = Wx::CheckBox->new(
        $m_panel4,
        -1,
        Wx::gettext("Autocomplete always while typing"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $autocomplete_method = Wx::CheckBox->new(
        $m_panel4,
        -1,
        Wx::gettext("Autocomplete new methods in packages"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $autocomplete_subroutine = Wx::CheckBox->new(
        $m_panel4,
        -1,
        Wx::gettext("Autocomplete new functions in scripts"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText271 = Wx::StaticText->new(
        $m_panel4,
        -1,
        Wx::gettext("Minimum length of suggestions"),
    );

    my $lang_perl5_autocomplete_min_suggestion_len = Wx::SpinCtrl->new(
        $m_panel4,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        1,
        64,
        1,
    );

    my $m_staticText281 = Wx::StaticText->new(
        $m_panel4,
        -1,
        Wx::gettext("Maximum number of suggestions"),
    );

    my $lang_perl5_autocomplete_max_suggestions = Wx::SpinCtrl->new(
        $m_panel4,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        5,
        256,
        5,
    );

    my $m_staticText291 = Wx::StaticText->new(
        $m_panel4,
        -1,
        Wx::gettext("Minimum characters for autocomplete"),
    );

    my $lang_perl5_autocomplete_min_chars = Wx::SpinCtrl->new(
        $m_panel4,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        1,
        16,
        1,
    );

    my $m_staticText3511 = Wx::StaticText->new(
        $m_panel4,
        -1,
        Wx::gettext("Braces Assist"),
    );
    $m_staticText3511->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $m_staticline4111 = Wx::StaticLine->new(
        $m_panel4,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $autocomplete_brackets = Wx::CheckBox->new(
        $m_panel4,
        -1,
        Wx::gettext("Autocomplete brackets"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $autocomplete_multiclosebracket = Wx::CheckBox->new(
        $m_panel4,
        -1,
        Wx::gettext("Add another closing bracket if there already is one"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText35111 = Wx::StaticText->new(
        $m_panel4,
        -1,
        Wx::gettext("POD"),
    );
    $m_staticText35111->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $m_staticline41111 = Wx::StaticLine->new(
        $m_panel4,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $editor_fold_pod = Wx::CheckBox->new(
        $m_panel4,
        -1,
        Wx::gettext("Auto-fold POD markup when code folding enabled"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_panel2 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $swap_ctrl_tab_alt_right = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Use panel order for Ctrl-Tab (not usage history)"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $save_autoclean = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Clean up file content on saving (for supported document types)"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText41 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("Open files"),
    );

    my $startup_files = Wx::Choice->new(
        $m_panel2,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $startup_files->SetSelection(0);

    my $m_staticText5 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("Default projects directory"),
    );

    my $default_projects_directory = Wx::DirPickerCtrl->new(
        $m_panel2,
        -1,
        "",
        "Select a folder",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxDIRP_DEFAULT_STYLE,
    );

    my $main_singleinstance = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Open files in existing Padre"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText6 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("Methods order"),
    );

    my $main_functions_order = Wx::Choice->new(
        $m_panel2,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $main_functions_order->SetSelection(0);

    my $m_staticText7 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("Prefered language for error diagnostics"),
    );

    my $locale_perldiag = Wx::Choice->new(
        $m_panel2,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $locale_perldiag->SetSelection(0);

    my $m_staticText9 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("Check for file updates on disk every (seconds)"),
    );

    my $update_file_from_disk_interval = Wx::SpinCtrl->new(
        $m_panel2,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        0,
        10,
        0,
    );

    my $m_staticText10 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("Cursor blink rate (milliseconds - 0 = off, 500 = default)"),
    );

    my $editor_cursor_blink = Wx::TextCtrl->new(
        $m_panel2,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $editor_smart_highlight_enable = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Enable Smart highlighting while typing"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $window_list_shorten_path = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Shorten the common path in window list"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $mid_button_paste = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Use X11 middle button paste style"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText11 = Wx::StaticText->new(
        $m_panel2,
        -1,
        Wx::gettext("RegExp for TODO panel"),
    );

    my $todo_regexp = Wx::TextCtrl->new(
        $m_panel2,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $startup_splash = Wx::CheckBox->new(
        $m_panel2,
        -1,
        Wx::gettext("Use splash screen"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_panel6 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $m_staticText25 = Wx::StaticText->new(
        $m_panel6,
        -1,
        Wx::gettext("Diff tool"),
    );

    my $external_diff_tool = Wx::FilePickerCtrl->new(
        $m_panel6,
        -1,
        "",
        "Select a file",
        "*.*",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxFLP_DEFAULT_STYLE,
    );

    my $m_panel1 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $editor_indent_guess = Wx::Button->new(
        $m_panel1,
        -1,
        Wx::gettext("Guess from Current Document"),
    );

    Wx::Event::EVT_BUTTON(
        $self,
        $editor_indent_guess,
        sub {
            shift->guess(@_);
        },
    );

    my $editor_indent_auto = Wx::CheckBox->new(
        $m_panel1,
        -1,
        Wx::gettext("Automatic indentation style detection"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $editor_indent_tab = Wx::CheckBox->new(
        $m_panel1,
        -1,
        Wx::gettext("Use Tabs"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText2 = Wx::StaticText->new(
        $m_panel1,
        -1,
        Wx::gettext("Tab display size (in spaces)"),
    );

    my $editor_indent_tab_width = Wx::SpinCtrl->new(
        $m_panel1,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        1,
        16,
        8,
    );

    my $m_staticText3 = Wx::StaticText->new(
        $m_panel1,
        -1,
        Wx::gettext("Indentation width (in columns)"),
    );

    my $editor_indent_width = Wx::SpinCtrl->new(
        $m_panel1,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        1,
        10,
        8,
    );

    my $m_staticText4 = Wx::StaticText->new(
        $m_panel1,
        -1,
        Wx::gettext("Autoindent"),
    );

    my $editor_autoindent = Wx::Choice->new(
        $m_panel1,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $editor_autoindent->SetSelection(0);

    my $m_panel7 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $m_staticText39 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Language Integration"),
    );
    $m_staticText39->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $m_staticline10 = Wx::StaticLine->new(
        $m_panel7,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $m_staticText34 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Perl interpreter"),
    );

    my $run_perl_cmd = Wx::TextCtrl->new(
        $m_panel7,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $run_use_external_window = Wx::CheckBox->new(
        $m_panel7,
        -1,
        Wx::gettext("Use external window for execution"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText35 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Interpreter arguments"),
    );

    my $run_interpreter_args_default = Wx::TextCtrl->new(
        $m_panel7,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText36 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Include directory:  -I<dir>\nEnable tainting checks:  -T\nEnable many useful warnings:  -w\nEnable all warnings:  -W\nDisable all warnings:  -X"),
    );

    my $m_staticText37 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Script arguments"),
    );

    my $run_script_args_default = Wx::TextCtrl->new(
        $m_panel7,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText351 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Editor Options"),
    );
    $m_staticText351->SetFont(
        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
    );

    my $m_staticline11 = Wx::StaticLine->new(
        $m_panel7,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $lang_perl5_beginner = Wx::CheckBox->new(
        $m_panel7,
        -1,
        Wx::gettext("Perl beginner mode"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $editor_wordwrap = Wx::CheckBox->new(
        $m_panel7,
        -1,
        Wx::gettext("Default word wrap on for each file"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticText8 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Default line ending"),
    );

    my $default_line_ending = Wx::Choice->new(
        $m_panel7,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $default_line_ending->SetSelection(0);

    my $m_staticText371 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Syntax Highlighter"),
    );

    my $lang_perl5_lexer = Wx::Choice->new(
        $m_panel7,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        [],
    );
    $lang_perl5_lexer->SetSelection(0);

    my $m_staticText26 = Wx::StaticText->new(
        $m_panel7,
        -1,
        Wx::gettext("Perl ctags file"),
    );

    my $lang_perl5_tags_file = Wx::FilePickerCtrl->new(
        $m_panel7,
        -1,
        "",
        "Select a file",
        "*.*",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxFLP_DEFAULT_STYLE,
    );

    my $m_panel8 = Wx::Panel->new(
        $treebook,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxTAB_TRAVERSAL,
    );

    my $m_staticText30 = Wx::StaticText->new(
        $m_panel8,
        -1,
        Wx::gettext("File access via HTTP"),
    );

    my $m_staticText31 = Wx::StaticText->new(
        $m_panel8,
        -1,
        Wx::gettext("Timeout (in seconds)"),
    );

    my $file_http_timeout = Wx::SpinCtrl->new(
        $m_panel8,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        10,
        900,
        10,
    );

    my $m_staticText32 = Wx::StaticText->new(
        $m_panel8,
        -1,
        Wx::gettext("File access via FTP"),
    );

    my $m_staticText33 = Wx::StaticText->new(
        $m_panel8,
        -1,
        Wx::gettext("Timeout (in seconds)"),
    );

    my $file_ftp_timeout = Wx::SpinCtrl->new(
        $m_panel8,
        -1,
        "",
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxSP_ARROW_KEYS,
        10,
        900,
        10,
    );

    my $file_ftp_passive = Wx::CheckBox->new(
        $m_panel8,
        -1,
        Wx::gettext("Use FTP passive mode"),
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
    );

    my $m_staticline1 = Wx::StaticLine->new(
        $self,
        -1,
        Wx::wxDefaultPosition,
        Wx::wxDefaultSize,
        Wx::wxLI_HORIZONTAL,
    );

    my $save = Wx::Button->new(
        $self,
        Wx::wxID_OK,
        Wx::gettext("Save"),
    );
    $save->SetDefault;

    my $advanced = Wx::Button->new(
        $self,
        -1,
        Wx::gettext("Advanced..."),
    );

    Wx::Event::EVT_BUTTON(
        $self,
        $advanced,
        sub {
            shift->advanced(@_);
        },
    );

    my $cancel = Wx::Button->new(
        $self,
        -1,
        Wx::gettext("Cancel"),
    );

    Wx::Event::EVT_BUTTON(
        $self,
        $cancel,
        sub {
            shift->cancel(@_);
        },
    );

    my $fgSizer91 = Wx::FlexGridSizer->new( 1, 2, 0, 0 );
    $fgSizer91->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer91->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer91->Add( $m_staticText341, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer91->Add( $editor_style, 0, Wx::wxALL, 5 );

    my $fgSizer4 = Wx::FlexGridSizer->new( 6, 2, 0, 10 );
    $fgSizer4->AddGrowableCol(0);
    $fgSizer4->AddGrowableCol(1);
    $fgSizer4->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer4->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer4->Add( $main_output_ansi, 0, Wx::wxALL, 5 );
    $fgSizer4->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer4->Add( $info_on_statusbar, 0, Wx::wxALL, 5 );
    $fgSizer4->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer4->Add( $editor_right_margin_enable, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer4->Add( $editor_right_margin_column, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer4->Add( $m_staticText17, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer4->Add( $editor_font, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer4->Add( $m_staticText18, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer4->Add( $editor_currentline_color, 0, Wx::wxALL | Wx::wxEXPAND, 5 );

    my $bSizer4 = Wx::BoxSizer->new(Wx::wxVERTICAL);
    $bSizer4->Add( $fgSizer91, 0, Wx::wxEXPAND, 5 );
    $bSizer4->Add( $m_staticline21, 0, Wx::wxBOTTOM | Wx::wxEXPAND | Wx::wxTOP, 5 );
    $bSizer4->Add( $fgSizer4, 0, Wx::wxEXPAND, 0 );
    $bSizer4->Add( $m_staticline2, 0, Wx::wxBOTTOM | Wx::wxEXPAND | Wx::wxTOP, 5 );
    $bSizer4->Add( $m_staticText331, 0, Wx::wxALL, 5 );
    $bSizer4->Add( $preview, 1, Wx::wxEXPAND | Wx::wxTOP, 5 );

    $m_panel3->SetSizer($bSizer4);
    $m_panel3->Layout;
    $bSizer4->Fit($m_panel3);

    my $fgSizer411 = Wx::FlexGridSizer->new( 6, 2, 0, 0 );
    $fgSizer411->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer411->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer411->Add( $autocomplete_always, 0, Wx::wxALL, 5 );
    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer411->Add( $autocomplete_method, 0, Wx::wxALL, 5 );
    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer411->Add( $autocomplete_subroutine, 0, Wx::wxALL, 5 );
    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer411->Add( $m_staticText271, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer411->Add( $lang_perl5_autocomplete_min_suggestion_len, 0, Wx::wxALL, 5 );
    $fgSizer411->Add( $m_staticText281, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer411->Add( $lang_perl5_autocomplete_max_suggestions, 0, Wx::wxALL, 5 );
    $fgSizer411->Add( $m_staticText291, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer411->Add( $lang_perl5_autocomplete_min_chars, 0, Wx::wxALL, 5 );
    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );

    my $fgSizer412 = Wx::FlexGridSizer->new( 2, 1, 0, 0 );
    $fgSizer412->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer412->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer412->Add( $autocomplete_brackets, 0, Wx::wxALL, 5 );
    $fgSizer412->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer412->Add( $autocomplete_multiclosebracket, 0, Wx::wxALL, 5 );

    my $fgSizer413 = Wx::FlexGridSizer->new( 1, 1, 0, 0 );
    $fgSizer413->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer413->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer413->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer413->Add( $editor_fold_pod, 0, Wx::wxALL, 5 );
    $fgSizer413->Add( 0, 0, 1, Wx::wxEXPAND, 5 );

    my $bSizer41 = Wx::BoxSizer->new(Wx::wxVERTICAL);
    $bSizer41->Add( $m_staticText36111, 0, Wx::wxALL, 5 );
    $bSizer41->Add( $m_staticline411, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
    $bSizer41->Add( $fgSizer411, 0, Wx::wxEXPAND, 5 );
    $bSizer41->Add( $m_staticText3511, 0, Wx::wxALL, 5 );
    $bSizer41->Add( $m_staticline4111, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
    $bSizer41->Add( $fgSizer412, 0, Wx::wxEXPAND, 5 );
    $bSizer41->Add( $m_staticText35111, 0, Wx::wxALL, 5 );
    $bSizer41->Add( $m_staticline41111, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
    $bSizer41->Add( $fgSizer413, 0, Wx::wxEXPAND, 5 );

    $m_panel4->SetSizer($bSizer41);
    $m_panel4->Layout;
    $bSizer41->Fit($m_panel4);

    my $fgSizer3 = Wx::FlexGridSizer->new( 14, 2, 0, 0 );
    $fgSizer3->AddGrowableCol(0);
    $fgSizer3->AddGrowableCol(1);
    $fgSizer3->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer3->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_NONE);
    $fgSizer3->Add( $swap_ctrl_tab_alt_right, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $save_autoclean, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText41, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer3->Add( $startup_files, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText5, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer3->Add( $default_projects_directory, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $main_singleinstance, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText6, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer3->Add( $main_functions_order, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText7, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer3->Add( $locale_perldiag, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText9, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer3->Add( $update_file_from_disk_interval, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText10, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( $editor_cursor_blink, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $editor_smart_highlight_enable, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $window_list_shorten_path, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $mid_button_paste, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $m_staticText11, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( $todo_regexp, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer3->Add( $startup_splash, 0, Wx::wxALL, 5 );
    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );

    $m_panel2->SetSizer($fgSizer3);
    $m_panel2->Layout;
    $fgSizer3->Fit($m_panel2);

    my $fgSizer6 = Wx::FlexGridSizer->new( 1, 2, 0, 0 );
    $fgSizer6->AddGrowableCol(1);
    $fgSizer6->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer6->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer6->Add( $m_staticText25, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer6->Add( $external_diff_tool, 0, Wx::wxALL | Wx::wxEXPAND, 5 );

    $m_panel6->SetSizer($fgSizer6);
    $m_panel6->Layout;
    $fgSizer6->Fit($m_panel6);

    my $fgSizer2 = Wx::FlexGridSizer->new( 6, 2, 0, 0 );
    $fgSizer2->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer2->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_ALL);
    $fgSizer2->Add( $editor_indent_guess, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer2->Add( $editor_indent_auto, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer2->Add( $editor_indent_tab, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer2->Add( $m_staticText2, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( $editor_indent_tab_width, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( $m_staticText3, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( $editor_indent_width, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( $m_staticText4, 0, Wx::wxALL, 5 );
    $fgSizer2->Add( $editor_autoindent, 0, Wx::wxALL, 5 );

    $m_panel1->SetSizer($fgSizer2);
    $m_panel1->Layout;
    $fgSizer2->Fit($m_panel1);

    my $fgSizer71 = Wx::FlexGridSizer->new( 5, 2, 0, 0 );
    $fgSizer71->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer71->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_ALL);
    $fgSizer71->Add( $m_staticText34, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer71->Add( $run_perl_cmd, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer71->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer71->Add( $run_use_external_window, 0, Wx::wxALL, 5 );
    $fgSizer71->Add( $m_staticText35, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer71->Add( $run_interpreter_args_default, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer71->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer71->Add( $m_staticText36, 0, Wx::wxALL, 5 );
    $fgSizer71->Add( $m_staticText37, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer71->Add( $run_script_args_default, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer71->Add( 0, 0, 1, Wx::wxEXPAND, 5 );

    my $fgSizer72 = Wx::FlexGridSizer->new( 5, 2, 0, 0 );
    $fgSizer72->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer72->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_ALL);
    $fgSizer72->Add( $lang_perl5_beginner, 0, Wx::wxALL, 5 );
    $fgSizer72->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer72->Add( $editor_wordwrap, 0, Wx::wxALL, 5 );
    $fgSizer72->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer72->Add( $m_staticText8, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer72->Add( $default_line_ending, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer72->Add( $m_staticText371, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer72->Add( $lang_perl5_lexer, 0, Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
    $fgSizer72->Add( $m_staticText26, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer72->Add( $lang_perl5_tags_file, 0, Wx::wxALL | Wx::wxEXPAND, 5 );

    my $bSizer71 = Wx::BoxSizer->new(Wx::wxVERTICAL);
    $bSizer71->Add( $m_staticText39, 0, Wx::wxALL, 5 );
    $bSizer71->Add( $m_staticline10, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
    $bSizer71->Add( $fgSizer71, 0, 0, 5 );
    $bSizer71->Add( $m_staticText351, 0, Wx::wxALL, 5 );
    $bSizer71->Add( $m_staticline11, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
    $bSizer71->Add( $fgSizer72, 0, 0, 5 );

    $m_panel7->SetSizer($bSizer71);
    $m_panel7->Layout;
    $bSizer71->Fit($m_panel7);

    my $fgSizer8 = Wx::FlexGridSizer->new( 5, 2, 0, 0 );
    $fgSizer8->SetFlexibleDirection(Wx::wxBOTH);
    $fgSizer8->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
    $fgSizer8->Add( $m_staticText30, 0, Wx::wxALL, 5 );
    $fgSizer8->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer8->Add( $m_staticText31, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer8->Add( $file_http_timeout, 0, Wx::wxALL, 5 );
    $fgSizer8->Add( $m_staticText32, 0, Wx::wxALL, 5 );
    $fgSizer8->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
    $fgSizer8->Add( $m_staticText33, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
    $fgSizer8->Add( $file_ftp_timeout, 0, Wx::wxALL, 5 );
    $fgSizer8->Add( $file_ftp_passive, 0, Wx::wxALL, 5 );

    $m_panel8->SetSizer($fgSizer8);
    $m_panel8->Layout;
    $fgSizer8->Fit($m_panel8);

    $treebook->AddPage( $m_panel3, Wx::gettext("Appearance"), 0 );
    $treebook->AddPage( $m_panel4, Wx::gettext("Auto-Complete"), 0 );
    $treebook->AddPage( $m_panel2, Wx::gettext("Behaviour"), 0 );
    $treebook->AddPage( $m_panel6, Wx::gettext("External Tools"), 0 );
    $treebook->AddPage( $m_panel1, Wx::gettext("Indentation"), 0 );
    $treebook->AddPage( $m_panel7, Wx::gettext("Language - Perl 5"), 1 );
    $treebook->AddPage( $m_panel8, Wx::gettext("Local/Remote File Access"), 0 );

    my $buttons = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
    $buttons->Add( $save, 0, Wx::wxALL, 5 );
    $buttons->Add( $advanced, 0, Wx::wxALL, 5 );
    $buttons->Add( $cancel, 0, Wx::wxALL, 5 );

    my $vsizer = Wx::BoxSizer->new(Wx::wxVERTICAL);
    $vsizer->Add( $treebook, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
    $vsizer->Add( $m_staticline1, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
    $vsizer->Add( $buttons, 0, Wx::wxALIGN_RIGHT, 5 );

    my $hsizer = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
    $hsizer->Add( $vsizer, 1, Wx::wxALL | Wx::wxEXPAND, 5 );

    $self->SetSizer($hsizer);
    $self->Layout;
    $hsizer->Fit($self);
    $hsizer->SetSizeHints($self);

    $self->{treebook} = $treebook->GetId;
    $self->{editor_style} = $editor_style->GetId;
    $self->{main_output_ansi} = $main_output_ansi->GetId;
    $self->{info_on_statusbar} = $info_on_statusbar->GetId;
    $self->{editor_right_margin_enable} = $editor_right_margin_enable->GetId;
    $self->{editor_right_margin_column} = $editor_right_margin_column->GetId;
    $self->{editor_font} = $editor_font->GetId;
    $self->{editor_currentline_color} = $editor_currentline_color->GetId;
    $self->{preview} = $preview->GetId;
    $self->{autocomplete_always} = $autocomplete_always->GetId;
    $self->{autocomplete_method} = $autocomplete_method->GetId;
    $self->{autocomplete_subroutine} = $autocomplete_subroutine->GetId;
    $self->{lang_perl5_autocomplete_min_suggestion_len} = $lang_perl5_autocomplete_min_suggestion_len->GetId;
    $self->{lang_perl5_autocomplete_max_suggestions} = $lang_perl5_autocomplete_max_suggestions->GetId;
    $self->{lang_perl5_autocomplete_min_chars} = $lang_perl5_autocomplete_min_chars->GetId;
    $self->{autocomplete_brackets} = $autocomplete_brackets->GetId;
    $self->{autocomplete_multiclosebracket} = $autocomplete_multiclosebracket->GetId;
    $self->{editor_fold_pod} = $editor_fold_pod->GetId;
    $self->{swap_ctrl_tab_alt_right} = $swap_ctrl_tab_alt_right->GetId;
    $self->{save_autoclean} = $save_autoclean->GetId;
    $self->{startup_files} = $startup_files->GetId;
    $self->{default_projects_directory} = $default_projects_directory->GetId;
    $self->{main_singleinstance} = $main_singleinstance->GetId;
    $self->{main_functions_order} = $main_functions_order->GetId;
    $self->{locale_perldiag} = $locale_perldiag->GetId;
    $self->{update_file_from_disk_interval} = $update_file_from_disk_interval->GetId;
    $self->{editor_cursor_blink} = $editor_cursor_blink->GetId;
    $self->{editor_smart_highlight_enable} = $editor_smart_highlight_enable->GetId;
    $self->{window_list_shorten_path} = $window_list_shorten_path->GetId;
    $self->{mid_button_paste} = $mid_button_paste->GetId;
    $self->{todo_regexp} = $todo_regexp->GetId;
    $self->{startup_splash} = $startup_splash->GetId;
    $self->{external_diff_tool} = $external_diff_tool->GetId;
    $self->{editor_indent_auto} = $editor_indent_auto->GetId;
    $self->{editor_indent_tab} = $editor_indent_tab->GetId;
    $self->{editor_indent_tab_width} = $editor_indent_tab_width->GetId;
    $self->{editor_indent_width} = $editor_indent_width->GetId;
    $self->{editor_autoindent} = $editor_autoindent->GetId;
    $self->{run_perl_cmd} = $run_perl_cmd->GetId;
    $self->{run_use_external_window} = $run_use_external_window->GetId;
    $self->{run_interpreter_args_default} = $run_interpreter_args_default->GetId;
    $self->{run_script_args_default} = $run_script_args_default->GetId;
    $self->{lang_perl5_beginner} = $lang_perl5_beginner->GetId;
    $self->{editor_wordwrap} = $editor_wordwrap->GetId;
    $self->{default_line_ending} = $default_line_ending->GetId;
    $self->{lang_perl5_lexer} = $lang_perl5_lexer->GetId;
    $self->{lang_perl5_tags_file} = $lang_perl5_tags_file->GetId;
    $self->{file_http_timeout} = $file_http_timeout->GetId;
    $self->{file_ftp_timeout} = $file_ftp_timeout->GetId;
    $self->{file_ftp_passive} = $file_ftp_passive->GetId;

    return $self;
}

sub treebook {
    Wx::Window::FindWindowById($_[0]->{treebook});
}

sub editor_style {
    Wx::Window::FindWindowById($_[0]->{editor_style});
}

sub main_output_ansi {
    Wx::Window::FindWindowById($_[0]->{main_output_ansi});
}

sub info_on_statusbar {
    Wx::Window::FindWindowById($_[0]->{info_on_statusbar});
}

sub editor_right_margin_enable {
    Wx::Window::FindWindowById($_[0]->{editor_right_margin_enable});
}

sub editor_right_margin_column {
    Wx::Window::FindWindowById($_[0]->{editor_right_margin_column});
}

sub editor_font {
    Wx::Window::FindWindowById($_[0]->{editor_font});
}

sub editor_currentline_color {
    Wx::Window::FindWindowById($_[0]->{editor_currentline_color});
}

sub preview {
    Wx::Window::FindWindowById($_[0]->{preview});
}

sub autocomplete_always {
    Wx::Window::FindWindowById($_[0]->{autocomplete_always});
}

sub autocomplete_method {
    Wx::Window::FindWindowById($_[0]->{autocomplete_method});
}

sub autocomplete_subroutine {
    Wx::Window::FindWindowById($_[0]->{autocomplete_subroutine});
}

sub lang_perl5_autocomplete_min_suggestion_len {
    Wx::Window::FindWindowById($_[0]->{lang_perl5_autocomplete_min_suggestion_len});
}

sub lang_perl5_autocomplete_max_suggestions {
    Wx::Window::FindWindowById($_[0]->{lang_perl5_autocomplete_max_suggestions});
}

sub lang_perl5_autocomplete_min_chars {
    Wx::Window::FindWindowById($_[0]->{lang_perl5_autocomplete_min_chars});
}

sub autocomplete_brackets {
    Wx::Window::FindWindowById($_[0]->{autocomplete_brackets});
}

sub autocomplete_multiclosebracket {
    Wx::Window::FindWindowById($_[0]->{autocomplete_multiclosebracket});
}

sub editor_fold_pod {
    Wx::Window::FindWindowById($_[0]->{editor_fold_pod});
}

sub swap_ctrl_tab_alt_right {
    Wx::Window::FindWindowById($_[0]->{swap_ctrl_tab_alt_right});
}

sub save_autoclean {
    Wx::Window::FindWindowById($_[0]->{save_autoclean});
}

sub startup_files {
    Wx::Window::FindWindowById($_[0]->{startup_files});
}

sub default_projects_directory {
    Wx::Window::FindWindowById($_[0]->{default_projects_directory});
}

sub main_singleinstance {
    Wx::Window::FindWindowById($_[0]->{main_singleinstance});
}

sub main_functions_order {
    Wx::Window::FindWindowById($_[0]->{main_functions_order});
}

sub locale_perldiag {
    Wx::Window::FindWindowById($_[0]->{locale_perldiag});
}

sub update_file_from_disk_interval {
    Wx::Window::FindWindowById($_[0]->{update_file_from_disk_interval});
}

sub editor_cursor_blink {
    Wx::Window::FindWindowById($_[0]->{editor_cursor_blink});
}

sub editor_smart_highlight_enable {
    Wx::Window::FindWindowById($_[0]->{editor_smart_highlight_enable});
}

sub window_list_shorten_path {
    Wx::Window::FindWindowById($_[0]->{window_list_shorten_path});
}

sub mid_button_paste {
    Wx::Window::FindWindowById($_[0]->{mid_button_paste});
}

sub todo_regexp {
    Wx::Window::FindWindowById($_[0]->{todo_regexp});
}

sub startup_splash {
    Wx::Window::FindWindowById($_[0]->{startup_splash});
}

sub external_diff_tool {
    Wx::Window::FindWindowById($_[0]->{external_diff_tool});
}

sub editor_indent_auto {
    Wx::Window::FindWindowById($_[0]->{editor_indent_auto});
}

sub editor_indent_tab {
    Wx::Window::FindWindowById($_[0]->{editor_indent_tab});
}

sub editor_indent_tab_width {
    Wx::Window::FindWindowById($_[0]->{editor_indent_tab_width});
}

sub editor_indent_width {
    Wx::Window::FindWindowById($_[0]->{editor_indent_width});
}

sub editor_autoindent {
    Wx::Window::FindWindowById($_[0]->{editor_autoindent});
}

sub run_perl_cmd {
    Wx::Window::FindWindowById($_[0]->{run_perl_cmd});
}

sub run_use_external_window {
    Wx::Window::FindWindowById($_[0]->{run_use_external_window});
}

sub run_interpreter_args_default {
    Wx::Window::FindWindowById($_[0]->{run_interpreter_args_default});
}

sub run_script_args_default {
    Wx::Window::FindWindowById($_[0]->{run_script_args_default});
}

sub lang_perl5_beginner {
    Wx::Window::FindWindowById($_[0]->{lang_perl5_beginner});
}

sub editor_wordwrap {
    Wx::Window::FindWindowById($_[0]->{editor_wordwrap});
}

sub default_line_ending {
    Wx::Window::FindWindowById($_[0]->{default_line_ending});
}

sub lang_perl5_lexer {
    Wx::Window::FindWindowById($_[0]->{lang_perl5_lexer});
}

sub lang_perl5_tags_file {
    Wx::Window::FindWindowById($_[0]->{lang_perl5_tags_file});
}

sub file_http_timeout {
    Wx::Window::FindWindowById($_[0]->{file_http_timeout});
}

sub file_ftp_timeout {
    Wx::Window::FindWindowById($_[0]->{file_ftp_timeout});
}

sub file_ftp_passive {
    Wx::Window::FindWindowById($_[0]->{file_ftp_passive});
}

sub preview_refresh {
    $_[0]->main->error('Handler method preview_refresh for event editor_style.OnChoice not implemented');
}

sub guess {
    $_[0]->main->error('Handler method guess for event editor_indent_guess.OnButtonClick not implemented');
}

sub advanced {
    $_[0]->main->error('Handler method advanced for event advanced.OnButtonClick not implemented');
}

sub cancel {
    $_[0]->main->error('Handler method cancel for event cancel.OnButtonClick not implemented');
}

1;

# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.