Changeset 845

Timestamp:

11/09/08 02:19:22 (3 years ago)

Author:

szabgab

Message:

add info call to Padre::Plugin::Development::Tools

File:

• trunk/lib/Padre/Plugin/Development/Tools.pm (modified) (2 diffs)

trunk/lib/Padre/Plugin/Development/Tools.pm

@@ -25 +25 @@
     ['Show %INC',      sub {show_inc(@_)}       ],
     ['Reload plugins', sub {reload_plugins(@_)} ],
+    ['Info',           sub {info(@_)} ],
 );
 sub menu {
@@ -42 +43 @@
     #$about->SetVersion($Padre::VERSION);
     Wx::AboutBox( $about );
+    return;
+}
+
+sub info {
+    my ($main) = @_;
+    my $doc = Padre::Documents->current;
+    if (not $doc) {
+        $main->message( 'No file is open', 'Info' );
+
+        return;
+    }
+    my $msg = '';
+    $msg   .= "Doc: $doc\n";
+    $main->message( $msg, 'Info' );
+
     return;
 }