| etk. ETK´Â °è¸ù µÈ ÅøŶ (ETK)¿¡ ´ëÇÑ Perl ¹ÙÀεùÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
etk. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Chady Kassouf and Hisham Mardam Bey
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~leviathan/Etk-Perl-0.06/lib/Etk.pm
etk. ű×
etk. ¼³¸í
ETK´Â °è¸ù µÈ ÅøŶ (ETK)À»À§ÇÑ Perl ¹ÙÀεùÀÔ´Ï´Ù. ETK´Â °è¸ù µÈ ÅøŶ (ETK)¿¡ ´ëÇÑ Perl ¹ÙÀεùÀÔ´Ï´Ù. ½Ä ³ëÇÁ »ç¿ë ETK; MY $ WIN = ETK :: Window-> new (); ³» $ ¹öÆ° = ETK :: Button-> new (); $ ¹öÆ° -> LabelSet ( "Ŭ¸¯ÇϽʽÿÀ!"); $ WIN-> ADD ($ ¹öÆ°); $ win-> showall (); $ ¹öÆ° -> SignalConnect ( "Ŭ¸¯", Click_CB); ETK :: Main :: Run (); SUB CLICKED_CB {Àμâ "¹öÆ°À» Ŭ¸¯Çß½À´Ï´Ù! n"; }ÀÌ ¸ðµâÀº Perl ³»¿¡¼ ETK¸¦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. °´Ã¼ ÁöÇâ Á¢±Ù ¹æ½ÄÀ» »ç¿ëÇϰųª ±â´ÉÀ» È£ÃâÇÏ¿© Á÷Á¢ µÎ °¡Áö ¹æ¹ý Áß Çϳª·Î »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù (±ÇÀåÇÏÁö ¾ÊÁö¸¸). ¿ä±¸ »çÇ× : ¡¤ Perl.
etk. °ü·Ã ¼ÒÇÁÆ®¿þ¾î