I upgraded to the new version 047 of horae and found that on the mac (10.3.7, standard system, Matt's installer for the perl bits) that I cannot read data any more (it just generates an error). I don't really understand the perl, but I found what appears to be an error (but it still doesn't fix the problem). First an observation. At line 4281, is it my mistake or is there a dangly bit (a comma here). my $ret = &construct_xmu($raw, $group, $label, $data, $stash, $prior_args, ); changed to: my $ret = &construct_xmu($raw, $group, $label, $data, $stash, $prior_args ); At line 3585, at the call to waitWindow() things go wrong: ($raw == 0) or $raw -> waitWindow(); and the following trap file is produced: any ideas? Please include this information along with your explanation when you make a bug report. The following message was trapped by Athena: Athena0.8.035warn/Users/paulfons/.horae/stash/ ATHENA.TRAPCODE(0x1c05630) at /Applications/Ifeffit/bin/athena line 1350 main::__ANON__('Tk::Error: Can\'t upgrade that kind of scalar at /Application...') called at blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/Error.al) line 488 Tk::Error('MainWindow=HASH(0x1fad974)','Can\'t upgrade that kind of scalar at /Applications/Ifeffit/b...','main::set_properties at /Applications/Ifeffit/bin/athena line...','<Button-1>','(command bound to event)') called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 406 eval {...} called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 406 Tk::MainLoop() called at /Applications/Ifeffit/bin/athena line 1407 Please include this information along with your explanation when you make a bug report. Font Courier 10 still in cache. Dr. Paul Fons Senior Researcher National Institute for Advanced Industrial Science & Technology METI Center for Applied Near-Field Optics Research (CANFOR) AIST Central 4, Higashi 1-1-1 Tsukuba, Ibaraki JAPAN 305-8568 tel. +81-298-61-5636 fax. +81-298-61-2939 email: paul-fons@aist.go.jp The lines below are in a Japanese font 〒３０５−８５６８ 茨城県つくば市東１−１−1 つくば中央第４ 近接場光応用工学センター ポール・フォンス主任研究官

Thanks Matt. Hmm. Type coersion, make sense. I put in the hack you sent in your email and I can say that day can be read in now (a little tested now!). Paul p.s. I will be heading out to the APS in March for a run with Dale. See you then! On 2005/01/12, at 13:43, Matt Newville wrote:

Hi Paul,

Yikes -- I see the same problem. It looks to me like the trouble is in sub set_properties, in this block (starting at line 3065 of athena 0.8.035):

if ($groups{$item}->{reference}) { $widget{bkg_eshift} -> configure(-foreground => $config{colors}{button}, -font => $config{fonts}{entrybold},) } else { $widget{bkg_eshift} -> configure(-foreground => $config{colors}{foreground}, -font => $config{fonts}{entry},) };

I get the message below. Commenting out this block at least lets the data be read in, though presumably that's not the intended mode of operation. ;).

I think this is an issue with type coercion. Something as simple as: my ($w_color,$w_font) = ("$config{colors}{foreground}","$config{fonts}{entry}");

if ($groups{$item}->{reference}) { $widget{bkg_eshift} -> configure(-foreground => $config{colors}{button}, -font => $config{fonts}{entrybold},) } else { $widget{bkg_eshift} -> configure(-foreground => $w_color, -font => $w_font); };

