| TK :: Splitframe. TK :: SplitFrameÀº µÎ °³ÀÇ ¼ºê ¿ÍÀ̵带 È®ÀåÇϱâÀ§ÇÑ ±âÇÏÇÐ °ü¸®ÀÚÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
TK :: Splitframe. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Damion K. Wilson
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~dkwilson/Tk-DKW-0.03/Tk/Columns.pm
TK :: Splitframe. ű×
TK :: Splitframe. ¼³¸í
TK :: SplitFrameÀº µÎ °³ÀÇ ¼ºê ¿ÍÀ̵带 È®ÀåÇϱâÀ§ÇÑ Áö¿À¸ÞÆ®¸® °ü¸®ÀÚÀÔ´Ï´Ù. TK :: SplitFrameÀº µÎ °³ÀÇ subwidgets.Synopsis »ç¿ë TK¸¦ È®ÀåÇϱâÀ§ÇÑ ±âÇÏÇÐ °ü¸®ÀÚÀÔ´Ï´Ù. TK :: SplitFrameÀ» »ç¿ëÇϽʽÿÀ. MY $ MADWINDOW = MADWINDOW-> NEW (); $ SplitFrame = $ mainwindow-> splitframe ( '-Orientation'=> '¼¼·Î', '-trimColor'=> '# c7c7c7', '-background'=> white ','-sliderposition '=> 60,' -BorderWidth '=> 2,'-slidewidth '=> 7,'-relief '=>'sunken ','-height '=> 100,'-width '=> 100,'-padbefore '=> 0' -padafter '=> 0); # À§ÀÇ °ªÀº ±âº»°ªÀÔ´Ï´Ù. MY $ NewLabel = $ SplitFrame-> ·¹À̺í ( '-text'=> left '); My $ RightLabel = $ SplitFrame-> ·¹À̺í ( '-text'=> ¿À¸¥ÂÊ '); $ splitframe-> pack (-expand => true, -fill => both); $ splitframe-> configure ( '-sliderposition'=> 22); TK :: MainLoop; SplitFrameÀº IT¿¡ ´ëÇØ ÀνºÅϽºÈ µÈ µÎ °³ÀÇ ¼ºê ¿ÍÀ̵åÀÇ ±âÇÏÇÐÀû °ü¸®ÀÚÀÔ´Ï´Ù. ±×°ÍÀº ¿òÁ÷ÀÌ´Â ½ÃÁ¡ »çÀÌ¿¡ ½½¶óÀ̵ù ºÐ¹è±â¸¦ °¡Áö°í ÀÖÀ¸¸ç, °¢°¢Àº ±×°ÍµéÀÌ ±×°Í°ú °¢°¢ Á¢ÃË ÇÒ ¼ö ÀÖµµ·Ï À¯ÁöµÇµµ·ÏÇÕ´Ï´Ù. ¾î¸°À̵éÀº ¿ÞÂÊ¿¡¼ ¿À¸¥ÂÊÀ¸·Î ¶Ç´Â À§¿¡¼ ¾Æ·¡·Î ÀνºÅϽºÈ µÈ ¼ø¼´ë·Î ÁغñµË´Ï´Ù. ÀνºÅϽºÈ ÈÄ ÁÖ¹®ÀÌ ¼öÁ¤µÇ¾ú½À´Ï´Ù. ¾ÆÀ̵éÀº Æ÷ÀåÇϰųª ¹èÄ¡µÇ¾î¼´Â ¾ÈµË´Ï´Ù. ºÐÇÒ ÇÁ·¹ÀÓÀº ÀÌ°Í¿¡ ´ëÇÑ Ã¥ÀÓÀ» Á®¾ßÇÕ´Ï´Ù. ºÐÇÒ ÇÁ·¹ÀÓÀº óÀ½¿¡´Â ÀÚ³àÀÇ ¼±È£ÇÏ´Â Å©±â·Î ÀÚüÀûÀ¸·Î Á¶Á¤ÇÒ °ÍÀÔ´Ï´Ù .It´Â ±âº» ÇÁ·¹ÀÓ ÀÚüÀÌ¸ç ´Ù¸¥ ÇÁ·¹ÀÓ¿¡ ÇÊ¿äÇÑ °÷À̳ª ´Ù¸¥ °÷¿¡¼ Æ÷ÀåÇϰųª ¹èÄ¡ ÇÒ ¼ö ÀÖ½À´Ï´Ù. Toplevel Windows. ¿ä±¸ »çÇ× : ¡¤ Perl.
TK :: Splitframe. °ü·Ã ¼ÒÇÁÆ®¿þ¾î