TK :: ObjectHandler.

TK ¿ë Perl È®ÀåÀÚ
Áö±Ý ´Ù¿î·Îµå

TK :: ObjectHandler. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Simon Parsons
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~caillte/

TK :: ObjectHandler. ű×


TK :: ObjectHandler. ¼³¸í

TK¸¦À§ÇÑ Perl È®ÀåÀÚ TK :: ObjectHandler´Â TK.Synopsis »ç¿ë TK :: ObjectHandler ¿ë Perl È®ÀåÀÚÀÔ´Ï´Ù. ³» $ tk = tk :: objectHandler-> new (); $ TK-> add_widget ( "¹öÆ°", "¹öÆ°", "," "Me", -command => sub {$ TK-> destroy ();}); $ TK-> But1-> ÆÑ (-fill => "µÑ ´Ù"); $ TK-> ·çÇÁ; AbstractTK :: ObjectHandler TK À§Á¬À» º¸À¯ÇÏ´Â µ¥ »ç¿ëµÇ´Â º¯¼ö¸¦ »ý¼º, ÁÖ¹® ¹× Ä«Å»·Î±×È­ÇÏ´Â ÀÚµ¿È­ µÈ ¹æ¹ýÀ» Á¦°øÇÕ´Ï´Ù. È¥¶õ½º·¯¿î °³º° ¼ö¸¦ »ç¿ëÇؾßÇÏ´Â ´ë½Å ObjectHandler´Â »óÀ§ À§Á¬¿¡ Æ÷Àå µÈ À§Á¬ÀÌ ºÎ¸ð À§Á¬À» ÅëÇØ È£ÃâµÇµµ·Ï À§Á¬À» Á¤·ÄÇÕ´Ï´Ù. TK¿¡¼­ ÇÁ·Î±×·¥À» º¸À¯ÇÏ´Â µ¥ ÇÊ¿äÇÑ º¯¼ö ¼ö·Î ÀÎÇØ È¥¶õ ½º·¯¿ï ¼ö ÀÖ½À´Ï´Ù. À§Á¬¿¡ ´ëÇÑ Æ÷ÀÎÅÍ. TK :: ObjectHandler´Â À§Á¬¿¡ ´ëÇÑ ³í¸®Àû ÀÎ »óÈ£ ±¸Á¶¸¦ Á¦°øÇϱâÀ§ÇÑ ÀϹÝÀûÀÎ ¹æ¹ýÀ» Á¦°øÇÏ·Á´Â ½ÃµµÀ̹ǷΠÇϳªÀÇ ÀÔ±¸ Æ÷ÀÎÆ®¸¦ ÅëÇØ ½±°Ô ÂüÁ¶ ÇÒ ¼ö ÀÖ½À´Ï´Ù. TK :: ObjectHandler °³Ã¼´Â TK :: Toplevel À§Á¬À» ¼³Á¤ÇÏ°íÀ̸¦ ·¦ÇÎÇÕ´Ï´Ù. ÀÚ½ÅÀÇ °ü¸® ÄÚµå. ÀÌ Äڵ带 »ç¿ëÇϸé ÇϳªÀÇ ÁøÀÔ Á¡À» ÅëÇØ ¾×¼¼½º ÇÒ ¼öÀÖ´Â À§Á¬ÀÇ ÇìÀÌ¾î ±¸Á¶¸¦ ¼³Á¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¿¹¸¦ µé¾î, ¸î °¡Áö ·¹À̺í°ú ´Ý±â ¹öÆ°À¸·Î °£´ÜÇÑ º¸°í¼­ âÀ» »ó»óÇغ¸½Ê½Ã¿À. ÀüÅëÀûÀÎ TK¿¡¼­´Â ´ÙÀ½°ú °°Àº À̵éÀ» ¸¸µé °ÍÀÔ´Ï´Ù : My $ MW = New MainWindow (); ³» $ label1 = $ mw-> label (-text => 'title text'); MY $ label2 = $ MW-> ·¹À̺í (-text => '¸Þ½ÃÁö âÀÇ º»¹® ÅؽºÆ®'); MY $ BUTTON = $ MW-> ¹öÆ° (-TEXT => 'CLOSE', -COMMAND => SUB {$ MW-> Æı«]); $ label1-> pack (); $ label2-> pack (); $ button-> pack (); ObjectHandler¸¦ »ç¿ëÇÏ¿© »ç¿ëµÇ´Â º¯¼ö°¡ Çϳª»ÓÀÔ´Ï´Ù. ³» $ mw = tk :: objectHandler-> new (); $ MW-> add_widget ( 'label', 'label1', -text => 'Á¦¸ñ ÅؽºÆ®'); $ MW-> add_widget ( 'label', 'label2', -text => '¸Þ½ÃÁö âÀÇ º»¹® ÅؽºÆ®'); $ MW-> add_widget ( '¹öÆ°', '¹öÆ°', -Text => '´Ý±â', -Command => sub {$ mw-> destroy]); $ MW-> Label1-> ÆÑ (); $ MW-> Label2-> ÆÑ (); $ MW-> ¹öÆ° -> ÆÑ (); ±× Â÷ÀÌÁ¡Àº ¹«¾ùÀԴϱî? ±× ¿¹¿¡¼­, À§ÀÇ ¿¹¿¡¼­´Âº°·Î ¾øÁö¸¸ ´õ Å« ÇÁ·Î±×·¥¿¡¼­ ÇÊ¿äÇÑ º¯¼öÀÇ ¼ö¸¦ ÃßÀûÇÏ°í º¯¼ö¸¦ »ç³ÉÇÏ´Â µ¿¾È º¹Á¦ ¹× °³¹ß ½Ã°£À» ´ÊÃß´Â °ÍÀ» ÃßÀûÇϱⰡ ¾î·Á¿ï ¼ö ÀÖ½À´Ï´Ù. ObjectHandler´Â µÎ °¡Áö ¹æ¹ý À¸·ÎÀÌ ¹®Á¦¸¦ overcoesÇÕ´Ï´Ù. ù°, °´Ã¼´Â ±¸Á¶È­ µÈ Çü½ÄÀ¸·Î Ç¥½ÃµÇ¸ç ¾Æ·¡ÀÇ ºÎ¸ð¸¦ ÅëÇØ ´ÜÁö À§Á¬À» ÂüÁ¶ ÇÒ ¼ö ÀÖ½À´Ï´Ù : $ MW-> ÇÁ·¹ÀÓ -> label1-> configure (...) ... À§Á¬ Label1À» ±¸¼ºÇÕ´Ï´Ù. ¸ÞÀÎ À©µµ¿ì·Î º¯Çü µÈ ÇÁ·¹ÀÓ¿¡ ÷ºÎµË´Ï´Ù.ÀÌ heiRArcal À̸§ ÁöÁ¤ ¹æ¹ýÀº À¯È¿ÇÑ À§Á¬ À̸§À¸·Î ´ÙÀ½À» »ç¿ëÇÒ ¼ö ÀÖÀ½À» ÀǹÌÇÕ´Ï´Ù. $ mw-> frame1-> label1 ... $ mw-> frame2-> label1 ... $ MW-> Frame3-> Label1 ... $ MW-> Frame4-> Label1 ... °¡º¯ À̸§À» »ý°¢ÇÒ ¶§ ³ú¸¦ Àý¾àÇÏ°í ³ú¿¡ ÂõÀ» ¼öÀÖ´Â µÎ ¹ø° ¹æ¹ý µµ¿òÀ̵Ǵ °ÍÀº ÀÚü ¹®¼­È­ ÄÚµåÀÔ´Ï´Ù. º¸°í¼­ ¸Þ¼Òµå¸¦ »ç¿ëÇÏ¿© Àüü ÇÁ·Î±×·¥ÀÇ À§Á¬ ¹× ÇÏÀ§ À§Á¬ (ÇÏÀ§ ÇÏÀ§ À§Á¬ µî)¿¡ ´ëÇÑ º¸°í¼­¸¦ ÀÚµ¿À¸·Î »ý¼º ÇÒ ¼ö ÀÖ½À´Ï´Ù. À̸§°ú À§Á¬ À¯Çü»Ó¸¸ ¾Æ´Ï¶ó ObjectHandler´Â ¶ÇÇÑ Æ®¸®¿¡ ÁÖ¼®À» ÀεµÇÏ´Â °ÍÀ» Çã¿ëÇÕ´Ï´Ù. ¿ä±¸ »çÇ× : ¡¤ Perl.


TK :: ObjectHandler. °ü·Ã ¼ÒÇÁÆ®¿þ¾î