Features/ToolsPrefernces: Preferences.pm

File Preferences.pm, 35.9 KB (added by bowtie, 4 years ago)

Preferences-Suggested

Line 
1package Padre::Wx::FBP::Preferences;
2
3# This module was generated by Padre::Plugin::FormBuilder::Perl.
4# To change this module, edit the original .fbp file and regenerate.
5# DO NOT MODIFY BY HAND!
6
7use 5.008;
8use strict;
9use warnings;
10use Padre::Wx ();
11use Padre::Wx::Role::Main ();
12use Padre::Wx::Editor ();
13
14our $VERSION = '0.85';
15our @ISA     = qw{
16    Padre::Wx::Role::Main
17    Wx::Dialog
18};
19
20sub new {
21    my $class  = shift;
22    my $parent = shift;
23
24    my $self = $class->SUPER::new(
25        $parent,
26        -1,
27        Wx::gettext("Padre Preferences"),
28        Wx::wxDefaultPosition,
29        Wx::wxDefaultSize,
30        Wx::wxDEFAULT_DIALOG_STYLE | Wx::wxRESIZE_BORDER,
31    );
32    $self->SetSizeHints( Wx::wxDefaultSize, Wx::wxDefaultSize );
33
34    my $treebook = Wx::Treebook->new(
35        $self,
36        -1,
37        Wx::wxDefaultPosition,
38        Wx::wxDefaultSize,
39    );
40
41    my $m_panel3 = Wx::Panel->new(
42        $treebook,
43        -1,
44        Wx::wxDefaultPosition,
45        Wx::wxDefaultSize,
46        Wx::wxTAB_TRAVERSAL,
47    );
48
49    my $m_staticText341 = Wx::StaticText->new(
50        $m_panel3,
51        -1,
52        Wx::gettext("Editor Style"),
53    );
54    $m_staticText341->SetFont(
55        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
56    );
57
58    my $editor_style = Wx::Choice->new(
59        $m_panel3,
60        -1,
61        Wx::wxDefaultPosition,
62        Wx::wxDefaultSize,
63        [],
64    );
65    $editor_style->SetSelection(0);
66
67    Wx::Event::EVT_CHOICE(
68        $self,
69        $editor_style,
70        sub {
71            shift->preview_refresh(@_);
72        },
73    );
74
75    my $m_staticline21 = Wx::StaticLine->new(
76        $m_panel3,
77        -1,
78        Wx::wxDefaultPosition,
79        Wx::wxDefaultSize,
80        Wx::wxLI_HORIZONTAL,
81    );
82
83    my $main_output_ansi = Wx::CheckBox->new(
84        $m_panel3,
85        -1,
86        Wx::gettext("Coloured text in output window (ANSI)"),
87        Wx::wxDefaultPosition,
88        Wx::wxDefaultSize,
89    );
90
91    my $info_on_statusbar = Wx::CheckBox->new(
92        $m_panel3,
93        -1,
94        Wx::gettext("Show low priority info messages on status bar (not in a popup)"),
95        Wx::wxDefaultPosition,
96        Wx::wxDefaultSize,
97    );
98
99    my $editor_right_margin_enable = Wx::CheckBox->new(
100        $m_panel3,
101        -1,
102        Wx::gettext("Show right margin at column"),
103        Wx::wxDefaultPosition,
104        Wx::wxDefaultSize,
105    );
106
107    Wx::Event::EVT_CHECKBOX(
108        $self,
109        $editor_right_margin_enable,
110        sub {
111            shift->preview_refresh(@_);
112        },
113    );
114
115    my $editor_right_margin_column = Wx::TextCtrl->new(
116        $m_panel3,
117        -1,
118        "",
119        Wx::wxDefaultPosition,
120        Wx::wxDefaultSize,
121    );
122
123    Wx::Event::EVT_TEXT(
124        $self,
125        $editor_right_margin_column,
126        sub {
127            shift->preview_refresh(@_);
128        },
129    );
130
131    my $m_staticText17 = Wx::StaticText->new(
132        $m_panel3,
133        -1,
134        Wx::gettext("Editor Font"),
135    );
136
137    my $editor_font = Wx::FontPickerCtrl->new(
138        $m_panel3,
139        -1,
140        Wx::wxNullFont,
141        Wx::wxDefaultPosition,
142        Wx::wxDefaultSize,
143        Wx::wxFNTP_DEFAULT_STYLE,
144    );
145    $editor_font->SetMaxPointSize(100);
146
147    Wx::Event::EVT_FONTPICKER_CHANGED(
148        $self,
149        $editor_font,
150        sub {
151            shift->preview_refresh(@_);
152        },
153    );
154
155    my $m_staticText18 = Wx::StaticText->new(
156        $m_panel3,
157        -1,
158        Wx::gettext("Editor Current Line Background Colour"),
159    );
160
161    my $editor_currentline_color = Wx::ColourPickerCtrl->new(
162        $m_panel3,
163        -1,
164        Wx::Colour->new( 0, 0, 0 ),
165        Wx::wxDefaultPosition,
166        Wx::wxDefaultSize,
167        Wx::wxCLRP_DEFAULT_STYLE,
168    );
169
170    Wx::Event::EVT_COLOURPICKER_CHANGED(
171        $self,
172        $editor_currentline_color,
173        sub {
174            shift->preview_refresh(@_);
175        },
176    );
177
178    my $m_staticline2 = Wx::StaticLine->new(
179        $m_panel3,
180        -1,
181        Wx::wxDefaultPosition,
182        Wx::wxDefaultSize,
183        Wx::wxLI_HORIZONTAL,
184    );
185
186    my $m_staticText331 = Wx::StaticText->new(
187        $m_panel3,
188        -1,
189        Wx::gettext("Appearance Preview"),
190    );
191    $m_staticText331->SetFont(
192        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
193    );
194
195    my $preview = Padre::Wx::Editor->new(
196        $m_panel3,
197        -1,
198    );
199
200    my $m_panel4 = Wx::Panel->new(
201        $treebook,
202        -1,
203        Wx::wxDefaultPosition,
204        Wx::wxDefaultSize,
205        Wx::wxTAB_TRAVERSAL,
206    );
207
208    my $m_staticText36111 = Wx::StaticText->new(
209        $m_panel4,
210        -1,
211        Wx::gettext("Content Assist"),
212    );
213    $m_staticText36111->SetFont(
214        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
215    );
216
217    my $m_staticline411 = Wx::StaticLine->new(
218        $m_panel4,
219        -1,
220        Wx::wxDefaultPosition,
221        Wx::wxDefaultSize,
222        Wx::wxLI_HORIZONTAL,
223    );
224
225    my $autocomplete_always = Wx::CheckBox->new(
226        $m_panel4,
227        -1,
228        Wx::gettext("Autocomplete always while typing"),
229        Wx::wxDefaultPosition,
230        Wx::wxDefaultSize,
231    );
232
233    my $autocomplete_method = Wx::CheckBox->new(
234        $m_panel4,
235        -1,
236        Wx::gettext("Autocomplete new methods in packages"),
237        Wx::wxDefaultPosition,
238        Wx::wxDefaultSize,
239    );
240
241    my $autocomplete_subroutine = Wx::CheckBox->new(
242        $m_panel4,
243        -1,
244        Wx::gettext("Autocomplete new functions in scripts"),
245        Wx::wxDefaultPosition,
246        Wx::wxDefaultSize,
247    );
248
249    my $m_staticText271 = Wx::StaticText->new(
250        $m_panel4,
251        -1,
252        Wx::gettext("Minimum length of suggestions"),
253    );
254
255    my $lang_perl5_autocomplete_min_suggestion_len = Wx::SpinCtrl->new(
256        $m_panel4,
257        -1,
258        "",
259        Wx::wxDefaultPosition,
260        Wx::wxDefaultSize,
261        Wx::wxSP_ARROW_KEYS,
262        1,
263        64,
264        1,
265    );
266
267    my $m_staticText281 = Wx::StaticText->new(
268        $m_panel4,
269        -1,
270        Wx::gettext("Maximum number of suggestions"),
271    );
272
273    my $lang_perl5_autocomplete_max_suggestions = Wx::SpinCtrl->new(
274        $m_panel4,
275        -1,
276        "",
277        Wx::wxDefaultPosition,
278        Wx::wxDefaultSize,
279        Wx::wxSP_ARROW_KEYS,
280        5,
281        256,
282        5,
283    );
284
285    my $m_staticText291 = Wx::StaticText->new(
286        $m_panel4,
287        -1,
288        Wx::gettext("Minimum characters for autocomplete"),
289    );
290
291    my $lang_perl5_autocomplete_min_chars = Wx::SpinCtrl->new(
292        $m_panel4,
293        -1,
294        "",
295        Wx::wxDefaultPosition,
296        Wx::wxDefaultSize,
297        Wx::wxSP_ARROW_KEYS,
298        1,
299        16,
300        1,
301    );
302
303    my $m_staticText3511 = Wx::StaticText->new(
304        $m_panel4,
305        -1,
306        Wx::gettext("Braces Assist"),
307    );
308    $m_staticText3511->SetFont(
309        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
310    );
311
312    my $m_staticline4111 = Wx::StaticLine->new(
313        $m_panel4,
314        -1,
315        Wx::wxDefaultPosition,
316        Wx::wxDefaultSize,
317        Wx::wxLI_HORIZONTAL,
318    );
319
320    my $autocomplete_brackets = Wx::CheckBox->new(
321        $m_panel4,
322        -1,
323        Wx::gettext("Autocomplete brackets"),
324        Wx::wxDefaultPosition,
325        Wx::wxDefaultSize,
326    );
327
328    my $autocomplete_multiclosebracket = Wx::CheckBox->new(
329        $m_panel4,
330        -1,
331        Wx::gettext("Add another closing bracket if there already is one"),
332        Wx::wxDefaultPosition,
333        Wx::wxDefaultSize,
334    );
335
336    my $m_staticText35111 = Wx::StaticText->new(
337        $m_panel4,
338        -1,
339        Wx::gettext("POD"),
340    );
341    $m_staticText35111->SetFont(
342        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
343    );
344
345    my $m_staticline41111 = Wx::StaticLine->new(
346        $m_panel4,
347        -1,
348        Wx::wxDefaultPosition,
349        Wx::wxDefaultSize,
350        Wx::wxLI_HORIZONTAL,
351    );
352
353    my $editor_fold_pod = Wx::CheckBox->new(
354        $m_panel4,
355        -1,
356        Wx::gettext("Auto-fold POD markup when code folding enabled"),
357        Wx::wxDefaultPosition,
358        Wx::wxDefaultSize,
359    );
360
361    my $m_panel2 = Wx::Panel->new(
362        $treebook,
363        -1,
364        Wx::wxDefaultPosition,
365        Wx::wxDefaultSize,
366        Wx::wxTAB_TRAVERSAL,
367    );
368
369    my $swap_ctrl_tab_alt_right = Wx::CheckBox->new(
370        $m_panel2,
371        -1,
372        Wx::gettext("Use panel order for Ctrl-Tab (not usage history)"),
373        Wx::wxDefaultPosition,
374        Wx::wxDefaultSize,
375    );
376
377    my $save_autoclean = Wx::CheckBox->new(
378        $m_panel2,
379        -1,
380        Wx::gettext("Clean up file content on saving (for supported document types)"),
381        Wx::wxDefaultPosition,
382        Wx::wxDefaultSize,
383    );
384
385    my $m_staticText41 = Wx::StaticText->new(
386        $m_panel2,
387        -1,
388        Wx::gettext("Open files"),
389    );
390
391    my $startup_files = Wx::Choice->new(
392        $m_panel2,
393        -1,
394        Wx::wxDefaultPosition,
395        Wx::wxDefaultSize,
396        [],
397    );
398    $startup_files->SetSelection(0);
399
400    my $m_staticText5 = Wx::StaticText->new(
401        $m_panel2,
402        -1,
403        Wx::gettext("Default projects directory"),
404    );
405
406    my $default_projects_directory = Wx::DirPickerCtrl->new(
407        $m_panel2,
408        -1,
409        "",
410        "Select a folder",
411        Wx::wxDefaultPosition,
412        Wx::wxDefaultSize,
413        Wx::wxDIRP_DEFAULT_STYLE,
414    );
415
416    my $main_singleinstance = Wx::CheckBox->new(
417        $m_panel2,
418        -1,
419        Wx::gettext("Open files in existing Padre"),
420        Wx::wxDefaultPosition,
421        Wx::wxDefaultSize,
422    );
423
424    my $m_staticText6 = Wx::StaticText->new(
425        $m_panel2,
426        -1,
427        Wx::gettext("Methods order"),
428    );
429
430    my $main_functions_order = Wx::Choice->new(
431        $m_panel2,
432        -1,
433        Wx::wxDefaultPosition,
434        Wx::wxDefaultSize,
435        [],
436    );
437    $main_functions_order->SetSelection(0);
438
439    my $m_staticText7 = Wx::StaticText->new(
440        $m_panel2,
441        -1,
442        Wx::gettext("Prefered language for error diagnostics"),
443    );
444
445    my $locale_perldiag = Wx::Choice->new(
446        $m_panel2,
447        -1,
448        Wx::wxDefaultPosition,
449        Wx::wxDefaultSize,
450        [],
451    );
452    $locale_perldiag->SetSelection(0);
453
454    my $m_staticText9 = Wx::StaticText->new(
455        $m_panel2,
456        -1,
457        Wx::gettext("Check for file updates on disk every (seconds)"),
458    );
459
460    my $update_file_from_disk_interval = Wx::SpinCtrl->new(
461        $m_panel2,
462        -1,
463        "",
464        Wx::wxDefaultPosition,
465        Wx::wxDefaultSize,
466        Wx::wxSP_ARROW_KEYS,
467        0,
468        10,
469        0,
470    );
471
472    my $m_staticText10 = Wx::StaticText->new(
473        $m_panel2,
474        -1,
475        Wx::gettext("Cursor blink rate (milliseconds - 0 = off, 500 = default)"),
476    );
477
478    my $editor_cursor_blink = Wx::TextCtrl->new(
479        $m_panel2,
480        -1,
481        "",
482        Wx::wxDefaultPosition,
483        Wx::wxDefaultSize,
484    );
485
486    my $editor_smart_highlight_enable = Wx::CheckBox->new(
487        $m_panel2,
488        -1,
489        Wx::gettext("Enable Smart highlighting while typing"),
490        Wx::wxDefaultPosition,
491        Wx::wxDefaultSize,
492    );
493
494    my $window_list_shorten_path = Wx::CheckBox->new(
495        $m_panel2,
496        -1,
497        Wx::gettext("Shorten the common path in window list"),
498        Wx::wxDefaultPosition,
499        Wx::wxDefaultSize,
500    );
501
502    my $mid_button_paste = Wx::CheckBox->new(
503        $m_panel2,
504        -1,
505        Wx::gettext("Use X11 middle button paste style"),
506        Wx::wxDefaultPosition,
507        Wx::wxDefaultSize,
508    );
509
510    my $m_staticText11 = Wx::StaticText->new(
511        $m_panel2,
512        -1,
513        Wx::gettext("RegExp for TODO panel"),
514    );
515
516    my $todo_regexp = Wx::TextCtrl->new(
517        $m_panel2,
518        -1,
519        "",
520        Wx::wxDefaultPosition,
521        Wx::wxDefaultSize,
522    );
523
524    my $startup_splash = Wx::CheckBox->new(
525        $m_panel2,
526        -1,
527        Wx::gettext("Use splash screen"),
528        Wx::wxDefaultPosition,
529        Wx::wxDefaultSize,
530    );
531
532    my $m_panel6 = Wx::Panel->new(
533        $treebook,
534        -1,
535        Wx::wxDefaultPosition,
536        Wx::wxDefaultSize,
537        Wx::wxTAB_TRAVERSAL,
538    );
539
540    my $m_staticText25 = Wx::StaticText->new(
541        $m_panel6,
542        -1,
543        Wx::gettext("Diff tool"),
544    );
545
546    my $external_diff_tool = Wx::FilePickerCtrl->new(
547        $m_panel6,
548        -1,
549        "",
550        "Select a file",
551        "*.*",
552        Wx::wxDefaultPosition,
553        Wx::wxDefaultSize,
554        Wx::wxFLP_DEFAULT_STYLE,
555    );
556
557    my $m_panel1 = Wx::Panel->new(
558        $treebook,
559        -1,
560        Wx::wxDefaultPosition,
561        Wx::wxDefaultSize,
562        Wx::wxTAB_TRAVERSAL,
563    );
564
565    my $editor_indent_guess = Wx::Button->new(
566        $m_panel1,
567        -1,
568        Wx::gettext("Guess from Current Document"),
569    );
570
571    Wx::Event::EVT_BUTTON(
572        $self,
573        $editor_indent_guess,
574        sub {
575            shift->guess(@_);
576        },
577    );
578
579    my $editor_indent_auto = Wx::CheckBox->new(
580        $m_panel1,
581        -1,
582        Wx::gettext("Automatic indentation style detection"),
583        Wx::wxDefaultPosition,
584        Wx::wxDefaultSize,
585    );
586
587    my $editor_indent_tab = Wx::CheckBox->new(
588        $m_panel1,
589        -1,
590        Wx::gettext("Use Tabs"),
591        Wx::wxDefaultPosition,
592        Wx::wxDefaultSize,
593    );
594
595    my $m_staticText2 = Wx::StaticText->new(
596        $m_panel1,
597        -1,
598        Wx::gettext("Tab display size (in spaces)"),
599    );
600
601    my $editor_indent_tab_width = Wx::SpinCtrl->new(
602        $m_panel1,
603        -1,
604        "",
605        Wx::wxDefaultPosition,
606        Wx::wxDefaultSize,
607        Wx::wxSP_ARROW_KEYS,
608        1,
609        16,
610        8,
611    );
612
613    my $m_staticText3 = Wx::StaticText->new(
614        $m_panel1,
615        -1,
616        Wx::gettext("Indentation width (in columns)"),
617    );
618
619    my $editor_indent_width = Wx::SpinCtrl->new(
620        $m_panel1,
621        -1,
622        "",
623        Wx::wxDefaultPosition,
624        Wx::wxDefaultSize,
625        Wx::wxSP_ARROW_KEYS,
626        1,
627        10,
628        8,
629    );
630
631    my $m_staticText4 = Wx::StaticText->new(
632        $m_panel1,
633        -1,
634        Wx::gettext("Autoindent"),
635    );
636
637    my $editor_autoindent = Wx::Choice->new(
638        $m_panel1,
639        -1,
640        Wx::wxDefaultPosition,
641        Wx::wxDefaultSize,
642        [],
643    );
644    $editor_autoindent->SetSelection(0);
645
646    my $m_panel7 = Wx::Panel->new(
647        $treebook,
648        -1,
649        Wx::wxDefaultPosition,
650        Wx::wxDefaultSize,
651        Wx::wxTAB_TRAVERSAL,
652    );
653
654    my $m_staticText39 = Wx::StaticText->new(
655        $m_panel7,
656        -1,
657        Wx::gettext("Language Integration"),
658    );
659    $m_staticText39->SetFont(
660        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
661    );
662
663    my $m_staticline10 = Wx::StaticLine->new(
664        $m_panel7,
665        -1,
666        Wx::wxDefaultPosition,
667        Wx::wxDefaultSize,
668        Wx::wxLI_HORIZONTAL,
669    );
670
671    my $m_staticText34 = Wx::StaticText->new(
672        $m_panel7,
673        -1,
674        Wx::gettext("Perl interpreter"),
675    );
676
677    my $run_perl_cmd = Wx::TextCtrl->new(
678        $m_panel7,
679        -1,
680        "",
681        Wx::wxDefaultPosition,
682        Wx::wxDefaultSize,
683    );
684
685    my $run_use_external_window = Wx::CheckBox->new(
686        $m_panel7,
687        -1,
688        Wx::gettext("Use external window for execution"),
689        Wx::wxDefaultPosition,
690        Wx::wxDefaultSize,
691    );
692
693    my $m_staticText35 = Wx::StaticText->new(
694        $m_panel7,
695        -1,
696        Wx::gettext("Interpreter arguments"),
697    );
698
699    my $run_interpreter_args_default = Wx::TextCtrl->new(
700        $m_panel7,
701        -1,
702        "",
703        Wx::wxDefaultPosition,
704        Wx::wxDefaultSize,
705    );
706
707    my $m_staticText36 = Wx::StaticText->new(
708        $m_panel7,
709        -1,
710        Wx::gettext("Include directory:  -I<dir>\nEnable tainting checks:  -T\nEnable many useful warnings:  -w\nEnable all warnings:  -W\nDisable all warnings:  -X"),
711    );
712
713    my $m_staticText37 = Wx::StaticText->new(
714        $m_panel7,
715        -1,
716        Wx::gettext("Script arguments"),
717    );
718
719    my $run_script_args_default = Wx::TextCtrl->new(
720        $m_panel7,
721        -1,
722        "",
723        Wx::wxDefaultPosition,
724        Wx::wxDefaultSize,
725    );
726
727    my $m_staticText351 = Wx::StaticText->new(
728        $m_panel7,
729        -1,
730        Wx::gettext("Editor Options"),
731    );
732    $m_staticText351->SetFont(
733        Wx::Font->new( Wx::wxNORMAL_FONT->GetPointSize, 70, 90, 92, 0, "" )
734    );
735
736    my $m_staticline11 = Wx::StaticLine->new(
737        $m_panel7,
738        -1,
739        Wx::wxDefaultPosition,
740        Wx::wxDefaultSize,
741        Wx::wxLI_HORIZONTAL,
742    );
743
744    my $lang_perl5_beginner = Wx::CheckBox->new(
745        $m_panel7,
746        -1,
747        Wx::gettext("Perl beginner mode"),
748        Wx::wxDefaultPosition,
749        Wx::wxDefaultSize,
750    );
751
752    my $editor_wordwrap = Wx::CheckBox->new(
753        $m_panel7,
754        -1,
755        Wx::gettext("Default word wrap on for each file"),
756        Wx::wxDefaultPosition,
757        Wx::wxDefaultSize,
758    );
759
760    my $m_staticText8 = Wx::StaticText->new(
761        $m_panel7,
762        -1,
763        Wx::gettext("Default line ending"),
764    );
765
766    my $default_line_ending = Wx::Choice->new(
767        $m_panel7,
768        -1,
769        Wx::wxDefaultPosition,
770        Wx::wxDefaultSize,
771        [],
772    );
773    $default_line_ending->SetSelection(0);
774
775    my $m_staticText371 = Wx::StaticText->new(
776        $m_panel7,
777        -1,
778        Wx::gettext("Syntax Highlighter"),
779    );
780
781    my $lang_perl5_lexer = Wx::Choice->new(
782        $m_panel7,
783        -1,
784        Wx::wxDefaultPosition,
785        Wx::wxDefaultSize,
786        [],
787    );
788    $lang_perl5_lexer->SetSelection(0);
789
790    my $m_staticText26 = Wx::StaticText->new(
791        $m_panel7,
792        -1,
793        Wx::gettext("Perl ctags file"),
794    );
795
796    my $lang_perl5_tags_file = Wx::FilePickerCtrl->new(
797        $m_panel7,
798        -1,
799        "",
800        "Select a file",
801        "*.*",
802        Wx::wxDefaultPosition,
803        Wx::wxDefaultSize,
804        Wx::wxFLP_DEFAULT_STYLE,
805    );
806
807    my $m_panel8 = Wx::Panel->new(
808        $treebook,
809        -1,
810        Wx::wxDefaultPosition,
811        Wx::wxDefaultSize,
812        Wx::wxTAB_TRAVERSAL,
813    );
814
815    my $m_staticText30 = Wx::StaticText->new(
816        $m_panel8,
817        -1,
818        Wx::gettext("File access via HTTP"),
819    );
820
821    my $m_staticText31 = Wx::StaticText->new(
822        $m_panel8,
823        -1,
824        Wx::gettext("Timeout (in seconds)"),
825    );
826
827    my $file_http_timeout = Wx::SpinCtrl->new(
828        $m_panel8,
829        -1,
830        "",
831        Wx::wxDefaultPosition,
832        Wx::wxDefaultSize,
833        Wx::wxSP_ARROW_KEYS,
834        10,
835        900,
836        10,
837    );
838
839    my $m_staticText32 = Wx::StaticText->new(
840        $m_panel8,
841        -1,
842        Wx::gettext("File access via FTP"),
843    );
844
845    my $m_staticText33 = Wx::StaticText->new(
846        $m_panel8,
847        -1,
848        Wx::gettext("Timeout (in seconds)"),
849    );
850
851    my $file_ftp_timeout = Wx::SpinCtrl->new(
852        $m_panel8,
853        -1,
854        "",
855        Wx::wxDefaultPosition,
856        Wx::wxDefaultSize,
857        Wx::wxSP_ARROW_KEYS,
858        10,
859        900,
860        10,
861    );
862
863    my $file_ftp_passive = Wx::CheckBox->new(
864        $m_panel8,
865        -1,
866        Wx::gettext("Use FTP passive mode"),
867        Wx::wxDefaultPosition,
868        Wx::wxDefaultSize,
869    );
870
871    my $m_staticline1 = Wx::StaticLine->new(
872        $self,
873        -1,
874        Wx::wxDefaultPosition,
875        Wx::wxDefaultSize,
876        Wx::wxLI_HORIZONTAL,
877    );
878
879    my $save = Wx::Button->new(
880        $self,
881        Wx::wxID_OK,
882        Wx::gettext("Save"),
883    );
884    $save->SetDefault;
885
886    my $advanced = Wx::Button->new(
887        $self,
888        -1,
889        Wx::gettext("Advanced..."),
890    );
891
892    Wx::Event::EVT_BUTTON(
893        $self,
894        $advanced,
895        sub {
896            shift->advanced(@_);
897        },
898    );
899
900    my $cancel = Wx::Button->new(
901        $self,
902        -1,
903        Wx::gettext("Cancel"),
904    );
905
906    Wx::Event::EVT_BUTTON(
907        $self,
908        $cancel,
909        sub {
910            shift->cancel(@_);
911        },
912    );
913
914    my $fgSizer91 = Wx::FlexGridSizer->new( 1, 2, 0, 0 );
915    $fgSizer91->SetFlexibleDirection(Wx::wxBOTH);
916    $fgSizer91->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
917    $fgSizer91->Add( $m_staticText341, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
918    $fgSizer91->Add( $editor_style, 0, Wx::wxALL, 5 );
919
920    my $fgSizer4 = Wx::FlexGridSizer->new( 6, 2, 0, 10 );
921    $fgSizer4->AddGrowableCol(0);
922    $fgSizer4->AddGrowableCol(1);
923    $fgSizer4->SetFlexibleDirection(Wx::wxBOTH);
924    $fgSizer4->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
925    $fgSizer4->Add( $main_output_ansi, 0, Wx::wxALL, 5 );
926    $fgSizer4->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
927    $fgSizer4->Add( $info_on_statusbar, 0, Wx::wxALL, 5 );
928    $fgSizer4->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
929    $fgSizer4->Add( $editor_right_margin_enable, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
930    $fgSizer4->Add( $editor_right_margin_column, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
931    $fgSizer4->Add( $m_staticText17, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
932    $fgSizer4->Add( $editor_font, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
933    $fgSizer4->Add( $m_staticText18, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
934    $fgSizer4->Add( $editor_currentline_color, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
935
936    my $bSizer4 = Wx::BoxSizer->new(Wx::wxVERTICAL);
937    $bSizer4->Add( $fgSizer91, 0, Wx::wxEXPAND, 5 );
938    $bSizer4->Add( $m_staticline21, 0, Wx::wxBOTTOM | Wx::wxEXPAND | Wx::wxTOP, 5 );
939    $bSizer4->Add( $fgSizer4, 0, Wx::wxEXPAND, 0 );
940    $bSizer4->Add( $m_staticline2, 0, Wx::wxBOTTOM | Wx::wxEXPAND | Wx::wxTOP, 5 );
941    $bSizer4->Add( $m_staticText331, 0, Wx::wxALL, 5 );
942    $bSizer4->Add( $preview, 1, Wx::wxEXPAND | Wx::wxTOP, 5 );
943
944    $m_panel3->SetSizer($bSizer4);
945    $m_panel3->Layout;
946    $bSizer4->Fit($m_panel3);
947
948    my $fgSizer411 = Wx::FlexGridSizer->new( 6, 2, 0, 0 );
949    $fgSizer411->SetFlexibleDirection(Wx::wxBOTH);
950    $fgSizer411->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
951    $fgSizer411->Add( $autocomplete_always, 0, Wx::wxALL, 5 );
952    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
953    $fgSizer411->Add( $autocomplete_method, 0, Wx::wxALL, 5 );
954    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
955    $fgSizer411->Add( $autocomplete_subroutine, 0, Wx::wxALL, 5 );
956    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
957    $fgSizer411->Add( $m_staticText271, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
958    $fgSizer411->Add( $lang_perl5_autocomplete_min_suggestion_len, 0, Wx::wxALL, 5 );
959    $fgSizer411->Add( $m_staticText281, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
960    $fgSizer411->Add( $lang_perl5_autocomplete_max_suggestions, 0, Wx::wxALL, 5 );
961    $fgSizer411->Add( $m_staticText291, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
962    $fgSizer411->Add( $lang_perl5_autocomplete_min_chars, 0, Wx::wxALL, 5 );
963    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
964    $fgSizer411->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
965
966    my $fgSizer412 = Wx::FlexGridSizer->new( 2, 1, 0, 0 );
967    $fgSizer412->SetFlexibleDirection(Wx::wxBOTH);
968    $fgSizer412->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
969    $fgSizer412->Add( $autocomplete_brackets, 0, Wx::wxALL, 5 );
970    $fgSizer412->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
971    $fgSizer412->Add( $autocomplete_multiclosebracket, 0, Wx::wxALL, 5 );
972
973    my $fgSizer413 = Wx::FlexGridSizer->new( 1, 1, 0, 0 );
974    $fgSizer413->SetFlexibleDirection(Wx::wxBOTH);
975    $fgSizer413->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
976    $fgSizer413->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
977    $fgSizer413->Add( $editor_fold_pod, 0, Wx::wxALL, 5 );
978    $fgSizer413->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
979
980    my $bSizer41 = Wx::BoxSizer->new(Wx::wxVERTICAL);
981    $bSizer41->Add( $m_staticText36111, 0, Wx::wxALL, 5 );
982    $bSizer41->Add( $m_staticline411, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
983    $bSizer41->Add( $fgSizer411, 0, Wx::wxEXPAND, 5 );
984    $bSizer41->Add( $m_staticText3511, 0, Wx::wxALL, 5 );
985    $bSizer41->Add( $m_staticline4111, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
986    $bSizer41->Add( $fgSizer412, 0, Wx::wxEXPAND, 5 );
987    $bSizer41->Add( $m_staticText35111, 0, Wx::wxALL, 5 );
988    $bSizer41->Add( $m_staticline41111, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
989    $bSizer41->Add( $fgSizer413, 0, Wx::wxEXPAND, 5 );
990
991    $m_panel4->SetSizer($bSizer41);
992    $m_panel4->Layout;
993    $bSizer41->Fit($m_panel4);
994
995    my $fgSizer3 = Wx::FlexGridSizer->new( 14, 2, 0, 0 );
996    $fgSizer3->AddGrowableCol(0);
997    $fgSizer3->AddGrowableCol(1);
998    $fgSizer3->SetFlexibleDirection(Wx::wxBOTH);
999    $fgSizer3->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_NONE);
1000    $fgSizer3->Add( $swap_ctrl_tab_alt_right, 0, Wx::wxALL, 5 );
1001    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1002    $fgSizer3->Add( $save_autoclean, 0, Wx::wxALL, 5 );
1003    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1004    $fgSizer3->Add( $m_staticText41, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1005    $fgSizer3->Add( $startup_files, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1006    $fgSizer3->Add( $m_staticText5, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1007    $fgSizer3->Add( $default_projects_directory, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1008    $fgSizer3->Add( $main_singleinstance, 0, Wx::wxALL, 5 );
1009    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1010    $fgSizer3->Add( $m_staticText6, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1011    $fgSizer3->Add( $main_functions_order, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1012    $fgSizer3->Add( $m_staticText7, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1013    $fgSizer3->Add( $locale_perldiag, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1014    $fgSizer3->Add( $m_staticText9, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1015    $fgSizer3->Add( $update_file_from_disk_interval, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1016    $fgSizer3->Add( $m_staticText10, 0, Wx::wxALL, 5 );
1017    $fgSizer3->Add( $editor_cursor_blink, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1018    $fgSizer3->Add( $editor_smart_highlight_enable, 0, Wx::wxALL, 5 );
1019    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1020    $fgSizer3->Add( $window_list_shorten_path, 0, Wx::wxALL, 5 );
1021    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1022    $fgSizer3->Add( $mid_button_paste, 0, Wx::wxALL, 5 );
1023    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1024    $fgSizer3->Add( $m_staticText11, 0, Wx::wxALL, 5 );
1025    $fgSizer3->Add( $todo_regexp, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1026    $fgSizer3->Add( $startup_splash, 0, Wx::wxALL, 5 );
1027    $fgSizer3->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1028
1029    $m_panel2->SetSizer($fgSizer3);
1030    $m_panel2->Layout;
1031    $fgSizer3->Fit($m_panel2);
1032
1033    my $fgSizer6 = Wx::FlexGridSizer->new( 1, 2, 0, 0 );
1034    $fgSizer6->AddGrowableCol(1);
1035    $fgSizer6->SetFlexibleDirection(Wx::wxBOTH);
1036    $fgSizer6->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
1037    $fgSizer6->Add( $m_staticText25, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1038    $fgSizer6->Add( $external_diff_tool, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
1039
1040    $m_panel6->SetSizer($fgSizer6);
1041    $m_panel6->Layout;
1042    $fgSizer6->Fit($m_panel6);
1043
1044    my $fgSizer2 = Wx::FlexGridSizer->new( 6, 2, 0, 0 );
1045    $fgSizer2->SetFlexibleDirection(Wx::wxBOTH);
1046    $fgSizer2->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_ALL);
1047    $fgSizer2->Add( $editor_indent_guess, 0, Wx::wxALL, 5 );
1048    $fgSizer2->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1049    $fgSizer2->Add( $editor_indent_auto, 0, Wx::wxALL, 5 );
1050    $fgSizer2->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1051    $fgSizer2->Add( $editor_indent_tab, 0, Wx::wxALL, 5 );
1052    $fgSizer2->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1053    $fgSizer2->Add( $m_staticText2, 0, Wx::wxALL, 5 );
1054    $fgSizer2->Add( $editor_indent_tab_width, 0, Wx::wxALL, 5 );
1055    $fgSizer2->Add( $m_staticText3, 0, Wx::wxALL, 5 );
1056    $fgSizer2->Add( $editor_indent_width, 0, Wx::wxALL, 5 );
1057    $fgSizer2->Add( $m_staticText4, 0, Wx::wxALL, 5 );
1058    $fgSizer2->Add( $editor_autoindent, 0, Wx::wxALL, 5 );
1059
1060    $m_panel1->SetSizer($fgSizer2);
1061    $m_panel1->Layout;
1062    $fgSizer2->Fit($m_panel1);
1063
1064    my $fgSizer71 = Wx::FlexGridSizer->new( 5, 2, 0, 0 );
1065    $fgSizer71->SetFlexibleDirection(Wx::wxBOTH);
1066    $fgSizer71->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_ALL);
1067    $fgSizer71->Add( $m_staticText34, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1068    $fgSizer71->Add( $run_perl_cmd, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
1069    $fgSizer71->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1070    $fgSizer71->Add( $run_use_external_window, 0, Wx::wxALL, 5 );
1071    $fgSizer71->Add( $m_staticText35, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1072    $fgSizer71->Add( $run_interpreter_args_default, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
1073    $fgSizer71->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1074    $fgSizer71->Add( $m_staticText36, 0, Wx::wxALL, 5 );
1075    $fgSizer71->Add( $m_staticText37, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1076    $fgSizer71->Add( $run_script_args_default, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
1077    $fgSizer71->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1078
1079    my $fgSizer72 = Wx::FlexGridSizer->new( 5, 2, 0, 0 );
1080    $fgSizer72->SetFlexibleDirection(Wx::wxBOTH);
1081    $fgSizer72->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_ALL);
1082    $fgSizer72->Add( $lang_perl5_beginner, 0, Wx::wxALL, 5 );
1083    $fgSizer72->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1084    $fgSizer72->Add( $editor_wordwrap, 0, Wx::wxALL, 5 );
1085    $fgSizer72->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1086    $fgSizer72->Add( $m_staticText8, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1087    $fgSizer72->Add( $default_line_ending, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1088    $fgSizer72->Add( $m_staticText371, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1089    $fgSizer72->Add( $lang_perl5_lexer, 0, Wx::wxALIGN_RIGHT | Wx::wxALL | Wx::wxEXPAND, 5 );
1090    $fgSizer72->Add( $m_staticText26, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1091    $fgSizer72->Add( $lang_perl5_tags_file, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
1092
1093    my $bSizer71 = Wx::BoxSizer->new(Wx::wxVERTICAL);
1094    $bSizer71->Add( $m_staticText39, 0, Wx::wxALL, 5 );
1095    $bSizer71->Add( $m_staticline10, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
1096    $bSizer71->Add( $fgSizer71, 0, 0, 5 );
1097    $bSizer71->Add( $m_staticText351, 0, Wx::wxALL, 5 );
1098    $bSizer71->Add( $m_staticline11, 0, Wx::wxEXPAND | Wx::wxALL, 5 );
1099    $bSizer71->Add( $fgSizer72, 0, 0, 5 );
1100
1101    $m_panel7->SetSizer($bSizer71);
1102    $m_panel7->Layout;
1103    $bSizer71->Fit($m_panel7);
1104
1105    my $fgSizer8 = Wx::FlexGridSizer->new( 5, 2, 0, 0 );
1106    $fgSizer8->SetFlexibleDirection(Wx::wxBOTH);
1107    $fgSizer8->SetNonFlexibleGrowMode(Wx::wxFLEX_GROWMODE_SPECIFIED);
1108    $fgSizer8->Add( $m_staticText30, 0, Wx::wxALL, 5 );
1109    $fgSizer8->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1110    $fgSizer8->Add( $m_staticText31, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1111    $fgSizer8->Add( $file_http_timeout, 0, Wx::wxALL, 5 );
1112    $fgSizer8->Add( $m_staticText32, 0, Wx::wxALL, 5 );
1113    $fgSizer8->Add( 0, 0, 1, Wx::wxEXPAND, 5 );
1114    $fgSizer8->Add( $m_staticText33, 0, Wx::wxALIGN_CENTER_VERTICAL | Wx::wxALL, 5 );
1115    $fgSizer8->Add( $file_ftp_timeout, 0, Wx::wxALL, 5 );
1116    $fgSizer8->Add( $file_ftp_passive, 0, Wx::wxALL, 5 );
1117
1118    $m_panel8->SetSizer($fgSizer8);
1119    $m_panel8->Layout;
1120    $fgSizer8->Fit($m_panel8);
1121
1122    $treebook->AddPage( $m_panel3, Wx::gettext("Appearance"), 0 );
1123    $treebook->AddPage( $m_panel4, Wx::gettext("Auto-Complete"), 0 );
1124    $treebook->AddPage( $m_panel2, Wx::gettext("Behaviour"), 0 );
1125    $treebook->AddPage( $m_panel6, Wx::gettext("External Tools"), 0 );
1126    $treebook->AddPage( $m_panel1, Wx::gettext("Indentation"), 0 );
1127    $treebook->AddPage( $m_panel7, Wx::gettext("Language - Perl 5"), 1 );
1128    $treebook->AddPage( $m_panel8, Wx::gettext("Local/Remote File Access"), 0 );
1129
1130    my $buttons = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
1131    $buttons->Add( $save, 0, Wx::wxALL, 5 );
1132    $buttons->Add( $advanced, 0, Wx::wxALL, 5 );
1133    $buttons->Add( $cancel, 0, Wx::wxALL, 5 );
1134
1135    my $vsizer = Wx::BoxSizer->new(Wx::wxVERTICAL);
1136    $vsizer->Add( $treebook, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
1137    $vsizer->Add( $m_staticline1, 0, Wx::wxALL | Wx::wxEXPAND, 5 );
1138    $vsizer->Add( $buttons, 0, Wx::wxALIGN_RIGHT, 5 );
1139
1140    my $hsizer = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
1141    $hsizer->Add( $vsizer, 1, Wx::wxALL | Wx::wxEXPAND, 5 );
1142
1143    $self->SetSizer($hsizer);
1144    $self->Layout;
1145    $hsizer->Fit($self);
1146    $hsizer->SetSizeHints($self);
1147
1148    $self->{treebook} = $treebook->GetId;
1149    $self->{editor_style} = $editor_style->GetId;
1150    $self->{main_output_ansi} = $main_output_ansi->GetId;
1151    $self->{info_on_statusbar} = $info_on_statusbar->GetId;
1152    $self->{editor_right_margin_enable} = $editor_right_margin_enable->GetId;
1153    $self->{editor_right_margin_column} = $editor_right_margin_column->GetId;
1154    $self->{editor_font} = $editor_font->GetId;
1155    $self->{editor_currentline_color} = $editor_currentline_color->GetId;
1156    $self->{preview} = $preview->GetId;
1157    $self->{autocomplete_always} = $autocomplete_always->GetId;
1158    $self->{autocomplete_method} = $autocomplete_method->GetId;
1159    $self->{autocomplete_subroutine} = $autocomplete_subroutine->GetId;
1160    $self->{lang_perl5_autocomplete_min_suggestion_len} = $lang_perl5_autocomplete_min_suggestion_len->GetId;
1161    $self->{lang_perl5_autocomplete_max_suggestions} = $lang_perl5_autocomplete_max_suggestions->GetId;
1162    $self->{lang_perl5_autocomplete_min_chars} = $lang_perl5_autocomplete_min_chars->GetId;
1163    $self->{autocomplete_brackets} = $autocomplete_brackets->GetId;
1164    $self->{autocomplete_multiclosebracket} = $autocomplete_multiclosebracket->GetId;
1165    $self->{editor_fold_pod} = $editor_fold_pod->GetId;
1166    $self->{swap_ctrl_tab_alt_right} = $swap_ctrl_tab_alt_right->GetId;
1167    $self->{save_autoclean} = $save_autoclean->GetId;
1168    $self->{startup_files} = $startup_files->GetId;
1169    $self->{default_projects_directory} = $default_projects_directory->GetId;
1170    $self->{main_singleinstance} = $main_singleinstance->GetId;
1171    $self->{main_functions_order} = $main_functions_order->GetId;
1172    $self->{locale_perldiag} = $locale_perldiag->GetId;
1173    $self->{update_file_from_disk_interval} = $update_file_from_disk_interval->GetId;
1174    $self->{editor_cursor_blink} = $editor_cursor_blink->GetId;
1175    $self->{editor_smart_highlight_enable} = $editor_smart_highlight_enable->GetId;
1176    $self->{window_list_shorten_path} = $window_list_shorten_path->GetId;
1177    $self->{mid_button_paste} = $mid_button_paste->GetId;
1178    $self->{todo_regexp} = $todo_regexp->GetId;
1179    $self->{startup_splash} = $startup_splash->GetId;
1180    $self->{external_diff_tool} = $external_diff_tool->GetId;
1181    $self->{editor_indent_auto} = $editor_indent_auto->GetId;
1182    $self->{editor_indent_tab} = $editor_indent_tab->GetId;
1183    $self->{editor_indent_tab_width} = $editor_indent_tab_width->GetId;
1184    $self->{editor_indent_width} = $editor_indent_width->GetId;
1185    $self->{editor_autoindent} = $editor_autoindent->GetId;
1186    $self->{run_perl_cmd} = $run_perl_cmd->GetId;
1187    $self->{run_use_external_window} = $run_use_external_window->GetId;
1188    $self->{run_interpreter_args_default} = $run_interpreter_args_default->GetId;
1189    $self->{run_script_args_default} = $run_script_args_default->GetId;
1190    $self->{lang_perl5_beginner} = $lang_perl5_beginner->GetId;
1191    $self->{editor_wordwrap} = $editor_wordwrap->GetId;
1192    $self->{default_line_ending} = $default_line_ending->GetId;
1193    $self->{lang_perl5_lexer} = $lang_perl5_lexer->GetId;
1194    $self->{lang_perl5_tags_file} = $lang_perl5_tags_file->GetId;
1195    $self->{file_http_timeout} = $file_http_timeout->GetId;
1196    $self->{file_ftp_timeout} = $file_ftp_timeout->GetId;
1197    $self->{file_ftp_passive} = $file_ftp_passive->GetId;
1198
1199    return $self;
1200}
1201
1202sub treebook {
1203    Wx::Window::FindWindowById($_[0]->{treebook});
1204}
1205
1206sub editor_style {
1207    Wx::Window::FindWindowById($_[0]->{editor_style});
1208}
1209
1210sub main_output_ansi {
1211    Wx::Window::FindWindowById($_[0]->{main_output_ansi});
1212}
1213
1214sub info_on_statusbar {
1215    Wx::Window::FindWindowById($_[0]->{info_on_statusbar});
1216}
1217
1218sub editor_right_margin_enable {
1219    Wx::Window::FindWindowById($_[0]->{editor_right_margin_enable});
1220}
1221
1222sub editor_right_margin_column {
1223    Wx::Window::FindWindowById($_[0]->{editor_right_margin_column});
1224}
1225
1226sub editor_font {
1227    Wx::Window::FindWindowById($_[0]->{editor_font});
1228}
1229
1230sub editor_currentline_color {
1231    Wx::Window::FindWindowById($_[0]->{editor_currentline_color});
1232}
1233
1234sub preview {
1235    Wx::Window::FindWindowById($_[0]->{preview});
1236}
1237
1238sub autocomplete_always {
1239    Wx::Window::FindWindowById($_[0]->{autocomplete_always});
1240}
1241
1242sub autocomplete_method {
1243    Wx::Window::FindWindowById($_[0]->{autocomplete_method});
1244}
1245
1246sub autocomplete_subroutine {
1247    Wx::Window::FindWindowById($_[0]->{autocomplete_subroutine});
1248}
1249
1250sub lang_perl5_autocomplete_min_suggestion_len {
1251    Wx::Window::FindWindowById($_[0]->{lang_perl5_autocomplete_min_suggestion_len});
1252}
1253
1254sub lang_perl5_autocomplete_max_suggestions {
1255    Wx::Window::FindWindowById($_[0]->{lang_perl5_autocomplete_max_suggestions});
1256}
1257
1258sub lang_perl5_autocomplete_min_chars {
1259    Wx::Window::FindWindowById($_[0]->{lang_perl5_autocomplete_min_chars});
1260}
1261
1262sub autocomplete_brackets {
1263    Wx::Window::FindWindowById($_[0]->{autocomplete_brackets});
1264}
1265
1266sub autocomplete_multiclosebracket {
1267    Wx::Window::FindWindowById($_[0]->{autocomplete_multiclosebracket});
1268}
1269
1270sub editor_fold_pod {
1271    Wx::Window::FindWindowById($_[0]->{editor_fold_pod});
1272}
1273
1274sub swap_ctrl_tab_alt_right {
1275    Wx::Window::FindWindowById($_[0]->{swap_ctrl_tab_alt_right});
1276}
1277
1278sub save_autoclean {
1279    Wx::Window::FindWindowById($_[0]->{save_autoclean});
1280}
1281
1282sub startup_files {
1283    Wx::Window::FindWindowById($_[0]->{startup_files});
1284}
1285
1286sub default_projects_directory {
1287    Wx::Window::FindWindowById($_[0]->{default_projects_directory});
1288}
1289
1290sub main_singleinstance {
1291    Wx::Window::FindWindowById($_[0]->{main_singleinstance});
1292}
1293
1294sub main_functions_order {
1295    Wx::Window::FindWindowById($_[0]->{main_functions_order});
1296}
1297
1298sub locale_perldiag {
1299    Wx::Window::FindWindowById($_[0]->{locale_perldiag});
1300}
1301
1302sub update_file_from_disk_interval {
1303    Wx::Window::FindWindowById($_[0]->{update_file_from_disk_interval});
1304}
1305
1306sub editor_cursor_blink {
1307    Wx::Window::FindWindowById($_[0]->{editor_cursor_blink});
1308}
1309
1310sub editor_smart_highlight_enable {
1311    Wx::Window::FindWindowById($_[0]->{editor_smart_highlight_enable});
1312}
1313
1314sub window_list_shorten_path {
1315    Wx::Window::FindWindowById($_[0]->{window_list_shorten_path});
1316}
1317
1318sub mid_button_paste {
1319    Wx::Window::FindWindowById($_[0]->{mid_button_paste});
1320}
1321
1322sub todo_regexp {
1323    Wx::Window::FindWindowById($_[0]->{todo_regexp});
1324}
1325
1326sub startup_splash {
1327    Wx::Window::FindWindowById($_[0]->{startup_splash});
1328}
1329
1330sub external_diff_tool {
1331    Wx::Window::FindWindowById($_[0]->{external_diff_tool});
1332}
1333
1334sub editor_indent_auto {
1335    Wx::Window::FindWindowById($_[0]->{editor_indent_auto});
1336}
1337
1338sub editor_indent_tab {
1339    Wx::Window::FindWindowById($_[0]->{editor_indent_tab});
1340}
1341
1342sub editor_indent_tab_width {
1343    Wx::Window::FindWindowById($_[0]->{editor_indent_tab_width});
1344}
1345
1346sub editor_indent_width {
1347    Wx::Window::FindWindowById($_[0]->{editor_indent_width});
1348}
1349
1350sub editor_autoindent {
1351    Wx::Window::FindWindowById($_[0]->{editor_autoindent});
1352}
1353
1354sub run_perl_cmd {
1355    Wx::Window::FindWindowById($_[0]->{run_perl_cmd});
1356}
1357
1358sub run_use_external_window {
1359    Wx::Window::FindWindowById($_[0]->{run_use_external_window});
1360}
1361
1362sub run_interpreter_args_default {
1363    Wx::Window::FindWindowById($_[0]->{run_interpreter_args_default});
1364}
1365
1366sub run_script_args_default {
1367    Wx::Window::FindWindowById($_[0]->{run_script_args_default});
1368}
1369
1370sub lang_perl5_beginner {
1371    Wx::Window::FindWindowById($_[0]->{lang_perl5_beginner});
1372}
1373
1374sub editor_wordwrap {
1375    Wx::Window::FindWindowById($_[0]->{editor_wordwrap});
1376}
1377
1378sub default_line_ending {
1379    Wx::Window::FindWindowById($_[0]->{default_line_ending});
1380}
1381
1382sub lang_perl5_lexer {
1383    Wx::Window::FindWindowById($_[0]->{lang_perl5_lexer});
1384}
1385
1386sub lang_perl5_tags_file {
1387    Wx::Window::FindWindowById($_[0]->{lang_perl5_tags_file});
1388}
1389
1390sub file_http_timeout {
1391    Wx::Window::FindWindowById($_[0]->{file_http_timeout});
1392}
1393
1394sub file_ftp_timeout {
1395    Wx::Window::FindWindowById($_[0]->{file_ftp_timeout});
1396}
1397
1398sub file_ftp_passive {
1399    Wx::Window::FindWindowById($_[0]->{file_ftp_passive});
1400}
1401
1402sub preview_refresh {
1403    $_[0]->main->error('Handler method preview_refresh for event editor_style.OnChoice not implemented');
1404}
1405
1406sub guess {
1407    $_[0]->main->error('Handler method guess for event editor_indent_guess.OnButtonClick not implemented');
1408}
1409
1410sub advanced {
1411    $_[0]->main->error('Handler method advanced for event advanced.OnButtonClick not implemented');
1412}
1413
1414sub cancel {
1415    $_[0]->main->error('Handler method cancel for event cancel.OnButtonClick not implemented');
1416}
1417
14181;
1419
1420# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
1421# LICENSE
1422# This program is free software; you can redistribute it and/or
1423# modify it under the same terms as Perl 5 itself.
1424