| WX :: Perl :: VirtualTreectrl. ¼ö¿ä¿¡ ´ëÇÑ Æ®¸® ÄÁÆ®·Ñ ±¸Ãà |
Áö±Ý ´Ù¿î·Îµå |
WX :: Perl :: VirtualTreectrl. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://www.bbc.co.uk
WX :: Perl :: VirtualTreectrl. ű×
WX :: Perl :: VirtualTreectrl. ¼³¸í
¼ö¿ä¿¡ µû¶ó ³ª¹« ÅëÁ¦¸¦ ±¸ÃàÇϽʽÿÀ WX :: Perl :: VirtualTreectrlÀº Æ®¸®ÀÇ ³ëµå°¡ È®Àå µÉ ¶§ Ç׸ñÀ» µ¿ÀûÀ¸·Î ä¿ì´Â °ÍÀ» Á¦¿ÜÇÏ°í´Â WX :: Treectrl°ú °°Àº Æ®¸®¸¦ ±¸ÇöÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. µ¥ÀÌÅͺ£À̽º¿Í °°Àº ¿ø°Ý ¼Ò½º¿¡¼ Æ®¸®¸¦ ä¿ì°Å³ª Æ®¸®°¡ ¸Å¿ì Å« °æ¿ì Æ®¸®¸¦ ä¿ì¸é Ç¥ÁØ Æ®¸® ÄÁÆ®·ÑÀ» ÅëÇØÀÌ ÄÁÆ®·ÑÀ» ¼±È£ ÇÒ ¼ö ÀÖ½À´Ï´Ù.ÀÌ ¸ðµâÀº Ç¥ÁØ WX :: Treectrl.Synopsis¿Í µ¿ÀÏÇÑ ÀÎÅÍÆäÀ̽º¸¦ ±¸ÇöÇÕ´Ï´Ù WX »ç¿ë :: Perl :: VirtualTreectrl 'EVT_POPULE_TREE_ITEM'; ³» $ TREE = NEW WX :: Perl :: VirtualTreectrl ($ tree_ctrl); EVT_POPULE_TREE_ITEM ($ ÀÚ¾Æ, $ Æ®¸®, ADDCHALDREN); ³» $ root = $ tree-> AddRoot ($ name, $ data); $ tree-> È®Àå ($ root); ÇÏÀ§ AddChildren {My ($ self, $ À̺¥Æ®) = @_; ³» $ tree = $ À̺¥Æ® -> getEventObject; ³» $ ITEM = $ À̺¥Æ® -> GETITEM; MY $ ITEM_DATA = $ TREE-> getPLDATA ($ Ç׸ñ); if ($ tree-> getChildrenCount ($ Ç׸ñ, 0)) {# updit yuild ... ³» ($ ÇÏÀ§, $ ÄíÅ°) = $ tree-> getFirstChild ($ Ç׸ñ); while ($ ÇÏÀ§ $ Child-> ISOK) {My $ child_data = $ tree-> getPLDATA ($ ¾ÆÀÌ); # (child_was_deleted ($ child_data)) {$ tree-> delete ($ ¾ÆÀÌ) ÀÎ °æ¿ì »èÁ¦ µ¿±âÈ; } ($ child, $ cookie) = $ tree-> getnextchild ($ child, $ cookie); }} else {# @child_data = expluess_process_to_get_children ($ item_data)À» óÀ½À¸·Î Ãß°¡ÇϽʽÿÀ. foreach (@child_data) {my $ child = $ tree-> appendItem ($ Ç׸ñ, $ _-> {name}); # $ TREE-> SETITEMHASCHILDREN ($ ¾î¸°ÀÌ, 1)À̶ó¸é Ç׸ñ È®ÀåÀ» È®Àå ÇÒ ¼ö ÀÖ½À´Ï´Ù. }}} ¿ä±¸ »çÇ× : ¡¤ Perl.
WX :: Perl :: VirtualTreectrl. °ü·Ã ¼ÒÇÁÆ®¿þ¾î