ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     06 Dec 2004  00:53:42
 To : Nikolay Pichtin
 Subject : Re: Tk
 -------------------------------------------------------------------------------- 
 

 Nikolay Pichtin -> Artem Chuprina  @ Sun, 05 Dec 2004 19:46:48 +0300:
 
  AC>> #!/usr/local/bin/perl -w
  AC>> # Callback example
  AC>> use strict;use Tk;use Tk::Button;
  AC>> my $mw=MainWindow->new(-title=>'testing callbacks');
  AC>> foreach (1 .. 5){
  AC>>   $mw -> Button ( -text=>"Button_$_", -command=>[\&pressed,$_] ) ->
  AC>> pack(); }
  AC>>  MainLoop; #===vptk end===< DO NOT CODE ABOVE THIS LINE >===
  AC>> sub pressed{ my $number=shift; print "Pressed button $number at
  AC>> <".join("><",caller()).">\n"; }
 
  NP> Хотелось бы спросить - а как сделать, чтобы кнопки
  NP> располагались в горизонтально?
 
 Спроси.  Документацию на используемый geometry manager.
 
 -- 
 Artem Chuprina <ran{}ran.pp.ru>
 --- ifmail v.2.15dev5.3
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Re: Tk   Artem Chuprina   05 Dec 2004 18:04:29   Re: Tk   Nikolay Pichtin   05 Dec 2004 20:46:48   Re: Tk   Artem Chuprina   06 Dec 2004 00:53:42   Re[2]: Tk   Maxim Yemelyanov   06 Dec 2004 20:34:14