Padre :: Plugin :: Shell :: Base.PADRE Ç÷¯±×ÀÎÀ»À§ÇÑ ±âº» Ŭ·¡½º | |
Áö±Ý ´Ù¿î·Îµå |
Padre :: Plugin :: Shell :: Base. ¼øÀ§ ¹× ¿ä¾à
±¤°í
- ƯÇã:
- Perl Artistic License
- °¡°Ý:
- FREE
- °Ô½ÃÀÚ À̸§:
- Gregory Siems
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~gsiems/
Padre :: Plugin :: Shell :: Base. ű×
Padre :: Plugin :: Shell :: Base. ¼³¸í
Padre Ç÷¯±×ÀÎÀ»À§ÇÑ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù padre :: plugin :: shell :: base´Â ½Ã½ºÅÛ ½©À» »ç¿ëÇÏ¿© padre.exampleseubclass padre :: plugin :: shell :: base¸¦ È®ÀåÇÏ¿© Ç÷¯±×ÀÎÀ» ¸¸µå´Â Ç÷¯±×ÀÎÀÇ ±âº» Ŭ·¡½ºÀÔ´Ï´Ù. ÆÐÅ°Áö Padre :: Plugin :: Shell :: Foo; ±âº» 'padre :: plugin :: shell :: base'¸¦ »ç¿ëÇϽʽÿÀ. »ç¿ë 5.008; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. Padre :: wx ()¸¦ »ç¿ëÇϽʽÿÀ. SUB PLUGIN_MENU {MY ($ self) = @_; ³» @menu = (); Ǫ½Ã @menu, "do foo"=> sub {$ self-> do_foo ()}; @menu, '---'=> undef; Ǫ½Ã @menu, wx :: getText ( "Configure foo") => ÇÏÀ§ {$ self-> edit_config_file ()}; @menu retit retitn; } sub example_config {my ($ self) = @_; ³» $ config = "--- \ n"; # Ãß°¡ ±¸¼º ¸®ÅÏ $ CONFIG; } sub do_foo {my ($ self) = @_; My % config = $ self-> get_config (); # Ãß°¡ foo} 1; subclass padre :: Ç÷¯±×ÀÎÀ» ·¦À¸·Î ·¦ÇÕ´Ï´Ù. ÆÐÅ°Áö Padre :: Ç÷¯±×ÀÎ :: Foo; ±âº» 'Padre :: Plugin'À» »ç¿ëÇϽʽÿÀ. »ç¿ë 5.008; ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. padre :: plugin ()À» »ç¿ëÇϽʽÿÀ; padre :: plugin :: shell :: foo; ¿ì¸®ÀÇ $ version = '0.01'; ³» $ foo_plugin; SUB PLUGIN_NAME { 'foo'; } Sub Padre_Interfaces { 'padre :: plugin'=> 0.43; } sub menu_plugins_simple {my ($ self) = @_; $ foo_plugin = padre :: plugin :: shell :: foo-> new (); 'foo'=> ; } 1; ¿ä±¸ »çÇ× : ¡¤ Perl.
Padre :: Plugin :: Shell :: Base. °ü·Ã ¼ÒÇÁÆ®¿þ¾î