ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Yuri Kostylev                        2:5050/61.1    06 Dec 2004  01:17:22
 To : Artem Chuprina
 Subject : Re: Tk
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: news@my.at.home.net
 .RFC-NNTP-Posting-Date: 5 Dec 2004 20:17:23 GMT
 .RFC-Cancel-Lock: sha1:i3KmNs7s+f16vH06gs74gCez+kg=
 From: Yuri Kostylev <Yuri.Kostylev@p1.f61.n5050.z2.fidonet.org>
  AC> Hi Yuri, Sat 04 Dec 04 16:27 you wrote to RU.PERL:
  >> Я торможу?
  >> 
  >> for(1..5) { $some_widget -> Button(-text=>"Button $_",
  >> -command=>\&pressed);
  >> }
  >> 
  >> sub pressed { # как здесь узнать, на какую кнопку нажали?  # в
  >> tcl, python - элементарно...  # @_ - пусто
  >> }
 
  AC> А кто сказал что в callback-функцию что-то должно передаваться
  AC> по-умолчанию?  Вот работающий пример (частично сваял при помощи
  AC> моего билдера):
 
 Да, спасибо, я уже сообразил.
 
 Кстати,
 $button -> bind($seq, [sub {...}]);
 в sub передаётся $button
 -- 
 Rydw i'n mynd i aros yma.  ICQ 217840168
 
 --- Gnus/5.1006 (Gnus v5.10.6) Emacs/21.2 (gnu/linux)
  * Origin: Izhevsk (2:5050/61.1@fidonet)
 
 

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