← Back to branch summary

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

« back to all changes in this revision

Viewing changes to hephaestus_parts/misc.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:
hephaestus_parts/misc.pl
30
30
                    Lg1 Lg2 Lg3 Lg6 Ll Ln Ma Mb Mg Mz));
31
31
  my @data_style_params = ('text', -font=>'Helvetica 10', -anchor=>'e', -foreground=>'black');
32
32
  if ($units eq 'Energies') {
33
 
    $data{abs_energy_label}  -> configure(-text=>'Energy');
34
 
    $data{abs_units_label}   -> configure(-text=>'eV');
 
33
    #$data{abs_energy_label}  -> configure(-text=>'Energy');
 
34
    #$data{abs_units_label}   -> configure(-text=>'eV');
35
35
    $data{form_energy_label} -> configure(-text=>'Energy:');
36
36
    $data{form_energy_units} -> configure(-text=>'eV');
37
37
    $data{ion_energy_label}  -> configure(-text=>'Photon energy');
55
55
        $energies{lines} -> itemConfigure($l, 3, -text=>$probs{$l}, -style=>$data_style);
56
56
    };
57
57
  } elsif ($units eq 'Wavelengths') {
58
 
    $data{abs_energy_label}  -> configure(-text=>'Wavelength');
59
 
    $data{abs_units_label}   -> configure(-text=>'�');
 
58
    #$data{abs_energy_label}  -> configure(-text=>'Wavelength');
 
59
    #$data{abs_units_label}   -> configure(-text=>'�');
60
60
    $data{form_energy_label} -> configure(-text=>'Wavelength:');
61
61
    $data{form_energy_units} -> configure(-text=>'�');
62
62
    $data{ion_energy_label}  -> configure(-text=>'Photon wavelength');
138
138
# $w->raise;
139
139
}
140
140
 
 
141
package Patch::Workaround::_HistoryEntry;
 
142
no warnings;
 
143
sub _HistoryEntry::create {
 
144
  my $o = shift->new;
 
145
#    my($what, $index) = @_;
 
146
#    if (ref $what eq 'HASH') {
 
147
#       $o->file($what->{file});
 
148
#       $o->text($what->{text});
 
149
#    } else {
 
150
#       $o->file($what);
 
151
#    }
 
152
#    $o->index($index);
 
153
  $o;
 
154
};
 
155
 
 
156
 
141
157
1;