| TK :: ¸Þ°¡ TK :: Mega´Â ¼ø¼öÇÑ Perl¿¡ À§Á¬À» ÀÛ¼ºÇÏ´Â PERL / TK Áö¿øÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
TK :: ¸Þ°¡ ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Slaven Rezić
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~srezic/
TK :: ¸Þ°¡ ű×
TK :: ¸Þ°¡ ¼³¸í
TK :: Mega´Â ¼ø¼öÇÑ Perl¿¡ À§Á¬À» ÀÛ¼ºÇÏ´Â Perl / TK Áö¿øÀÔ´Ï´Ù. TK :: Mega´Â ¼ø¼öÇÑ perl.synopsisDefine¿¡ À§Á¬À» ÀÛ¼ºÇÏ´Â perl / tk Áö¿ø À§Á¬ÀÇ »õ Ŭ·¡½º À̸§ : package tk :: myNewWidget; º¹ÇÕ À§Á¬ Ŭ·¡½ºÀÇ °æ¿ì : ±âº» qw / tk :: container /; # ¿©±â¼ ÄÁÅ×À̳ʰ¡ ÇÁ·¹ÀÓ ¶Ç´Â Å×Æú Ŭ·¡½º ÀÎ °æ¿ì : ±âº» QW / TK :: ÆÄ»ý µÈ TK :: DERIVEDWIDGET /; TKÀÇ ³×ÀÓ ½ºÆäÀ̽º¿¡ »õ À§Á¬À» ¼³Ä¡ÇÏ°í Ŭ·¡½º ¹× ÀνºÅϽº »ý¼ºÀÚ¸¦ ¼³Á¤ÇϽʽÿÀ. TK :: À§Á¬ 'MyNewWidget'À» ±¸¼ºÇÕ´Ï´Ù. Sub Classinit {My ($ self, $ args) = @_; ...} ÇÏÀ§ ä¿ì±â {My ($ self, $ args) = @_; ...} ¿ä±¸ »çÇ× : ¡¤ Perl.
TK :: ¸Þ°¡ °ü·Ã ¼ÒÇÁÆ®¿þ¾î