ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     13 Mar 2005  21:00:04
 To : Nikolay Pichtin
 Subject : Re: Выстроить кнопки
 -------------------------------------------------------------------------------- 
 

 Nikolay Pichtin wrote:
 
 >                            Добрый вечер All !
 > 
 > 
 > use strict;
 > use Tk;
 > use Tk::Button;
 > my $mw=MainWindow->new(-title=>'Testing');
 > foreach (1 .. 5){
 >  $mw -> Button ( -text=>"B_$_", -command=>[\&pressed,$_] ) -> pack();
 > }
 > MainLoop;
 > exit;
 > 
 > При выполнении кнопки выстраиваются вертикально.
 > А как их выстроить горизонтально?
 
 Прочитать документацию на pack()
 
 use strict;
 use Tk;
 use Tk::Button;
 my $mw=MainWindow->new(-title=>'Testing');
 foreach (1 .. 5){
   $mw -> Button ( -text=>"B_$_", -command=>[\&pressed,$_] ) -> 
 pack(-side => 'left');
 }
 MainLoop;
 exit;
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Выстроить кнопки   Nikolay Pichtin   12 Mar 2005 22:32:12   Re: Выстроить кнопки   Konstantin Tokar   13 Mar 2005 21:00:04