ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      12 Mar 2005  22:32:12
 To : All
 Subject : Выстроить кнопки
 -------------------------------------------------------------------------------- 
 

 
 
 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;
 
 При выполнении кнопки выстраиваются вертикально.
 А как их выстроить горизонтально?
 * Hа yлице стояла жаpа и pота военнопленных.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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

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