Добавлено через 7 минут и 34 секунды
$canvas->Tk::bind( "<Button-1>", [ sub { print "$_[1] $_[2]\n"; }, Ev('x'), Ev('y') ] );
Сам c Tk давно не работал, но гуглится куча вариантов
| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Perl: GUI > Canvas? |
| Автор: Remisto 23.4.2010, 17:10 |
| Добрый день! Возник вопрос по поводу объекта Canvas в Tk. Есть ли какой-то способ взаимодействия с ним при нажатии на него? Чтобы он работал как кнопка. Или даже так: Можно ли как-нибудь узнать координаты точки, в которую только что кликнули мышкой? |
| Автор: shamber 23.4.2010, 21:00 |
| Remisto, я думаю можно Добавлено через 7 минут и 34 секунды $canvas->Tk::bind( "<Button-1>", [ sub { print "$_[1] $_[2]\n"; }, Ev('x'), Ev('y') ] ); Сам c Tk давно не работал, но гуглится куча вариантов |
| Автор: Remisto 24.4.2010, 07:39 |
| Большое спасибо! Работает идеально |
| Автор: shamber 24.4.2010, 11:42 |
| Remisto, всегда пожалуйста |