| Æ®¸® :: ´Ü¼ø :: View :: DHTML. Æ®¸® :: SIMPLE :: VIEW :: DHTMLÀº DHTMLÀÇ Æ®¸® :: °£´ÜÇÑ °èÃþ ±¸Á¶¸¦ º¼ ¼öÀÖ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
Æ®¸® :: ´Ü¼ø :: View :: DHTML. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Stevan Little
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~stevan/
Æ®¸® :: ´Ü¼ø :: View :: DHTML. ű×
Æ®¸® :: ´Ü¼ø :: View :: DHTML. ¼³¸í
TREE :: SIMPLE :: VIEW :: DHTMLÀº DHTMLÀÇ Æ®¸® :: °£´ÜÇÑ °èÃþ ±¸Á¶¸¦ º¼ ¼öÀÖ´Â Perl Ŭ·¡½ºÀÔ´Ï´Ù. TREE :: SIMPLE :: VIEW :: DHTMLÀº TREE¸¦ º¼ ¼öÀÖ´Â PERL Ŭ·¡½ºÀÔ´Ï´Ù. DHTML.SYNOPSIS¿¡¼ °£´ÜÇÑ °èÃþ ±¸Á¶ TREE :: SIMPLE :: VIEW :: DHTML; ## °£´ÜÇÑ ¿¹Á¦ # ±âº»°ª (CSS°¡¾ø´Â ¼ø¼°¡¾ø´Â ¸ñ·Ï) ³» $ tree_view = tree :: Simple :: View :: DHTML-> »õ ($ Æ®¸®); ## ´õ º¹ÀâÇÑ ¿¹Á¦ # CSS ¼Ó¼ºÀ» »ç¿ëÇÏ¿© $ tree_view = tree :: simple :: view :: dhtml-> new ($ tree => (list_type => "ordered", list_css => "list-style : circle; ", list_item_css =>"font-family : Åùè; È®Àå µÈ _item_css => "font-family : Åùè; ±Û²Ã - ¹«°Ô : ±½°Ô", ¸µÅ© _css => "ÅؽºÆ® Àå½Ä : ¾øÀ½;")); # css Ŭ·¡½º »ç¿ë My $ tree_view = tree :: simple :: view :: dhtml-> new ($ tree => (list_css_class => "myListClass =>"myListClass ", list_item_css_class =>"myListItemclass ","myexpandedlistitemclass ", link_css_class => "myListItemLinkClass")); # CSS ¼Ó¼º ¹× CSS Ŭ·¡½º ¹Í½º My $ TRAS_VIEW = TRAS :: SIMPLAT :: VIEW :: DHTML-> NEW ($ TREES => (list_css => "list_css =>"list-style : circle; ", list_item_css =>"±Û²Ã - °¡Á·) : Åùè; È®Àå => "myExpandedListItemClass", link_cs_class => "myListItemLassClass"# format {my ($ tree) = @_; return "" ". $ tree-> getNodeValue () -> ¼³¸í (). "";}, # tree_id '¶óµð¿À =>'tree_id 'À̸§À¸·Î Æ®¸® #¿¡ ¶óµð¿À ´ÜÃß ¿ä¼Ò¸¦ Ãß°¡ÇϽʽÿÀ); #ÀÌ Æ®¸®ÀÇ DHTML # ±â´ÉÀ»À§ÇÑ Javascript Nessecary Àμâ $ TREE_VIEW-> JavaScript (); # Æ®¸®¸¦ ¿ÏÀüÈ÷ È®Àå ÇÑ Àμâ $ tree_view-> expandall (); # ÁÖ¾îÁø °æ·Î¸¦ µû¶ó ÆîÃÄÁø Æ®¸®¸¦ ÀμâÇϽʽÿÀ (ÀÚ¼¼ÇÑ ³»¿ëÀº ¾Æ·¡ ÂüÁ¶) $ TREE_VIEW-> È®Àå °æ·Î ( "·çÆ®", "ÀÚ½Ä", "¼ÕÀÚ"); ¿ä±¸ »çÇ× : ¡¤ Perl.
Æ®¸® :: ´Ü¼ø :: View :: DHTML. °ü·Ã ¼ÒÇÁÆ®¿þ¾î