might work (untested!!! and I don't know why the other config items are different or what the bkg_eshift widget is....). That is, I think these values need to be string scalars, and the error message suggests that they're not.

For what it's worth (and for better or worse), Perl tolerates extra ',' in argument lists, and occasionally tolerates missing semicolons at the end of statement lines (as in this case above).

Eek-that's-enough-perl-for-the-week,

--Matt

The following message was trapped by Athena:

Athena0.8.035warn/Users/newville/.horae/stash/ ATHENA.TRAPCODE(0x1c03f98) at athena line 1350 main::__ANON__('Tk::Error: Can\'t upgrade that kind of scalar at athena line ...') called at blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/Error.al) line 488 Tk::Error('MainWindow=HASH(0x1408a440)', 'Can\'t upgrade that kind of scalar at athena line 3069.\x{a}', 'main::set_properties at athena line 3069', 'main::fill_skinny at athena line 1505', 'main::construct_xmu at athena line 4616', 'main::__ANON__ at athena line 4281', 'Tk callback for .toplevel1.frame.frame7.button', 'Tk::__ANON__ at /Library/Perl/5.8.1/darwin-thread-multi-2leve...', 'Tk::Button::butUp at /Library/Perl/5.8.1/darwin-thread-multi-...', ...) called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk/Widget.pm line 938 eval {...} called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk/Widget.pm line 938 Tk::Widget::waitWindow('Tk::Toplevel=HASH(0x149d3100)') called at athena line 3585 main::read_file(0) called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 247 eval {...} called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 247 Tk::__ANON__('Tk::Menu=HASH(0x1482d1b4)','active') called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk/Menu.pm line 531 Tk::Menu::Invoke('Tk::Menu=HASH(0x1482d1b4)',1) called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 406 eval {...} called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 406 Tk::MainLoop() called at athena line 1407 --Matt

|= Matthew Newville mailto:newville@cars.uchicago.edu |= GSECARS, Bldg 434A voice: (630) 252-0431 / 1713 |= Argonne Natl Lab fax: (630) 252-0436 |= 9700 South Cass Ave cell: (708) 804-0361 |= Argonne, IL 60439 USA http://cars9.uchicago.edu/~newville/

On Wed, 12 Jan 2005, Paul Fons wrote:

...

I upgraded to the new version 047 of horae and found that on the mac (10.3.7, standard system, Matt's installer for the perl bits) that I cannot read data any more (it just generates an error). I don't really understand the perl, but I found what appears to be an error (but it still doesn't fix the problem). First an observation.

At line 4281, is it my mistake or is there a dangly bit (a comma here).

my $ret = &construct_xmu($raw, $group, $label, $data, $stash, $prior_args, ); changed to: my $ret = &construct_xmu($raw, $group, $label, $data, $stash, $prior_args );

At line 3585, at the call to waitWindow() things go wrong: ($raw == 0) or $raw -> waitWindow();

and the following trap file is produced: any ideas?

Please include this information along with your explanation when you make a bug report.

The following message was trapped by Athena:

Athena0.8.035warn/Users/paulfons/.horae/stash/ ATHENA.TRAPCODE(0x1c05630) at /Applications/Ifeffit/bin/athena line 1350 main::__ANON__('Tk::Error: Can\'t upgrade that kind of scalar at /Application...') called at blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/Error.al) line 488 Tk::Error('MainWindow=HASH(0x1fad974)','Can\'t upgrade that kind of scalar at /Applications/Ifeffit/b...','main::set_properties at /Applications/Ifeffit/bin/athena line...','<Button-1>','(command bound to event)') called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 406 eval {...} called at /Library/Perl/5.8.1/darwin-thread-multi-2level/Tk.pm line 406 Tk::MainLoop() called at /Applications/Ifeffit/bin/athena line 1407

Please include this information along with your explanation when you make a bug report. Font Courier 10 still in cache.

Dr. Paul Fons Senior Researcher National Institute for Advanced Industrial Science & Technology METI Center for Applied Near-Field Optics Research (CANFOR) AIST Central 4, Higashi 1-1-1 Tsukuba, Ibaraki JAPAN 305-8568

tel. +81-298-61-5636 fax. +81-298-61-2939

email: paul-fons@aist.go.jp

The lines below are in a Japanese font

〒３０５−８５６８ 茨城県つくば市東１−１−1 つくば中央第４ 近接場光応用工学センター ポール・フォンス主任研究官

_______________________________________________ Ifeffit mailing list Ifeffit@millenia.cars.aps.anl.gov http://millenia.cars.aps.anl.gov/mailman/listinfo/ifeffit

Dr. Paul Fons Senior Researcher National Institute for Advanced Industrial Science & Technology METI Center for Applied Near-Field Optics Research (CANFOR) AIST Central 4, Higashi 1-1-1 Tsukuba, Ibaraki JAPAN 305-8568 tel. +81-298-61-5636 fax. +81-298-61-2939 email: paul-fons@aist.go.jp The lines below are in a Japanese font 〒３０５−８５６８ 茨城県つくば市東１−１−1 つくば中央第４ 近接場光応用工学センター ポール・フォンス主任研究官