| tk :: columns TK :: columns´Â Á¤·Ä ¹× »ó´çÇÑ ¿ÀÌÀÖ´Â ¸ÖƼ Äݸ®Áò ¸ñ·Ï À§Á¬ÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
tk :: columns ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Damion K. Wilson
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dkwilson/Tk-DKW-0.03/Tk/Columns.pm
tk :: columns ű×
tk :: columns ¼³¸í
TK :: Columns´Â Á¤·Ä ¹× »ó´çÇÑ ¿ÀÌÀÖ´Â ¸ÖƼ Ä÷³ ¸ñ·Ï À§Á¬ÀÔ´Ï´Ù. TK :: columns´Â ºÐ¸íÇÏ°í »ó´çÇÑ Columns.Synopsis »ç¿ë TK :: ¿À» »ç¿ëÇÏ´Â Multicolumn List À§Á¬ÀÔ´Ï´Ù. $ columns = $ »óÀ§ -> b ( '-columnlabels'=> 'listbackground '=>'white ','-listforeground '=>'black ','-buttonforeground => 'black' ','-ButtonBackground '=>'blue ',); $ columnheader = $ columns-> b ( '-listfont'=> '- - New Century Schoolbook-medium-r-normal - 14 - * - * - * - * - * - * - *'- ' '=>'º£ÀÌÁö ','-text '=>'column3 ','-width '=> 15,'-trimcount '=> 2,'-listbackground '=>'white ','-listforeground => ' Black ','-buttonforeground '=>'Black ','-buttonBackground '=>'Blue ','-sort '=>'true ','-sortcommand '=>'$ a cmp $ b ','-Image '=> $ icon_image,'-buttoncommand '=> sub {...},'-selectCommand '=> sub {...}); $ columns-> insert ( 'end', ); $ columns-> insert ( 'end', {column1 '=>'list ','column2 '=>'Çà ','column3 '=>'content '}); $ columns-> »ðÀÔ ( 'end', 'list', 'Çà', '³»¿ë'); $ columns-> »èÁ¦ (0, 'end'); ... TK :: MainLoop; ¿ä±¸ »çÇ× : ¡¤ Perl.
tk :: columns °ü·Ã ¼ÒÇÁÆ®¿þ¾î