Форум русскоязычного сообщества Ubuntu


Хотите сделать посильный вклад в развитие Ubuntu и русскоязычного сообщества?
Помогите нам с документацией!

Автор Тема: Perl - кроссворд  (Прочитано 557 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Canis.Ferox

  • Автор темы
  • Новичок
  • *
  • Сообщений: 27
    • Просмотр профиля
Perl - кроссворд
« : 25 Октября 2011, 09:19:30 »
Здравствуйте, столкнулся с такой проблемой.
Требуется написать программу на Perl'е которая создает кроссворд с использованием Tkx, с его помощью создается сетка кнопок указанного размера и отмечаются места в которые можно вставить слова, причем делается это следующим образом, пользователь нажимает на кнопку которая будет являться первой пустой ячейкой, а потом на вторую (которая является последней) и все кнопки между ними тоже становятся пустыми ячейками.
Поле я реализовал в цикле следующим образом.
use Tkx;
$mw=Tkx::widget->new('.');
$options{g}=~/(.+)x(.+)/;
my($row,$column)=($1,$2);
my(%vertical,%horizontal,%button);
for(my $i=1;$i<=$column;$i++){
for(my $j=1;$j<=$row;$j++){
$button{$i}{$j}=$mw->new_tk__button(-text=>"$i".'x'."$j",-command=>sub{...});
$button{$i}{$j}->g_grid(-column=>$i,-row=>$j);
}
}
Tkx::MainLoop();
И вот собственно в чем заключается проблема, после создания этого поля я не могу отследить какая именно кнопка была нажата. Есть ли какой-нибудь способ это сделать?

 

Страница сгенерирована за 0.031 секунд. Запросов: 26.