ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Nikolay Pichtin                      2:5056/30      05 Dec 2004  20:46:48
 To : Artem Chuprina
 Subject : Re: Tk
 -------------------------------------------------------------------------------- 
 

 
 
  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"; }
 
 Хотелось бы спросить - а как сделать, чтобы кнопки
 располагались в горизонтально?
 
 * Женщина не знает, как забить гвоздь, зато точно знает - где.
 -- Hиколай
 ----------------------------------------------------------------------
 ---
  * Origin: Истина - это вовсе не то, что можно убедительно доказать (2:5056/30)
 
 

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

Тема:    Автор:    Дата:    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