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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143
|
package Demeter::UI::Athena::ColumnSelection::Rebin;
use strict;
use warnings;
use Wx qw( :everything );
use base 'Wx::Panel';
use Wx::Event qw(EVT_CHECKBOX EVT_RADIOBUTTON);
use Wx::Perl::TextValidator;
use Demeter::UI::Wx::SpecialCharacters qw(:all);
#use Demeter::UI::Athena::Replot;
sub new {
my ($class, $parent, $data) = @_;
my $this = $class->SUPER::new($parent, -1, wxDefaultPosition, wxDefaultSize, wxMAXIMIZE_BOX );
my $box = Wx::BoxSizer->new( wxVERTICAL );
$this->{do_rebin} = Wx::CheckBox->new($this, -1, "Perform rebinning");
$box -> Add($this->{do_rebin}, 0, wxALL|wxALIGN_CENTER_HORIZONTAL, 10);
$this->{controls} = [];
EVT_CHECKBOX($this, $this->{do_rebin}, sub{EnableRebin(@_, $this)});
my $gbs = Wx::GridBagSizer->new( 3, 3 );
#my $label = Wx::StaticText->new($this, -1, 'Absorber');
#$gbs->Add($label, Wx::GBPosition->new(0,0));
#push @{$this->{controls}}, $label;
my $label = Wx::StaticText->new($this, -1, 'Edge region');
$gbs->Add($label, Wx::GBPosition->new(0,0));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'Pre-edge grid');
$gbs->Add($label, Wx::GBPosition->new(1,0));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'XANES grid');
$gbs->Add($label, Wx::GBPosition->new(2,0));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'EXAFS grid');
$gbs->Add($label, Wx::GBPosition->new(3,0));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'to');
$gbs->Add($label, Wx::GBPosition->new(0,3));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'eV');
$gbs->Add($label, Wx::GBPosition->new(0,5));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'eV');
$gbs->Add($label, Wx::GBPosition->new(1,3), Wx::GBSpan->new(1,2));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, 'eV');
$gbs->Add($label, Wx::GBPosition->new(2,3), Wx::GBSpan->new(1,2));
push @{$this->{controls}}, $label;
$label = Wx::StaticText->new($this, -1, "$ARING$MACRON$ONE");
$gbs->Add($label, Wx::GBPosition->new(3,3), Wx::GBSpan->new(1,2));
push @{$this->{controls}}, $label;
#$this->{abs} = Wx::TextCtrl->new($this, -1, q{}, wxDefaultPosition, [60,-1]);
foreach my $w (qw(emin emax pre xanes exafs)) {
$this->{$w} = Wx::TextCtrl->new($this, -1, q{}, wxDefaultPosition, [60,-1]);
$this->{$w} -> Enable(1);
$this->{$w} -> SetValue($data->co->default('rebin', $w)||$data->co->demeter('rebin', $w));
push @{$this->{controls}}, $this->{$w};
};
#$gbs->Add($this->{abs}, Wx::GBPosition->new(0,2));
$gbs->Add($this->{emin}, Wx::GBPosition->new(0,2));
$gbs->Add($this->{emax}, Wx::GBPosition->new(0,4));
$gbs->Add($this->{pre}, Wx::GBPosition->new(1,2));
$gbs->Add($this->{xanes}, Wx::GBPosition->new(2,2));
$gbs->Add($this->{exafs}, Wx::GBPosition->new(3,2));
$box->Add($gbs, 0, wxALL|wxALIGN_CENTER_HORIZONTAL, 5);
EnableRebin($this, 0);
$this->SetSizerAndFit($box);
return $this;
};
sub EnableRebin {
my ($this, $event) = @_;
my $onoff = $this->{do_rebin}->GetValue;
$_->Enable($onoff) foreach @{$this->{controls}};
};
1;
=head1 NAME
Demeter::UI::Athena::ColumnSelection::Preprocess - column selection rebinning controls
=head1 VERSION
This documentation refers to Demeter version 0.9.26.
=head1 SYNOPSIS
This module provides controls for handling rebinning in Athena's
column selection dialog
=head1 DEPENDENCIES
Demeter's dependencies are in the F<Build.PL> file.
=head1 BUGS AND LIMITATIONS
Please report problems to the Ifeffit Mailing List
(L<http://cars9.uchicago.edu/mailman/listinfo/ifeffit/>)
Patches are welcome.
=head1 AUTHOR
Bruce Ravel (L<http://bruceravel.github.io/home>)
L<http://bruceravel.github.io/demeter/>
=head1 LICENCE AND COPYRIGHT
Copyright (c) 2006-2019 Bruce Ravel (L<http://bruceravel.github.io/home>). All
rights reserved.
This module is free software; you can redistribute it and/or modify it
under the same terms as Perl itself. See L<perlgpl>.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
=cut
|