<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Hy Kristian,
<p>I'm afraid it does not work better !!
<br>I've tried to look inside mcgui.pl
<br>It seems that that error occurs during the waitVariable call of the
do loop (function dialog_get_out_file)
<p>do {
<br> $dlg->waitVariable(\$state);
<br> } until $state;
<p>Here is the perldb output (which is about the same as before, I've added
some 'print breakpoints'...) :
<p>mica~farhi 44% ./mcgui-new.pl in14_tut.instr
<p>Loading DB routines from perl5db.pl version 1.01
<br>Emacs support available.
<p>Enter h or `h h' for help.
<p>Ambiguous use of expand => resolved to "expand" => at /usr/ill/lib/perl5/site_pe
<br>rl/Tk/Text.pm line 1038.
<br> require Tk/Text.pm called
at (eval 5) line 2
<br> eval 'require Tk::Text
<br>;' called at /usr/ill/perl/lib/base.pm line 36
<br> base::import('base', 'Tk::Text')
called at /usr/ill/lib/perl5/site_perl/
<br>Tk/TextUndo.pm line 13
<br> Tk::TextUndo::BEGIN() called
at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
<br>line 1038
<br> eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1038
<br> require Tk/TextUndo.pm called
at ./mcgui-new.pl line 12
<br> main::BEGIN() called at
/usr/ill/lib/perl5/site_perl/Tk/Text.pm line 103
<br>8
<br> eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1038
<br>Ambiguous use of expand => resolved to "expand" => at /usr/ill/lib/perl5/site_pe
<br>rl/Tk/Text.pm line 1075.
<br> require Tk/Text.pm called
at (eval 5) line 2
<br> eval 'require Tk::Text
<br>;' called at /usr/ill/perl/lib/base.pm line 36
<br> base::import('base', 'Tk::Text')
called at /usr/ill/lib/perl5/site_perl/
<br>Tk/TextUndo.pm line 13
<br> Tk::TextUndo::BEGIN() called
at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
<br>line 1075
<br> eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1075
<br> require Tk/TextUndo.pm called
at ./mcgui-new.pl line 12
<br> main::BEGIN() called at
/usr/ill/lib/perl5/site_perl/Tk/Text.pm line 107
<br>5
<br> eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1075
<br>main::(./mcgui-new.pl:3): if($ENV{"MCSTAS"})
{
<br> DB<1> r
<br>after savefocus
<br>before for
<br>before get_out_file_next call
<br>before run_dialog_popup call
<br>before run_dialog_reader
<br>after run_dialog_reader
<br>after fileevent
<br>before do waitVariable
<br>Signal SEGV at ./mcgui-new.pl line 380
<br> main::__ANON__() called
at /usr/ill/perl/lib/perl5db.pl line 1136
<br> Tk::Widget::waitVariable('Tk::Toplevel=HASH(0x10c19248)',
'SCALAR(0x106a
<br>de78)') called at ./mcgui-new.pl line 388
<br> main::dialog_get_out_file('MainWindow=HASH(0x10ac44a4)',
'in14_tut.instr
<br>', 1) called at ./mcgui-new.pl line 429
<br> main::compile_instrument('MainWindow=HASH(0x10ac44a4)',
1) called at ./m
<br>cgui-new.pl line 449
<br> main::menu_compile('MainWindow=HASH(0x10ac44a4)')
called at ./mcgui-new.
<br>pl line 578
<br> main::__ANON__() called
at /usr/ill/perl/lib/perl5db.pl line 1134
<br> eval {...} called at /usr/ill/perl/lib/perl5db.pl
line 1134
<br> Tk::__ANON__('Tk::Menu=HASH(0x10b2d450)',
'active') called at /usr/ill/l
<br>ib/perl5/site_perl/Tk/Menu.pm line 530
<br> Tk::Menu::Invoke('Tk::Menu=HASH(0x10b2d450)',
1) called at /usr/ill/perl
<br>/lib/perl5db.pl line 1136
<br> eval {...} called at /usr/ill/perl/lib/perl5db.pl
line 1136
<br> Tk::MainLoop() called at
../mcgui-new.pl line 761
<br>Abort (core dumped)
<p>Cheers. EF.
<pre>--
Emmanuel FARHI, <A HREF="http://www.ill.fr/tas/people/Farhi.html">http://www.ill.fr/tas/people/Farhi.html</A> \|/ ____ \|/
TAS-Group, Institut Laue-Langevin (ILL) Grenoble ~@-/ oO \-@~
Avenue des Martyrs, BP 156, 38042 Grenoble Cedex 9,France /_( \__/ )_\
Work :Tel (33/0) 4 76 20 71 83. Fax (33/0) 4 76 48 39 06 \__U_/
La Grande Arche, Chateau d'Uriage, 38410 Saint Martin d'Uriage 04 76 59 73 94</pre>
</html>