Padre :: Plugin :: Shell :: Base.

PADRE Ç÷¯±×ÀÎÀ»À§ÇÑ ±âº» Ŭ·¡½º
Áö±Ý ´Ù¿î·Îµå

Padre :: Plugin :: Shell :: Base. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î