Bug fix in layer thickness scans.

This commit is contained in:
salman 2013-05-17 13:24:10 +00:00
parent 618de16f4c
commit eb534660f7
2 changed files with 5 additions and 3 deletions

View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'TrimSPGUI.ui'
#
# Created: Fri May 17 13:00:15 2013
# Created: Fri May 17 15:23:54 2013
# by: The PerlQt User Interface Compiler (puic)
#
# WARNING! All changes made in this file will be lost!
@ -2534,7 +2534,7 @@ sub StartSequenceOne
my $iScan=0;
foreach (@SValues) {
if ($All{"dRadio"}) {
layerTable->setText($All{"ScandL"},2,$_);
layerTable->setText($All{"ScandL"}-1,2,$_);
} else {
$ScanAttrib->setText($_);
}
@ -2557,6 +2557,7 @@ sub StartSequenceOne
$Progress=$Progress+90/$#SValues;
Progress->setProgress($Progress);
Progress->update();
# qApp->processEvents();
$cmd = "cp $FILENAME.inp eingabe1.inp; ".$ENV{'TRIMBIN'};
system($cmd);

View File

@ -531,7 +531,7 @@ void TrimSPGUI::StartSequenceOne()
my $iScan=0;
foreach (@SValues) {
if ($All{"dRadio"}) {
layerTable->setText($All{"ScandL"},2,$_);
layerTable->setText($All{"ScandL"}-1,2,$_);
} else {
$ScanAttrib->setText($_);
}
@ -554,6 +554,7 @@ void TrimSPGUI::StartSequenceOne()
$Progress=$Progress+90/$#SValues;
Progress->setProgress($Progress);
Progress->update();
# qApp->processEvents();
$cmd = "cp $FILENAME.inp eingabe1.inp; ".$ENV{'TRIMBIN'};
system($cmd);