Changeset 9643

Timestamp:

12/12/09 11:31:08 (2 years ago)

Author:

Sewi

Message:

Auto-save autosave-state of sessionmanager

Location:

trunk/Padre

Files:

• lib/Padre/Config.pm (modified) (1 diff)
• lib/Padre/Wx/Dialog/SessionManager.pm (modified) (3 diffs)
• t/04-config.t (modified) (1 diff)

trunk/Padre/lib/Padre/Config.pm

@@ -909 +909 @@
 );
 
-
+# Non-preference settings
+setting(
+    name    => 'session_autosave',
+    type    => Padre::Constant::BOOLEAN,
+    store   => Padre::Constant::HUMAN,
+    default => 0,
+);
 
 #####################################################################

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

@@ -103 +103 @@
     $self->_butopen->Disable;
 
-    # close all open documents
+    # Save autosave setting
+    my $config = Padre->ide->config;
+    $config->set(
+        'session_autosave',
+        $self->{autosave}->GetValue ? 1 : 0
+        );
+    $config->write;
+
+    # Open session
     my $main = $self->GetParent;
-    $main->open_session( $self->_current_session, $self->{autosave}->GetValue );
+    $main->open_session( $self->_current_session, $self->{autosave}->GetValue ? 1:0 );
     $self->Destroy();
 }
@@ -238 +246 @@
     my $self = shift;
 
+    my $config = Padre->ide->config;
+
     # the hbox
     my $hbox = Wx::BoxSizer->new(Wx::wxHORIZONTAL);
@@ -248 +258 @@
         Wx::gettext('Save session automatically'),
     );
-
-    #   Wx::Event::EVT_CHECKBOX(
-    #       $self,
-    #       $self->{autosave},
-    #       sub {
+    $self->{autosave}->SetValue($config->session_autosave ? 1 : 0);
+
+#       Wx::Event::EVT_CHECKBOX(
+#           $self,
+#           $self->{autosave},
+#           sub {
     #           $_[0]->{find_text}->SetFocus;
-    #       }
-    #   );
+#           }
+#       );
+
     $hbox->Add( $self->{autosave}, 0, Wx::wxALL, 5 );
 }

trunk/Padre/t/04-config.t

@@ -3 +3 @@
 use strict;
 use warnings;
-use constant CONFIG_OPTIONS => 101;
+use constant CONFIG_OPTIONS => 102;
 
 # Move of Debug to Run Menu