ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Igrevsky                    2:5020/400     23 Nov 2000  15:21:01
 To : All
 Subject : ActivePerl/Tk & messageBox
 -------------------------------------------------------------------------------- 
 

 Hi, All !
 
 Возникла проблема следующего вида:
 $main = MainWindow->new(-title=>"Test", -height=>-10, -width=>-20);
 далее вывожу разные объекты - Text, Button и т.д.
 if (какое-то условие) {
   $err_=$main->messageBox(-message => "Error  .....!",  -title =>
 'Error', -type => 'Ok');
 }
 MainLoop;
 
 Так вот - если условие не выполняется - все замечательно, если
 выполняется, то появляется messageBox, прижимаю Ok. Появляется моя
 форма, но ни одно поле, ни одна кнопка не действуют. Форму можно только
 закрыть через стандартный правый угол - крест или левый угол -Close.
 
 Если вместо messageBox использовать DialogBox - все Ok.
 
 В чем проблема ?
 
 Заранее спасибо за ответ.
 
 Пока.
 Всех благ.
 Владимир
 --- ifmail v.2.15dev5
  * Origin: DRB (2:5020/400)
 
 

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