← Back to branch summary

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

« back to all changes in this revision

Viewing changes to athena_parts/pixel.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:
athena_parts/pixel.pl
74
74
    -> grid(-row=>0, -column=>0, -sticky=>'e', -ipady=>2);
75
75
 
76
76
  my $menu = $frame -> BrowseEntry(-variable => \$standard_lab,
 
77
                                   @browseentry_list,
77
78
                                   -browsecmd => sub {
78
79
                                     my $text = $_[1];
79
80
                                     my $this = $1 if ($text =~ /^(\d+):/);
259
260
  } else {
260
261
    $command   .= "guess(pixel___a=$$rhash{offset},)\n";
261
262
  };
262
 
  $command   .= "step $stan.energy $ee  p___ixel.step\n";
 
263
  $command   .= "step $stan.energy $ee 0 p___ixel.step\n";
263
264
  $command   .= "set p___ixel.drop   = -1*(p___ixel.step - 1)\n";
264
265
  $command   .= "def p___ixel.first  = $stan.flat*p___ixel.drop - $group.xc*p___ixel.drop\n";
265
266
  $command   .= "def p___ixel.second = p___ixel.step * sqrt(abs($stan.energy-$e0)) * (($stan.flat-1) - ($group.xc-1))\n";