[Ifeffit] New Athena troubles
Paul Fons
paul-fons at aist.go.jp
Tue Jan 11 23:03:49 CST 2005
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 at 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 at aist.go.jp
>>
>> The lines below are in a Japanese font
>>
>> 〒３０５−８５６８
>> 茨城県つくば市東１−１−1
>> つくば中央第４
>> 近接場光応用工学センター
>> ポール・フォンス主任研究官
>>
>
>
> _______________________________________________
> Ifeffit mailing list
> Ifeffit at 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 at aist.go.jp
The lines below are in a Japanese font
〒３０５−８５６８
茨城県つくば市東１−１−1
つくば中央第４
近接場光応用工学センター
ポール・フォンス主任研究官
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: text/enriched
Size: 7099 bytes
Desc: not available
URL: <http://millenia.cars.aps.anl.gov/pipermail/ifeffit/attachments/20050112/0e2728a0/attachment.bin>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/pkcs7-signature
Size: 2369 bytes
Desc: not available
URL: <http://millenia.cars.aps.anl.gov/pipermail/ifeffit/attachments/20050112/0e2728a0/attachment.p7s>
More information about the Ifeffit
mailing list