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

Add possibility to change TRIMBIN and GUIPATH interactively.

Browse Source
This commit is contained in:
salman
2013-02-05 14:24:48 +00:00
parent a1bff6fb09
commit ba50550a62
4 changed files with 2429 additions and 2055 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
trimsp/src/TrimSPGUI/TrimSP
View File

@ -2,6 +2,6 @@
# Copyright 2009 by Zaher Salman and the LEM Group.
export TRIMBIN=/usr/local/bin/trimsp7l
export PERLLIB=$HOME/LEM/simulation/trimsp/TrimSPGUI
perl $HOME/LEM/simulation/trimsp/TrimSPGUI/TrimSPGUI.pl
export PERLLIB=$HOME/LEM/simulation/trimsp/src/TrimSPGUI
perl $PERLLIB/TrimSPGUI.pl

229
trimsp/src/TrimSPGUI/TrimSPGUI.pl
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'TrimSPGUI.ui'
#
# Created: Tue Jan 10 15:16:59 2012
# Created: Tue Feb 5 15:22:18 2013
# by: The PerlQt User Interface Compiler (puic)
#
# WARNING! All changes made in this file will be lost!
@ -28,8 +28,11 @@ use Qt::slots
OpenAboutWindow => [],
OpenFile => [],
SaveFile => [],
SaveFileAs => [];
SaveFileAs => [],
GUIPath => [],
TrimBin => [];
use Qt::attributes qw(
Progress
tabs
LayersTab
groupBox1
@ -145,7 +148,13 @@ use Qt::attributes qw(
SigAngleRadio
AngleRadio
ERadio
Progress
ConfigTab
textLabel1_2_2
TrimGUIPath
GUIPathBrowse
textLabel1_2
TRIMBIN
TrimBinBrowse
MenuBar
File
Plot
@ -163,12 +172,10 @@ use Qt::attributes qw(
editPasteAction
plotProfilesAction
helpContentsAction
helpIndexAction
helpAboutAction
plotFractionsAction
fileStartAction
helpTmpAction
fileLoadAction
fileConfigureAction
);
@ -1171,6 +1178,93 @@ our $image14_data =
"QtQta#aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaabacQtQt",
"QtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQtQt"];
our $image15;
our $image15_data = pack 'C*',
0x89, 0x50, 0x4e, 0x47, 0x0d, 0x0a, 0x1a, 0x0a, 0x00, 0x00, 0x00, 0x0d,
0x49, 0x48, 0x44, 0x52, 0x00, 0x00, 0x00, 0x16, 0x00, 0x00, 0x00, 0x16,
0x08, 0x06, 0x00, 0x00, 0x00, 0xc4, 0xb4, 0x6c, 0x3b, 0x00, 0x00, 0x03,
0xb3, 0x49, 0x44, 0x41, 0x54, 0x38, 0x8d, 0xa5, 0xd2, 0x4f, 0x4c, 0x14,
0x57, 0x1c, 0x07, 0xf0, 0xef, 0x9b, 0xd9, 0xbf, 0x2c, 0xec, 0x0e, 0xb8,
0x65, 0x41, 0xa4, 0x25, 0x36, 0x28, 0xfd, 0x13, 0x9d, 0xd4, 0x36, 0x2d,
0x5a, 0xe3, 0x6e, 0x7a, 0x70, 0x21, 0x1e, 0x9a, 0xb4, 0x34, 0xc6, 0x78,
0xe0, 0xe0, 0xb5, 0xc7, 0x46, 0x2f, 0xa6, 0x90, 0xf6, 0xb0, 0x3d, 0xb1,
0x4d, 0x63, 0x22, 0x35, 0xe9, 0x12, 0x4d, 0x88, 0x1a, 0x2b, 0x29, 0x89,
0x46, 0xea, 0x36, 0x6b, 0x0d, 0xb6, 0xa5, 0x87, 0x75, 0xaa, 0x54, 0x28,
0xa4, 0x65, 0xad, 0x82, 0x55, 0x16, 0x3b, 0xcb, 0xe2, 0xce, 0xbe, 0x37,
0x33, 0xef, 0xf5, 0xb0, 0x48, 0x81, 0x6e, 0xc2, 0xc6, 0x7e, 0x93, 0x5f,
0x32, 0xc9, 0xfc, 0x7e, 0x9f, 0x99, 0xf7, 0x9b, 0x21, 0x58, 0x97, 0x2b,
0x57, 0x7e, 0xbc, 0x19, 0x08, 0xf8, 0xd4, 0xba, 0xba, 0x00, 0x0c, 0x83,
0x62, 0x71, 0xf1, 0x09, 0x0a, 0x05, 0x63, 0x80, 0x73, 0xd1, 0xdb, 0xd9,
0xb9, 0x27, 0xb3, 0xbe, 0xbf, 0xe2, 0x0c, 0x0f, 0x5f, 0x4f, 0xa4, 0xd3,
0x93, 0x62, 0x75, 0xb2, 0x59, 0x5d, 0x5c, 0xbd, 0x3a, 0x26, 0x86, 0x86,
0xae, 0x75, 0x3f, 0x33, 0x0c, 0x00, 0xe7, 0xcf, 0x27, 0x13, 0x63, 0x63,
0xe3, 0x6b, 0x70, 0xc6, 0x4c, 0x31, 0x32, 0xf2, 0x93, 0x38, 0x7b, 0xf6,
0xdb, 0xf0, 0xff, 0xc2, 0xcf, 0x9c, 0xb9, 0x9c, 0x18, 0x1d, 0xd5, 0xd6,
0xe0, 0xb9, 0xdc, 0x92, 0x38, 0x7d, 0xfa, 0xd2, 0x4c, 0x45, 0x40, 0x7f,
0xff, 0xc5, 0xc4, 0xc9, 0x93, 0x5f, 0xab, 0xe5, 0xee, 0x9d, 0x3a, 0x35,
0x34, 0xa4, 0x69, 0x53, 0x2b, 0x30, 0xe7, 0x5c, 0x24, 0x93, 0x63, 0xa2,
0xbf, 0xff, 0x62, 0xd9, 0xfe, 0xd5, 0x91, 0x5c, 0x2e, 0x67, 0x37, 0x21,
0x24, 0x15, 0x8f, 0x0f, 0xae, 0x69, 0x8e, 0xc7, 0x07, 0xd5, 0xaa, 0x2a,
0x6f, 0x78, 0xeb, 0xd6, 0x26, 0x58, 0x96, 0x0d, 0xcb, 0xb2, 0x61, 0xdb,
0x1c, 0xb5, 0xb5, 0x7e, 0x50, 0xca, 0xc2, 0x15, 0xc0, 0x0e, 0x44, 0xa3,
0xed, 0x0a, 0x21, 0x24, 0x15, 0x8b, 0x0d, 0xa8, 0x00, 0x10, 0x8b, 0x0d,
0xa8, 0x7e, 0xbf, 0x2f, 0xb5, 0x7f, 0xff, 0x5b, 0x8a, 0x2c, 0x4b, 0x60,
0xcc, 0x04, 0xa5, 0x0c, 0x94, 0x32, 0x38, 0x1c, 0x32, 0x8a, 0x45, 0xa6,
0x6c, 0x08, 0x17, 0x8b, 0x0c, 0x7e, 0xbf, 0x0f, 0x1d, 0x1d, 0xbb, 0x15,
0x42, 0x48, 0xaa, 0xa7, 0xe7, 0xcb, 0xee, 0x12, 0xda, 0xae, 0x48, 0x92,
0x04, 0x4a, 0x4d, 0x50, 0x6a, 0x82, 0x31, 0x0b, 0x8c, 0x59, 0x98, 0x9d,
0x9d, 0x07, 0xa5, 0x2c, 0xb3, 0x21, 0x9c, 0xcd, 0xea, 0x7a, 0x09, 0xaf,
0x46, 0x47, 0xc7, 0x6e, 0xa5, 0xb1, 0x31, 0x98, 0x88, 0x46, 0xdb, 0x15,
0x59, 0x96, 0xc1, 0x98, 0xf9, 0x9f, 0x9a, 0x99, 0x99, 0x83, 0x61, 0xd0,
0x0d, 0x61, 0x79, 0xc7, 0x8e, 0x7d, 0x6d, 0x5e, 0xaf, 0x5b, 0x0d, 0x06,
0x15, 0x78, 0x3c, 0x6e, 0xb4, 0xb6, 0x36, 0x43, 0x92, 0x24, 0xd8, 0xb6,
0xbd, 0xa6, 0x28, 0x35, 0x31, 0x3b, 0xfb, 0x08, 0xf5, 0xf5, 0xb5, 0x98,
0x9e, 0xbe, 0xa7, 0x7e, 0x75, 0xf0, 0xae, 0xf7, 0xc3, 0xce, 0xfa, 0xc9,
0x2f, 0x2e, 0xcf, 0x17, 0xcb, 0xbe, 0x31, 0x63, 0x66, 0x6f, 0x32, 0xf9,
0xb3, 0x9e, 0xcd, 0xfe, 0xbd, 0x72, 0xec, 0x52, 0x59, 0x2b, 0x65, 0x18,
0x0c, 0x99, 0xcc, 0x1c, 0xf2, 0xf9, 0x02, 0x84, 0x10, 0xf8, 0xe0, 0x95,
0x71, 0xd5, 0x15, 0x72, 0xf6, 0x99, 0x16, 0x52, 0xb7, 0xfb, 0x5e, 0x5e,
0xb3, 0x6f, 0x21, 0x84, 0x02, 0x00, 0x04, 0x00, 0x8e, 0x1c, 0xf9, 0x54,
0xad, 0xaa, 0xf2, 0xa4, 0xf6, 0xee, 0x55, 0x95, 0x6d, 0xdb, 0x9e, 0x87,
0xc3, 0xe1, 0x78, 0xda, 0x06, 0x00, 0x30, 0x0c, 0x0a, 0xd3, 0xb4, 0xe0,
0x74, 0x3a, 0x40, 0x26, 0x4e, 0xc0, 0xcf, 0xbe, 0x83, 0xfb, 0xf1, 0x5f,
0x70, 0xbe, 0xba, 0x05, 0x0f, 0xc6, 0xb9, 0xc6, 0x39, 0x22, 0xaf, 0x1f,
0xbd, 0xa3, 0xaf, 0x7e, 0x00, 0x79, 0x7a, 0x71, 0xf8, 0xf0, 0x71, 0x55,
0x08, 0xd1, 0x57, 0x57, 0x17, 0x08, 0x87, 0x42, 0x75, 0xa8, 0xae, 0xf6,
0x22, 0x97, 0x5b, 0x02, 0x63, 0x16, 0x0e, 0x1c, 0x78, 0x1b, 0x81, 0x40,
0x35, 0x8c, 0x74, 0x1c, 0xbe, 0xc2, 0x08, 0x6a, 0x0b, 0x0f, 0x11, 0x94,
0x4d, 0xe4, 0xe0, 0x84, 0xd1, 0xd2, 0x84, 0x3f, 0x6f, 0x09, 0x8d, 0x73,
0x44, 0xf6, 0x1c, 0xff, 0x17, 0x27, 0x58, 0x97, 0xae, 0xae, 0x63, 0x2d,
0x00, 0x5a, 0x00, 0x84, 0x01, 0x5c, 0x03, 0xa0, 0x84, 0x42, 0x9b, 0x12,
0x07, 0xd5, 0x8c, 0xa2, 0x98, 0x49, 0x34, 0xba, 0x16, 0xa0, 0xb8, 0x00,
0x69, 0x79, 0x72, 0xd1, 0x22, 0xc8, 0x07, 0x82, 0x98, 0xd6, 0x88, 0xc6,
0xb9, 0x88, 0xbc, 0xf3, 0xc9, 0x84, 0x5e, 0x16, 0x2e, 0x97, 0x0b, 0x1f,
0xed, 0xea, 0x79, 0x61, 0x8b, 0xf1, 0x71, 0x5b, 0x93, 0x0e, 0x9f, 0x4b,
0x06, 0x59, 0x37, 0x55, 0xa0, 0x36, 0x16, 0x44, 0x0d, 0xee, 0xdc, 0x94,
0x34, 0xce, 0x11, 0xe9, 0x8c, 0x4d, 0xe8, 0x15, 0xc1, 0x97, 0x8e, 0xbe,
0xa4, 0x70, 0x8e, 0xd4, 0xce, 0x5d, 0x5c, 0x6d, 0xde, 0x2c, 0x96, 0xcf,
0xba, 0x3c, 0xca, 0x6c, 0x00, 0x02, 0xb6, 0xcd, 0xf1, 0x20, 0xeb, 0x44,
0x3a, 0x2d, 0x6b, 0x9c, 0x23, 0x22, 0x57, 0x02, 0x0f, 0xde, 0xc8, 0x16,
0xdf, 0x7f, 0xf3, 0xb9, 0x73, 0xf7, 0xef, 0x91, 0x68, 0x55, 0x8d, 0x68,
0x50, 0x9a, 0x3d, 0x80, 0xd7, 0x05, 0x50, 0x0b, 0x28, 0x30, 0x60, 0x61,
0x09, 0x52, 0xce, 0x80, 0x5f, 0x21, 0x90, 0xdc, 0xa4, 0x61, 0xee, 0xa1,
0xdc, 0x26, 0x55, 0x02, 0x03, 0xc0, 0x7b, 0x7d, 0x13, 0xba, 0x69, 0x89,
0xc8, 0x8d, 0x51, 0x49, 0xfb, 0xfd, 0x97, 0x22, 0x50, 0xed, 0x06, 0xf2,
0x45, 0x60, 0x89, 0x02, 0xf3, 0x79, 0xc0, 0xe4, 0xc0, 0xdd, 0x05, 0xb4,
0x36, 0x18, 0x70, 0x3a, 0xec, 0x77, 0x2b, 0x86, 0x01, 0xe0, 0xd0, 0x89,
0x49, 0xdd, 0xb4, 0x10, 0xf9, 0xfe, 0xba, 0xa4, 0x4d, 0xa5, 0x1e, 0x03,
0x36, 0x07, 0x7c, 0x2e, 0xa0, 0x68, 0x01, 0x05, 0x5a, 0xfa, 0x3b, 0x0d,
0x06, 0x97, 0xcc, 0x51, 0xd1, 0x2a, 0x56, 0xe7, 0x9b, 0x74, 0xb6, 0xd8,
0xb9, 0x33, 0x78, 0xee, 0x8f, 0x8c, 0x14, 0xad, 0x11, 0x46, 0x43, 0xd0,
0x4d, 0x81, 0x37, 0x5a, 0x4a, 0x6b, 0x21, 0x00, 0x65, 0xc0, 0x0f, 0x53,
0xbe, 0xca, 0x3e, 0x5e, 0xb9, 0xc4, 0x0f, 0x6d, 0x57, 0x38, 0x47, 0x6a,
0xdf, 0x8b, 0x39, 0xf5, 0xb5, 0xcd, 0xf9, 0x12, 0x6a, 0x4b, 0x18, 0xfe,
0x75, 0x13, 0xee, 0xe7, 0xdc, 0xbd, 0xcf, 0x0c, 0x03, 0xc0, 0x67, 0x5d,
0xdb, 0x15, 0xce, 0x31, 0xe4, 0x77, 0x5b, 0xe1, 0x80, 0xc7, 0xc2, 0xa3,
0x27, 0x2e, 0x9d, 0xd9, 0xd2, 0xe7, 0xc7, 0x2e, 0xfc, 0xd6, 0xf3, 0x0f,
0x73, 0xdc, 0xfe, 0x36, 0x28, 0xf8, 0xc9, 0xbd, 0x00, 0x00, 0x00, 0x00,
0x49, 0x45, 0x4e, 0x44, 0xae, 0x42, 0x60, 0x82;
sub NEW
{
@ -1205,6 +1299,8 @@ sub NEW
$image12->loadFromData($image12_data, length ($image12_data), "PNG");
$image13 = Qt::Pixmap();
$image13->loadFromData($image13_data, length ($image13_data), "PNG");
$image15 = Qt::Pixmap();
$image15->loadFromData($image15_data, length ($image15_data), "PNG");
$image14 = Qt::Pixmap($image14_data);
@ -1215,9 +1311,13 @@ sub NEW
setIcon($image0 );
setCentralWidget(Qt::Widget(this, "qt_central_widget"));
my $TrimSPGUILayout = Qt::GridLayout(centralWidget(), 1, 1, 11, 6, '$TrimSPGUILayout');
Progress = Qt::ProgressBar(centralWidget(), "Progress");
Progress->setGeometry( Qt::Rect(11, 543, 714, 25) );
Progress->setFrameShape( &Qt::ProgressBar::WinPanel() );
tabs = Qt::TabWidget(centralWidget(), "tabs");
tabs->setGeometry( Qt::Rect(11, 11, 714, 526) );
LayersTab = Qt::Widget(tabs, "LayersTab");
@ -1684,12 +1784,44 @@ sub NEW
ERadio->setChecked( 1 );
tabs->insertTab( ScansTab, "" );
$TrimSPGUILayout->addWidget(tabs, 0, 0);
ConfigTab = Qt::Widget(tabs, "ConfigTab");
Progress = Qt::ProgressBar(centralWidget(), "Progress");
Progress->setFrameShape( &Qt::ProgressBar::WinPanel() );
my $LayoutWidget_6 = Qt::Widget(ConfigTab, '$LayoutWidget_6');
$LayoutWidget_6->setGeometry( Qt::Rect(10, 20, 680, 80) );
my $layout27_2 = Qt::GridLayout($LayoutWidget_6, 1, 1, 11, 6, '$layout27_2');
$TrimSPGUILayout->addWidget(Progress, 1, 0);
my $layout26_2 = Qt::HBoxLayout(undef, 0, 6, '$layout26_2');
textLabel1_2_2 = Qt::Label($LayoutWidget_6, "textLabel1_2_2");
textLabel1_2_2->setSizePolicy( Qt::SizePolicy(0, 5, 0, 0, textLabel1_2_2->sizePolicy()->hasHeightForWidth()) );
textLabel1_2_2->setMinimumSize( Qt::Size(110, 0) );
textLabel1_2_2->setMaximumSize( Qt::Size(130, 32767) );
$layout26_2->addWidget(textLabel1_2_2);
TrimGUIPath = Qt::LineEdit($LayoutWidget_6, "TrimGUIPath");
$layout26_2->addWidget(TrimGUIPath);
GUIPathBrowse = Qt::PushButton($LayoutWidget_6, "GUIPathBrowse");
$layout26_2->addWidget(GUIPathBrowse);
$layout27_2->addLayout($layout26_2, 1, 0);
my $layout25 = Qt::HBoxLayout(undef, 0, 6, '$layout25');
textLabel1_2 = Qt::Label($LayoutWidget_6, "textLabel1_2");
textLabel1_2->setSizePolicy( Qt::SizePolicy(0, 5, 0, 0, textLabel1_2->sizePolicy()->hasHeightForWidth()) );
textLabel1_2->setMinimumSize( Qt::Size(110, 0) );
textLabel1_2->setMaximumSize( Qt::Size(130, 32767) );
$layout25->addWidget(textLabel1_2);
TRIMBIN = Qt::LineEdit($LayoutWidget_6, "TRIMBIN");
$layout25->addWidget(TRIMBIN);
TrimBinBrowse = Qt::PushButton($LayoutWidget_6, "TrimBinBrowse");
$layout25->addWidget(TrimBinBrowse);
$layout27_2->addLayout($layout25, 0, 0);
tabs->insertTab( ConfigTab, "" );
fileNewAction= Qt::Action(this, "fileNewAction");
fileNewAction->setIconSet( Qt::IconSet($image3) );
@ -1717,7 +1849,6 @@ sub NEW
plotProfilesAction->setIconSet( Qt::IconSet($image0) );
helpContentsAction= Qt::Action(this, "helpContentsAction");
helpContentsAction->setIconSet( Qt::IconSet($image13) );
helpIndexAction= Qt::Action(this, "helpIndexAction");
helpAboutAction= Qt::Action(this, "helpAboutAction");
helpAboutAction->setIconSet( Qt::IconSet($image0) );
plotFractionsAction= Qt::Action(this, "plotFractionsAction");
@ -1727,8 +1858,8 @@ sub NEW
plotFractionsAction->setIconSet( Qt::IconSet($image14) );
fileStartAction= Qt::Action(this, "fileStartAction");
fileStartAction->setIconSet( Qt::IconSet($image1) );
helpTmpAction= Qt::Action(this, "helpTmpAction");
fileLoadAction= Qt::Action(this, "fileLoadAction");
fileConfigureAction= Qt::Action(this, "fileConfigureAction");
fileConfigureAction->setIconSet( Qt::IconSet($image15) );
@ -1789,6 +1920,8 @@ sub NEW
Qt::Object::connect(AngleRadio, SIGNAL "toggled(bool)", this, SLOT "ToggleScanSingle()");
Qt::Object::connect(SigAngleRadio, SIGNAL "toggled(bool)", this, SLOT "ToggleScanSingle()");
Qt::Object::connect(plotFractionsAction, SIGNAL "activated()", this, SLOT "PlotFraction()");
Qt::Object::connect(GUIPathBrowse, SIGNAL "clicked()", this, SLOT "GUIPath()");
Qt::Object::connect(TrimBinBrowse, SIGNAL "clicked()", this, SLOT "TrimBin()");
setTabOrder(tabs, NL);
setTabOrder(NL, L1Comp);
@ -1980,6 +2113,13 @@ sub languageChange
ERadio->setText( trUtf8("Energy") );
Qt::WhatsThis::add(ERadio, trUtf8("Scan implantation energy."));
tabs->changeTab( ScansTab, trUtf8("Scans (Disbaled)") );
textLabel1_2_2->setText( trUtf8("TrimSP GUI path") );
TrimGUIPath->setText( undef );
GUIPathBrowse->setText( trUtf8("Browse") );
textLabel1_2->setText( trUtf8("TrimSP binary") );
TRIMBIN->setText( undef );
TrimBinBrowse->setText( trUtf8("Browse") );
tabs->changeTab( ConfigTab, trUtf8("Configuration") );
fileNewAction->setText( trUtf8("New") );
fileNewAction->setMenuText( trUtf8("&New") );
fileNewAction->setAccel( Qt::KeySequence( trUtf8("Ctrl+N") ) );
@ -2019,9 +2159,6 @@ sub languageChange
helpContentsAction->setText( trUtf8("Contents") );
helpContentsAction->setMenuText( trUtf8("&Contents...") );
helpContentsAction->setAccel( Qt::KeySequence( undef ) );
helpIndexAction->setText( trUtf8("Index") );
helpIndexAction->setMenuText( trUtf8("&Index...") );
helpIndexAction->setAccel( Qt::KeySequence( undef ) );
helpAboutAction->setText( trUtf8("About") );
helpAboutAction->setMenuText( trUtf8("&About") );
helpAboutAction->setAccel( Qt::KeySequence( undef ) );
@ -2031,10 +2168,8 @@ sub languageChange
fileStartAction->setText( trUtf8("&Start") );
fileStartAction->setMenuText( trUtf8("Start") );
fileStartAction->setAccel( Qt::KeySequence( trUtf8("Alt+S") ) );
helpTmpAction->setText( trUtf8("Tmp") );
helpTmpAction->setMenuText( trUtf8("Tmp") );
fileLoadAction->setText( trUtf8("Load") );
fileLoadAction->setMenuText( trUtf8("Load") );
fileConfigureAction->setText( trUtf8("Configure") );
fileConfigureAction->setMenuText( trUtf8("Configure") );
MenuBar->findItem( 1 )->setText( trUtf8("&File") );
MenuBar->findItem( 2 )->setText( trUtf8("&Plot") );
MenuBar->findItem( 3 )->setText( trUtf8("&Help") );
@ -2146,7 +2281,6 @@ sub PrepLayers
for (my $i=1;$i<=7;$i++) {
my $LayerName = "BoxL".$i;
my $LayerAttrib = child($LayerName);
print $LayerAttrib."\n";
if ($i<=$All{"NL"}) {
$LayerAttrib->setDisabled(0);
} else {
@ -2532,6 +2666,14 @@ 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 environment variable, e.g.\n export TRIMBIN=/usr/local/bin/trimsp7l\n or use the Configuration tab.");
return(0);
}
# Cleanup from old files
if (-e "ausgabe1.inp") {
system("rm -f ausgabe*");
@ -2672,6 +2814,10 @@ sub DirectoryBrowse
}
# Change work directory accordingly
chdir ("$FileBrowser");
# Return a string with the directory name
return $FileBrowser ;
}
@ -2972,6 +3118,45 @@ SStep=$All{'SStep'}
}
sub GUIPath
{
# This subroutine is used to define diffirent variables
my $FileBrowser = Qt::FileDialog::getExistingDirectory("./",this,"get existing directory","Choose the directory where the TrimSP GUI is.",1);
# If nothing is returned keep as is
if ($FileBrowser eq "") {
$FileBrowser="$ENV{'PERLLIB'}";
} else {
TrimGUIPath->setText($FileBrowser);
$ENV{'PERLLIB'}=$FileBrowser;
}
# Return a string with the directory name
return $FileBrowser ;
}
sub TrimBin
{
my $file=Qt::FileDialog::getOpenFileName(
"$ENV{'TRIMBIN'}",
"Trim.SP binary (.* *.* *)",
this,
"open file dialog",
"Select the Trim.SP binary file");
# If the user gave a valid filename try to read it
if ($file ne "") {
$ENV{'TRIMBIN'}=$file;
TRIMBIN->setText($file);
}
return $file;
}
1;

4202
trimsp/src/TrimSPGUI/TrimSPGUI.ui
View File

File diff suppressed because it is too large Load Diff

49
trimsp/src/TrimSPGUI/TrimSPGUI.ui.h
View File

@ -510,6 +510,14 @@ void TrimSPGUI::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 environment variable, e.g.\n export TRIMBIN=/usr/local/bin/trimsp7l\n or use the Configuration tab.");
return(0);
}
# Cleanup from old files
if (-e "ausgabe1.inp") {
system("rm -f ausgabe*");
@ -649,6 +657,10 @@ void TrimSPGUI::DirectoryBrowse()
}
# Change work directory accordingly
chdir ("$FileBrowser");
# Return a string with the directory name
return $FileBrowser ;
}
@ -940,3 +952,40 @@ SStep=$All{'SStep'}
close(OUTF);
}
}
void TrimSPGUI::GUIPath()
{
# This subroutine is used to define diffirent variables
my $FileBrowser = Qt::FileDialog::getExistingDirectory("./",this,"get existing directory","Choose the directory where the TrimSP GUI is.",1);
# If nothing is returned keep as is
if ($FileBrowser eq "") {
$FileBrowser="$ENV{'PERLLIB'}";
} else {
TrimGUIPath->setText($FileBrowser);
$ENV{'PERLLIB'}=$FileBrowser;
}
# Return a string with the directory name
return $FileBrowser ;
}
void TrimSPGUI::TrimBin()
{
my $file=Qt::FileDialog::getOpenFileName(
"$ENV{'TRIMBIN'}",
"Trim.SP binary (.* *.* *)",
this,
"open file dialog",
"Select the Trim.SP binary file");
# If the user gave a valid filename try to read it
if ($file ne "") {
$ENV{'TRIMBIN'}=$file;
TRIMBIN->setText($file);
}
return $file;
}