LMU/musrsim
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added possiblility to scan energy with sigma angle.

Browse Source
This commit is contained in:
salman
2011-08-11 14:43:55 +00:00
parent ce8b714e02
commit 2204f800f1
2 changed files with 27 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
trimsp/TrimSPGUI/TrimSPGUI.pl
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'TrimSPGUI.ui' # Form implementation generated from reading ui file 'TrimSPGUI.ui'
# #
# Created: Thu Aug 11 13:41:48 2011 # Created: Thu Aug 11 16:30:24 2011
# by: The PerlQt User Interface Compiler (puic) # by: The PerlQt User Interface Compiler (puic)
# #
# WARNING! All changes made in this file will be lost! # WARNING! All changes made in this file will be lost!
@ -2020,7 +2020,14 @@ sub ToggleScanSingle
ScanListdz->setHidden(0); ScanListdz->setHidden(0);
dzListLabel->setDisabled(0); dzListLabel->setDisabled(0);
ScanListdz->setDisabled(0); ScanListdz->setDisabled(0);
} else { dzListLabel->setText("Corresponding depth increment (optional)");
} elsif ($All{"SigAngleRadio"} & $All{"ListRadio"}) {
dzListLabel->setHidden(0);
ScanListdz->setHidden(0);
dzListLabel->setDisabled(0);
ScanListdz->setDisabled(0);
dzListLabel->setText("Corresponding energy");
} else {
dzListLabel->setHidden(1); dzListLabel->setHidden(1);
ScanListdz->setHidden(1); ScanListdz->setHidden(1);
dzListLabel->setDisabled(1); dzListLabel->setDisabled(1);
@ -2521,7 +2528,11 @@ sub StartSequenceOne
foreach (@SValues) { foreach (@SValues) {
$ScanAttrib->setText($_); $ScanAttrib->setText($_);
if ( $All{"SdzFlag"} == 1) { if ( $All{"SdzFlag"} == 1) {
dz->setText($SdzValues[$iScan]); if ($All{"ERadio"}==1) {
dz->setText($SdzValues[$iScan]);
} elsif ($All{"SigAngleRadio"}==1) {
E->setText($SdzValues[$iScan]);
}
} }
my $eingabe1=CreateInpFile(); my $eingabe1=CreateInpFile();
if ($eingabe1 eq "ERROR") {return 0;} if ($eingabe1 eq "ERROR") {return 0;}

15
trimsp/TrimSPGUI/TrimSPGUI.ui.h
View File

@ -68,7 +68,14 @@ void TrimSPGUI::ToggleScanSingle()
ScanListdz->setHidden(0); ScanListdz->setHidden(0);
dzListLabel->setDisabled(0); dzListLabel->setDisabled(0);
ScanListdz->setDisabled(0); ScanListdz->setDisabled(0);
} else { dzListLabel->setText("Corresponding depth increment (optional)");
} elsif ($All{"SigAngleRadio"} & $All{"ListRadio"}) {
dzListLabel->setHidden(0);
ScanListdz->setHidden(0);
dzListLabel->setDisabled(0);
ScanListdz->setDisabled(0);
dzListLabel->setText("Corresponding energy");
} else {
dzListLabel->setHidden(1); dzListLabel->setHidden(1);
ScanListdz->setHidden(1); ScanListdz->setHidden(1);
dzListLabel->setDisabled(1); dzListLabel->setDisabled(1);
@ -562,7 +569,11 @@ void TrimSPGUI::StartSequenceOne()
foreach (@SValues) { foreach (@SValues) {
$ScanAttrib->setText($_); $ScanAttrib->setText($_);
if ( $All{"SdzFlag"} == 1) { if ( $All{"SdzFlag"} == 1) {
dz->setText($SdzValues[$iScan]); if ($All{"ERadio"}==1) {
dz->setText($SdzValues[$iScan]);
} elsif ($All{"SigAngleRadio"}==1) {
E->setText($SdzValues[$iScan]);
}
} }
my $eingabe1=CreateInpFile(); my $eingabe1=CreateInpFile();
if ($eingabe1 eq "ERROR") {return 0;} if ($eingabe1 eq "ERROR") {return 0;}