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

Fix more bugs with white spaces.

Browse Source
This commit is contained in:
salman 2010-09-28 11:05:12 +00:00
parent b502cc8585
commit f22687fd80
2 changed files with 47 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
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: Fri Sep 3 18:08:30 2010 # Created: Tue Sep 28 13:00:09 2010
# 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!
@ -2187,8 +2187,9 @@ sub CollectValues
$All{"IPOTR"}=sprintf("%3d",$All{"IPOTR"}); $All{"IPOTR"}=sprintf("%3d",$All{"IPOTR"});
$All{"IRL"}=sprintf("%2d",$All{"IRL"}); $All{"IRL"}=sprintf("%2d",$All{"IRL"});
# Filenames etc. # Filenames etc. The filename should not have white spaces
$All{"FNPre"}=FNPre->text(); $All{"FNPre"}=FNPre->text();
$All{"FNPre"}=~ s/\s+//g;
$All{"Path"}=Path->text(); $All{"Path"}=Path->text();
# Scan parameters only if selected # Scan parameters only if selected
@ -2199,13 +2200,20 @@ sub CollectValues
$All{"NProjRadio"}=NProjRadio->isChecked(); $All{"NProjRadio"}=NProjRadio->isChecked();
$All{"dRadio"}=dRadio->isChecked(); $All{"dRadio"}=dRadio->isChecked();
$All{"ScandL"}=ScandL->text(); $All{"ScandL"}=ScandL->text();
# Remove any white spaces
$All{"ScandL"} =~ s/\s+//g;
$All{"ListRadio"}=ListRadio->isChecked(); $All{"ListRadio"}=ListRadio->isChecked();
$All{"LoopRadio"}=LoopRadio->isChecked(); $All{"LoopRadio"}=LoopRadio->isChecked();
$All{"ScanList"}=ScanList->text(); $All{"ScanList"}=ScanList->text();
# Remove any white spaces
$All{"ScanList"} =~ s/\s+//g;
$All{"ScanListdz"}=ScanListdz->text(); $All{"ScanListdz"}=ScanListdz->text();
$All{"SFrom"}=SFrom->text(); # Remove any white spaces
$All{"STo"}=STo->text(); $All{"ScanListdz"} =~ s/\s+//g;
$All{"SStep"}=SStep->text(); # These should be numeric
$All{"SFrom"}=1*SFrom->text();
$All{"STo"}=1*STo->text();
$All{"SStep"}=1*SStep->text();
# } # }
# Return values to caller # Return values to caller
@ -2429,14 +2437,21 @@ sub StartSequenceOne
$All{"NProjRadio"}=NProjRadio->isChecked(); $All{"NProjRadio"}=NProjRadio->isChecked();
$All{"dRadio"}=dRadio->isChecked(); $All{"dRadio"}=dRadio->isChecked();
$All{"ScandL"}=ScandL->text(); $All{"ScandL"}=ScandL->text();
# Remove any white spaces
$All{"ScandL"} =~ s/\s+//g;
$All{"ListRadio"}=ListRadio->isChecked(); $All{"ListRadio"}=ListRadio->isChecked();
$All{"LoopRadio"}=LoopRadio->isChecked(); $All{"LoopRadio"}=LoopRadio->isChecked();
$All{"ScanList"}=ScanList->text(); $All{"ScanList"}=ScanList->text();
# Remove any white spaces
$All{"ScanList"} =~ s/\s+//g;
$All{"ScanListdz"}=ScanListdz->text(); $All{"ScanListdz"}=ScanListdz->text();
$All{"SFrom"}=SFrom->text(); # Remove any white spaces
$All{"STo"}=STo->text(); $All{"ScanListdz"} =~ s/\s+//g;
$All{"SStep"}=SStep->text(); # These should be numeric
$All{"SFrom"}=1*SFrom->text();
$All{"STo"}=1*STo->text();
$All{"SStep"}=1*SStep->text();
if ($All{"ListRadio"}) { if ($All{"ListRadio"}) {
@SValues=split(/,/,$All{"ScanList"}); @SValues=split(/,/,$All{"ScanList"});
@SdzValues=split(/,/,$All{"ScanListdz"}); @SdzValues=split(/,/,$All{"ScanListdz"});

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

@ -245,8 +245,9 @@ void TrimSPGUI::CollectValues()
$All{"IPOTR"}=sprintf("%3d",$All{"IPOTR"}); $All{"IPOTR"}=sprintf("%3d",$All{"IPOTR"});
$All{"IRL"}=sprintf("%2d",$All{"IRL"}); $All{"IRL"}=sprintf("%2d",$All{"IRL"});
# Filenames etc. # Filenames etc. The filename should not have white spaces
$All{"FNPre"}=FNPre->text(); $All{"FNPre"}=FNPre->text();
$All{"FNPre"}=~ s/\s+//g;
$All{"Path"}=Path->text(); $All{"Path"}=Path->text();
# Scan parameters only if selected # Scan parameters only if selected
@ -257,13 +258,20 @@ void TrimSPGUI::CollectValues()
$All{"NProjRadio"}=NProjRadio->isChecked(); $All{"NProjRadio"}=NProjRadio->isChecked();
$All{"dRadio"}=dRadio->isChecked(); $All{"dRadio"}=dRadio->isChecked();
$All{"ScandL"}=ScandL->text(); $All{"ScandL"}=ScandL->text();
# Remove any white spaces
$All{"ScandL"} =~ s/\s+//g;
$All{"ListRadio"}=ListRadio->isChecked(); $All{"ListRadio"}=ListRadio->isChecked();
$All{"LoopRadio"}=LoopRadio->isChecked(); $All{"LoopRadio"}=LoopRadio->isChecked();
$All{"ScanList"}=ScanList->text(); $All{"ScanList"}=ScanList->text();
# Remove any white spaces
$All{"ScanList"} =~ s/\s+//g;
$All{"ScanListdz"}=ScanListdz->text(); $All{"ScanListdz"}=ScanListdz->text();
$All{"SFrom"}=SFrom->text(); # Remove any white spaces
$All{"STo"}=STo->text(); $All{"ScanListdz"} =~ s/\s+//g;
$All{"SStep"}=SStep->text(); # These should be numeric
$All{"SFrom"}=1*SFrom->text();
$All{"STo"}=1*STo->text();
$All{"SStep"}=1*SStep->text();
# } # }
# Return values to caller # Return values to caller
@ -485,14 +493,21 @@ void TrimSPGUI::StartSequenceOne()
$All{"NProjRadio"}=NProjRadio->isChecked(); $All{"NProjRadio"}=NProjRadio->isChecked();
$All{"dRadio"}=dRadio->isChecked(); $All{"dRadio"}=dRadio->isChecked();
$All{"ScandL"}=ScandL->text(); $All{"ScandL"}=ScandL->text();
# Remove any white spaces
$All{"ScandL"} =~ s/\s+//g;
$All{"ListRadio"}=ListRadio->isChecked(); $All{"ListRadio"}=ListRadio->isChecked();
$All{"LoopRadio"}=LoopRadio->isChecked(); $All{"LoopRadio"}=LoopRadio->isChecked();
$All{"ScanList"}=ScanList->text(); $All{"ScanList"}=ScanList->text();
# Remove any white spaces
$All{"ScanList"} =~ s/\s+//g;
$All{"ScanListdz"}=ScanListdz->text(); $All{"ScanListdz"}=ScanListdz->text();
$All{"SFrom"}=SFrom->text(); # Remove any white spaces
$All{"STo"}=STo->text(); $All{"ScanListdz"} =~ s/\s+//g;
$All{"SStep"}=SStep->text(); # These should be numeric
$All{"SFrom"}=1*SFrom->text();
$All{"STo"}=1*STo->text();
$All{"SStep"}=1*SStep->text();
if ($All{"ListRadio"}) { if ($All{"ListRadio"}) {
@SValues=split(/,/,$All{"ScanList"}); @SValues=split(/,/,$All{"ScanList"});
@SdzValues=split(/,/,$All{"ScanListdz"}); @SdzValues=split(/,/,$All{"ScanListdz"});