Changeset 872

Timestamp:

11/10/08 13:10:18 (3 years ago)

Author:

szabgab

Message:

add new preference option for autoindenting

Location:

trunk

Files:

• lib/Padre/Config.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/Preferences.pm (modified) (4 diffs)
• t/02-new.t (modified) (1 diff)

trunk/lib/Padre/Config.pm

@@ -120 +120 @@
         editor_indentationguides  => 0,
         editor_calltips           => 1,
+        editor_autoindent         => 'deep',
 
         # When running a script from the application some of the files might have not been saved yet.

trunk/lib/Padre/Wx/Dialog/Preferences.pm

@@ -12 +12 @@
 
 sub get_layout {
-    my ($config, $main_startup) = @_;
+    my ($config, $main_startup, $editor_autoindent) = @_;
 
     return [
@@ -36 +36 @@
         ],
         [
+            [ 'Wx::StaticText', undef,              gettext('Autoindent:')],
+            [ 'Wx::Choice',     'editor_autoindent',    $editor_autoindent],
+        ],
+        [
             [ 'Wx::Button',     '_ok_',           Wx::wxID_OK     ],
             [ 'Wx::Button',     '_cancel_',       Wx::wxID_CANCEL ],
@@ -43 +47 @@
 
 sub dialog {
-    my ($class, $win, $main_startup) = @_;
+    my ($class, $win, $main_startup, $editor_autoindent) = @_;
 
     my $config = Padre->ide->config;
-    my $layout = get_layout($config, $main_startup);
+    my $layout = get_layout($config, $main_startup, $editor_autoindent);
     my $dialog = Padre::Wx::Dialog->new(
         parent => $win,
@@ -74 +78 @@
         grep { $_ ne $config->{main_startup} } qw( new nothing last )
     );
+    my @editor_autoindent = (
+        $config->{editor_autoindent},
+        grep { $_ ne $config->{editor_autoindent} } qw( no same_level deep )
+    );
 
-    my $dialog = $class->dialog( $win, \@main_startup );
+    my $dialog = $class->dialog( $win, \@main_startup, \@editor_autoindent );
     return if not $dialog->show_modal;
 

trunk/t/02-new.t

@@ -41 +41 @@
         editor_calltips    => 1,
         editor_use_tabs    => 1,
+        editor_autoindent  => 'deep',
 
         search_terms       => [],