← Back to branch summary

~ubuntu-branches/ubuntu/trusty/horae/trusty

« back to all changes in this revision

Viewing changes to artemis_parts/plot.pl

  • Committer: Bazaar Package Importer
  • Author(s): Carlo Segre
  • Date: 2008-02-23 23:13:02 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080223231302-mnyyxs3icvrus4ke
Tags: 066-3
Apply patch to athena_parts/misc.pl for compatibility with 
perl-tk 804.28.

Show diffs side-by-side

added added

removed removed

Lines of Context:
artemis_parts/plot.pl
43
43
    return "";
44
44
  };
45
45
  if (not $feff_requested and not $data_requested) {
46
 
    Echo("You have not selected any form of data or any paths for plotting.");
47
 
    return "";
 
46
    #Echo("You have not selected any form of data or any paths for plotting.");
 
47
    #return "";
 
48
    my $first = &first_data;
 
49
    $list->selectionClear;
 
50
    $list->selectionSet($first);
 
51
    $list->selectionSet($list->info('next', $first));
48
52
  };
49
53
  my $space = lc($_[0]);
50
54
  Echo("Plotting in $space space ... ") unless $_[1];