ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Sergey V. Leschenko                  2:5020/400     01 May 2002  21:08:02
 To : All
 Subject : perl/Tk
 -------------------------------------------------------------------------------- 
 

 Hi,All
  
   Есть окно (MainWindow).
    Hужно его разделить на две части (2 Tk::Text)
 
 следующий код создает нечто подобное, но Text-Widget'ы слишком большие, 
  как сделать, что-бы каждый widget занимал именно половину MainWindow?
  и желательно, при изменении размера окна, менялись соответсвенно.
 
 ====
 my $top=MainWindow->new();
 
 $top->geometry('400x300');
 
 my $tl  = $top->Scrolled('Text', 
        -scrollbars => "e"
       )->pack(-side => "left");
 my $tr = $top->Scrolled('Text', 
        -scrollbars => "e"
       )->pack(-side => "left");
 MainLoop;
 ====
 -- 
 Best regards,             sm@adamant.net    
 Sergey                     smash@astral.ntu-kpi.kiev.ua
 --- ifmail v.2.15dev5
  * Origin: NTUU "KPI" (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор