Quote

Tk::Error: Failed to AUTOLOAD 'Tk::FBox::_get_select_Path' at /Applications/iXAFS.app/Contents/Resources/Horae/bin/athena line 5213
Carp::croak at /System/Library/Perl/5.8.9/Carp.pm line 44
Tk::Widget::__ANON__ at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/Widget.pm line 347
Tk::FBox::Done at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/FBox.pm line 909
Tk::FBox::VerifyFileName at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/FBox.pm line 678
Tk::FBox::ActivateEnt at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/FBox.pm line 647
Tk::FBox::OkCmd at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/FBox.pm line 815
Tk::Widget::Callback at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/Widget.pm line 1149
Tk::IconList::Invoke at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/IconList.pm line 475
Tk::IconList::ReturnKey at /Applications/iXAFS.app/Contents/Resources/Horae/lib/perl5/site_perl/5.8.8/darwin-thread-multi-2level/Tk/IconList.pm line 584

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

## fetch a single file using getOpenFile
sub get_single_file {
  ## read from the command line?  from the web?
  ## unless (($_[0] and -e $_[0]) or ($_[0] and $_[0] =~ /^http:/)) {
  require Cwd;
  #local $Tk::FBox::a;
  #local $Tk::FBox::b;
  my $path = $current_data_dir || Cwd::cwd;
  my $types = [['All Files',            '*'],
	       ['data files',          ['.dat', '.xmu']],
	       ['chi(k) files',         '.chi'],
	       ['Athena project files', '.prj'],
	      ];
  if ($Tk::VERSION > 804) {
    my $file = $top -> getOpenFile(-filetypes=>$types,
				   #(not $is_windows) ?
				   #  (-sortcmd=>sub{$Tk::FBox::a cmp $Tk::FBox::b}) : () ,
				   -initialdir=>$path,
				   -multiple => 1,
				   -title => "Athena: Open one or more data files");
    $file ||= [];
    return @$file;
  } else {
    my $file = $top -> getOpenFile(-filetypes=>$types,
				   #(not $is_windows) ?
				   #  (-sortcmd=>sub{$Tk::FBox::a cmp $Tk::FBox::b}) : () ,
				   -initialdir=>$path,
				   -title => "Athena: Open a SINGLE data file");
    $file ||= q{};
    return $file;
  };
};