Changeset 9696

Timestamp:

12/14/09 06:16:55 (2 years ago)

Author:

szabgab

Message:

add show value to the debugger

Location:

trunk/Padre/lib/Padre

Files:

• Action/Run.pm (modified) (1 diff)
• Wx/Main.pm (modified) (1 diff)
• Wx/Menu/Run.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Action/Run.pm

@@ -171 +171 @@
 
     Padre::Action->new(
+        name         => 'debug.show_value',
+        need_editor  => 1,
+        need_runable => 1,
+        need_file    => 1,
+        label        => Wx::gettext('Debugger Show Value'),
+        comment      => Wx::gettext( 'Run the current document through the Debug::Client.' ),
+        #shortcut     => 'Shift-F5',
+        need_editor  => 1,
+        menu_event   => sub {
+            $_[0]->debug_perl_show_value;
+        },
+    );
+
+    Padre::Action->new(
         name         => 'debug.evaluate_expression',
         need_editor  => 1,

trunk/Padre/lib/Padre/Wx/Main.pm

@@ -1959 +1959 @@
 }
 
+sub debug_perl_show_value {
+    my $self     = shift;
+    return if not $self->{_debugger_};
+    
+    my $current = $self->current;
+    return unless $current->editor;
+    my $text = $current->text;
+    
+    my ($prompt, $value) = $self->{_debugger_}->get_value($text);
+    $self->message("$text = $value");
+
+    return; 
+}   
+
 sub debug_perl_evaluate_expression {
     my $self     = shift;

trunk/Padre/lib/Padre/Wx/Menu/Run.pm

@@ -70 +70 @@
         $self,
         'debug.step_in',
+    );
+
+    $self->{debug_step_in} = $self->add_menu_action(
+        $self,
+        'debug.show_value',
     );