Re: [Ifeffit] New Athena troubles

12 Jan 2005

      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
$B")#3#0#5!]#8#5#6#8(B
$B0q>k8)$D$/$P;TEl#1!]#1!](B1
$B$D$/$PCf1{Bh#4(B
$B6a@\>l8w1~MQ9)3X%;%s%?!<(B
$B%]!<%k!&%U%)%s%9

Re: [Ifeffit] New Athena troubles

Matt Newville