Changes between Version 54 and Version 55 of PadrePluginCookbookRecipie05


Ignore:
Timestamp:
Nov 22, 2012, 8:32:41 PM (2 years ago)
Author:
bowtie
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • PadrePluginCookbookRecipie05

    v54 v55  
    348348 
    349349---- 
     350=== about_dialog 
     351 
     352The following are from wxperl_demo.pl both work in a Plugin, chose and edit to taste. 
     353 
     354{{{#!perl 
     355sub simple_about_dialog { 
     356    my $self = shift; 
     357    my $info = Wx::AboutDialogInfo->new; 
     358 
     359    $info->SetName( 'The wxPerl demo' ); 
     360    $info->SetVersion( '0.01 alpha 12' ); 
     361    $info->SetDescription( 'The cool and pluggable wxPerl demo' ); 
     362    $info->SetCopyright( '(c) 2001-today Me <me@test.com>' ); 
     363 
     364    Wx::AboutBox( $info ); 
     365} 
     366}}} 
     367 
     368{{{#!perl 
     369sub complex_about_dialog { 
     370    my $self = shift; 
     371    my $info = Wx::AboutDialogInfo->new; 
     372 
     373    $info->SetName( 'The wxPerl demo' ); 
     374    $info->SetVersion( '0.01 alpha 12' ); 
     375    $info->SetDescription( 'The cool and pluggable wxPerl demo' ); 
     376    $info->SetCopyright( '(c) 2001-today Me <me@test.com>' ); 
     377    $info->SetWebSite( 'http://wxperl.eu/', 'The wxPerl demo web site' ); 
     378    $info->AddDeveloper( 'Mattia Barbon <mbarbon@cpan.org>' ); 
     379    $info->AddDeveloper( 'I wish there was somebody else...' ); 
     380 
     381    $info->SetArtists( [ 'Unluckily', 'none', 'so', 'the', 
     382                         'graphic', 'is', 'bad' ] ); 
     383 
     384    Wx::AboutBox( $info ); 
     385} 
     386}}} 
     387 
     388---- 
    350389=== plugin_preferences 
    351390