mcgui-new

[Farhi]

Hy Kristian,

I'm afraid it does not work better !!
I've tried to look inside mcgui.pl
It seems that that error occurs during the waitVariable call of the do
loop (function dialog_get_out_file)

do {
   $dlg->waitVariable(\$state);
      } until $state;

Here is the perldb output (which is about the same as before, I've added
some 'print breakpoints'...) :

mica~farhi 44% ./mcgui-new.pl in14_tut.instr

Loading DB routines from perl5db.pl version 1.01
Emacs support available.

Enter h or `h h' for help.

Ambiguous use of expand => resolved to "expand" => at
/usr/ill/lib/perl5/site_pe
rl/Tk/Text.pm line 1038.
        require Tk/Text.pm called at (eval 5) line 2
        eval 'require Tk::Text
;' called at /usr/ill/perl/lib/base.pm line 36
        base::import('base', 'Tk::Text') called at
/usr/ill/lib/perl5/site_perl/
Tk/TextUndo.pm line 13
        Tk::TextUndo::BEGIN() called at
/usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1038
        eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1038
        require Tk/TextUndo.pm called at ./mcgui-new.pl line 12
        main::BEGIN() called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 103
8
        eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1038
Ambiguous use of expand => resolved to "expand" => at
/usr/ill/lib/perl5/site_pe
rl/Tk/Text.pm line 1075.
        require Tk/Text.pm called at (eval 5) line 2
        eval 'require Tk::Text
;' called at /usr/ill/perl/lib/base.pm line 36
        base::import('base', 'Tk::Text') called at
/usr/ill/lib/perl5/site_perl/
Tk/TextUndo.pm line 13
        Tk::TextUndo::BEGIN() called at
/usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1075
        eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1075
        require Tk/TextUndo.pm called at ./mcgui-new.pl line 12
        main::BEGIN() called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 107
5
        eval {...} called at /usr/ill/lib/perl5/site_perl/Tk/Text.pm
line 1075
main::(./mcgui-new.pl:3):       if($ENV{"MCSTAS"}) {
  DB<1> r
after savefocus
before for
before get_out_file_next call
before run_dialog_popup call
before run_dialog_reader
after run_dialog_reader
after fileevent
before do waitVariable
Signal SEGV at ./mcgui-new.pl line 380
        main::__ANON__() called at /usr/ill/perl/lib/perl5db.pl line
1136
        Tk::Widget::waitVariable('Tk::Toplevel=HASH(0x10c19248)',
'SCALAR(0x106a
de78)') called at ./mcgui-new.pl line 388
        main::dialog_get_out_file('MainWindow=HASH(0x10ac44a4)',
'in14_tut.instr
', 1) called at ./mcgui-new.pl line 429
        main::compile_instrument('MainWindow=HASH(0x10ac44a4)', 1)
called at ./m
cgui-new.pl line 449
        main::menu_compile('MainWindow=HASH(0x10ac44a4)') called at
../mcgui-new.
pl line 578
        main::__ANON__() called at /usr/ill/perl/lib/perl5db.pl line
1134
        eval {...} called at /usr/ill/perl/lib/perl5db.pl line 1134
        Tk::__ANON__('Tk::Menu=HASH(0x10b2d450)', 'active') called at
/usr/ill/l
ib/perl5/site_perl/Tk/Menu.pm line 530
        Tk::Menu::Invoke('Tk::Menu=HASH(0x10b2d450)', 1) called at
/usr/ill/perl
/lib/perl5db.pl line 1136
        eval {...} called at /usr/ill/perl/lib/perl5db.pl line 1136
        Tk::MainLoop() called at ./mcgui-new.pl line 761
Abort (core dumped)

Cheers. EF.

--
Emmanuel FARHI, http://www.ill.fr/tas/people/Farhi.html     \|/ ____ \|/
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


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman2.mcstas.org/pipermail/mcstas-users/attachments/20000217/02a6640f/attachment.html>