|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Alexander 2:5020/400 23 Jan 2002 21:24:51 To : All Subject : Win32::Setupsup --------------------------------------------------------------------------------
Добрый день!
Я тут было погорячился когда написал, что мол проблема с Win32::Setupsup
как-то решена.
Проблема:
В программе прг-1, написанной при помощи Тк, установлен отклик на событие
"нажатие клавиши t":
$mw->bind('<t>' => sub {ххх;});
Работает.
Из прг-1 запускается а затем отдельно живет программа прг-2, которая
вычисляет дескриптор окна прг-1 и периодически генерит ему событие "нажатие
клавиши t" следующим образом:
use Win32::Setupsup;
..........
Win32::Setupsup::SendKeys($window, $keystr, $act, [$timeout]);
И так они живут долго и счастливо, пока не активизируется совсем левое окно.
И тогда несмотря на все вычисленные дескрипторы "нажатие клавиши t" попадает
в это окно, а не туда куда надо.
Как это избежать?
=======================================================
Т.о. я пытаюсь сделать таймер, не приводящий к засыпанию программы, к чему
приводит использование sleep() в прг-1.
Может есть более красивое решение?
=======================================================
Делается все под Виндовс 2000, но желательно чтобы было решение и под 9х.
=======================================================
Еще маленький вопросик.
Hе ведется ли где архив ньюсгруппы, а то у нас сообщения как-то странно то
появляются, то исчезают. В частности я увидел только один ответ на вопрос
"Converter doc to txt" от vitus@ice.ru, за что ему спасибо. Hо я успел
заметить заголовок еще одного ответа, но прочитать его не успел, что-то не
сложилось. Так что просьба к тому кто отвечал еще раз ответить. И если
возможно по адресу: krav@dsnews.com.ua
=======================================================
Спасибо!
--- ifmail v.2.15dev5
* Origin: DS (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/8428cdd39af3.html, оценка из 5, голосов 10
|