| TK :: OptionMenu TK :: OptionMenu´Â »ç¿ëÀÚ°¡ »çÀü Á¤ÀÇ µÈ ¿É¼Ç °ª Áß Çϳª¸¦ ¼±ÅÃÇÏ°ÔÇÕ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
TK :: OptionMenu ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~ni-s/Tk-804.027/pod/Adjuster.pod
TK :: OptionMenu ű×
TK :: OptionMenu ¼³¸í
TK :: OptionMenu´Â »ç¿ëÀÚ°¡ ¹Ì¸® Á¤ÀÇ µÈ ¿É¼Ç °ª Áß Çϳª¸¦ ¼±ÅÃÇÏ°ÔÇÕ´Ï´Ù. TK :: OptionMenu´Â »ç¿ëÀÚ°¡ ¹Ì¸® Á¤ÀÇ µÈ ¿É¼Ç °ª Áß Çϳª¸¦ ¼±ÅÃÇÏ°ÔÇÕ´Ï´Ù .Snopsis »ç¿ë Opternmenu; $ opt = $ w-> optionMenu (-options => reference_to_optionlist, -command => Äݹé, °¡º¯ => scalar_ref); $ opt-> addOptions (optionList); # a) $ val1, $ val2, $ val3, ... # b) , , ...] # c) a) ¹× b), ¿¹¸¦ µé¾î # val1, , val3, val4, , ... »ç¿ëÀÚ°¡ ÁÖ¾îÁø ¿É¼Ç ¼¼Æ® »çÀÌ¿¡¼ »ç¿ëÀÚ°¡ ¼±ÅÃÇÒ ¼öÀÖ°ÔÇÕ´Ï´Ù. »ç¿ëÀÚ°¡ »ç¿ëÇÒ ¼ö ÀÖ¾î¾ßÇÕ´Ï´Ù. »ç¿ë °¡´ÉÇÑ ¿É¼ÇÀ» º¯°æÇÏ·Á¸é TK :: BROWSEETRY.OPTIONS-OPTIONS (RE) ¿É¼Ç ¸ñ·ÏÀ» Ç¥½ÃÇÕ´Ï´Ù.-commandDefines »õ ¿É¼ÇÀÌ ¼±ÅõǸé È£ÃâµÇ´Â ÄݹéÀÔ´Ï´Ù .- ÇöÀ縦 Æ÷ÇÔÇÏ´Â ½ºÄ®¶ó¿¡ ´ëÇÑ variablereference ¼±ÅÃÇÑ ¿É¼ÇÀÇ °ªÀÔ´Ï´Ù .- ¼±ÅÃÇÑ ¿É¼ÇÀÇ ÇöÀç °ªÀÇ ÅؽºÆ® ·¹À̺íÀÌ Æ÷ÇÔ µÈ ½ºÄ®·¯¿¡ ´ëÇÑ ÅؽºÆ® ¹Ù·Î ȸÀÇ. MY $ MW = MADWINDOW-> NEW (); ³» ($ var, $ tvar); $ opt = $ mw-> optionMenu (-options => , , ], -command => sub { "GOT :", SHIFT, "N"}, -VARABLE => $ VAR, -TEXTVARIBLE => $ TVAR) -> ÆÑ; $ opt-> addOptions (, , , ; MY $ F = $ MW-> ÇÁ·¹ÀÓ (-RELIEF => '±×·çºê', -BORDERWIDTH => 2) -> ÆÑ; $ f-> label (-textvariable => $ tvar) -> ÆÑ (-side => ¿ÞÂÊ '); $ f-> label (-text => "->") -> ÆÑ (-side => ¿ÞÂÊ "); $ F-> ·¹À̺í (-textvariable => $ var) -> ÆÑ (-side => ¿ÞÂÊ '); $ MW-> ¹öÆ° (-text => 'exit', -command => sub {$ mw-> destroy}) -> ÆÑ; ¸ÞÀÎ ·çÇÁ; ¿ä±¸ »çÇ× : ¡¤ Perl.
TK :: OptionMenu °ü·Ã ¼ÒÇÁÆ®¿þ¾î