Changeset 11995

Timestamp:

07/24/10 22:34:54 (19 months ago)

Author:

adamk

Message:

Adding an initial simple method to trigger an action by name.
Demonstrated by the following:
Padre::Current->main->action('help.about');

File:

• trunk/Padre/lib/Padre/Wx/Main.pm (modified) (1 diff)

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

@@ -5791 +5791 @@
 Various methods that did not fit exactly in above categories...
 
+=head2 C<action>
+
+  Padre::Current->main->action('help.about');
+
+Single execution of a named action.
+
+=cut
+
+sub action {
+    my $self = shift;
+    my $name = shift;
+
+    # Does the action exist
+    my $action = $self->ide->{actions}->{$name};
+    unless ( $action ) {
+        die "No such action '$name'";
+    }
+
+    # Execute the action
+    $action->menu_event->( $self );
+    return 1;
+}
+
 =head3 C<install_cpan>