diff --git a/trimsp/src/TrimSPGUI4/TrimSPGUI4.pm b/trimsp/src/TrimSPGUI4/TrimSPGUI4.pm index 996c23c..9200528 100644 --- a/trimsp/src/TrimSPGUI4/TrimSPGUI4.pm +++ b/trimsp/src/TrimSPGUI4/TrimSPGUI4.pm @@ -399,9 +399,9 @@ sub CreateInpFile() # Get values from form my %All = CollectValues(); - my $projComboBox=$All{"projComboBox"}; - $All{"ProjZ"}=sprintf("%6.2f",Chem::Zof($projComboBox)); - $All{"ProjAM"}=sprintf("%6.2f",Chem::Massof($projComboBox)); + my $projectile=this->{ui}->projComboBox->currentText(); + $All{"ProjZ"}=sprintf("%6.2f",Chem::Zof($projectile)); + $All{"ProjAM"}=sprintf("%6.2f",Chem::Massof($projectile)); # This is the flag for checking layers my $Check=0; @@ -539,6 +539,15 @@ sub StartSequenceOne() my @SdzValues=(); my $cmd=""; + if (!$ENV{'TRIMBIN'}) { +# If trim.sp binary is not defined give warning and return + my $Warning = Qt::MessageBox::information( this, "Warning!", + "Warning:\n TrimSP binary is not found.\n Define using the Configuration tab."); + return(0); + + } + + # Cleanup from old files if (-e "ausgabe1.inp") { system("rm -f ausgabe*"); diff --git a/trimsp/src/TrimSPGUI4/Ui_TrimSPGUI4.pm b/trimsp/src/TrimSPGUI4/Ui_TrimSPGUI4.pm index 00d496c..3d82a72 100644 --- a/trimsp/src/TrimSPGUI4/Ui_TrimSPGUI4.pm +++ b/trimsp/src/TrimSPGUI4/Ui_TrimSPGUI4.pm @@ -5,7 +5,7 @@ ################################################################################# ## Form generated from reading UI file 'TrimSPGUI4.ui' ## -## Created: Tue Feb 5 15:16:21 2013 +## Created: Tue Feb 5 16:22:06 2013 ## by: Qt User Interface Compiler version 4.8.4 ## ## WARNING! All changes made in this file will be lost when recompiling UI file!