TK :: Splitframe.

TK :: SplitFrameÀº µÎ °³ÀÇ ¼­ºê ¿ÍÀ̵带 È®ÀåÇϱâÀ§ÇÑ ±âÇÏÇÐ °ü¸®ÀÚÀÔ´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

TK :: Splitframe. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • 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. °ü·Ã ¼ÒÇÁÆ®¿þ¾î