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

Added GPL License. Added H projectile.

Browse Source
This commit is contained in:
salman
2009-08-11 13:31:33 +00:00
parent 4e29e436a7
commit 5537884683
4 changed files with 43 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
trimsp/TrimSPGUI/Chem.pm
View File

@ -1,3 +1,19 @@
# This file is part of TrimSPGUI.
#
# TrimSPGUI is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# TrimSPGUI is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar. If not, see <http://www.gnu.org/licenses/>.
#
# Copyright 2009 by Zaher Salman and the LEM Group.
package Chem;

1
trimsp/TrimSPGUI/TrimSP
View File

@ -1,4 +1,5 @@
#!/bin/bash
# Copyright 2009 by Zaher Salman and the LEM Group.
export TRIMBIN=/usr/local/bin/trimsp7l
export PERLLIB=$HOME/Projects/TrimSPGUI

17
trimsp/TrimSPGUI/TrimSPGUI.pl
View File

@ -1,6 +1,6 @@
# Form implementation generated from reading ui file 'TrimSPGUItabs.ui'
#
# Created: Tue Aug 11 12:14:49 2009
# Created: Tue Aug 11 15:28:40 2009
# by: The PerlQt User Interface Compiler (puic)
#
# WARNING! All changes made in this file will be lost!
@ -24,6 +24,7 @@ use Qt::slots
DirectoryBrowse => [],
ConfirmQuit => [];
use Qt::attributes qw(
Progress
tabs
LayersTab
groupBox1
@ -136,7 +137,6 @@ use Qt::attributes qw(
NProjRadio
dRadio
ScandL
Progress
TrimSPGUIHelp
);
@ -797,6 +797,10 @@ sub NEW
setModal(1 );
Progress = Qt::ProgressBar(this, "Progress");
Progress->setGeometry( Qt::Rect(0, 525, 715, 20) );
Progress->setFrameShape( &Qt::ProgressBar::WinPanel() );
tabs = Qt::TabWidget(this, "tabs");
tabs->setGeometry( Qt::Rect(0, 0, 715, 525) );
@ -1249,10 +1253,6 @@ sub NEW
ScandL->setMaxValue( int(7) );
ScandL->setMinValue( int(1) );
tabs->insertTab( ScansTab, "" );
Progress = Qt::ProgressBar(this, "Progress");
Progress->setGeometry( Qt::Rect(0, 525, 715, 20) );
Progress->setFrameShape( &Qt::ProgressBar::WinPanel() );
languageChange();
my $resize = Qt::Size(717, 547);
$resize = $resize->expandedTo(minimumSizeHint());
@ -1307,6 +1307,7 @@ sub languageChange
ProjType->insertItem( trUtf8("Muon") );
ProjType->insertItem( trUtf8("Li8") );
ProjType->insertItem( trUtf8("B12") );
ProjType->insertItem( trUtf8("H") );
Qt::WhatsThis::add(ProjType, trUtf8("Choose the projectile type."));
NLabel->setText( trUtf8("Number of projectiles") );
z0Label->setText( trUtf8("Starting depth [Å]") );
@ -1603,10 +1604,6 @@ sub CollectValues
# Filenames etc.
$All{"FNPre"}=FNPre->text();
$All{"Path"}=Path->text();
if ($All{"Path"} eq "./") {
Path -> setText($ENV{'PWD'});
$All{"Path"}=Path->text();
}
# Scan parameters only if selected
$All{"ScanSeq"}=ScanSeq->isChecked();

21
trimsp/TrimSPGUI/TrimSPGUItabs.ui.h
View File

@ -10,6 +10,23 @@
** destructor.
*****************************************************************************/
# This file is part of TrimSPGUI.
#
# TrimSPGUI is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# TrimSPGUI is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar. If not, see <http://www.gnu.org/licenses/>.
#
# Copyright 2009 by Zaher Salman and the LEM Group.
# <zaher.salman@psi.ch>
void TrimSPGUI::ToggleScanSingle()
{
@ -211,10 +228,6 @@ void TrimSPGUI::CollectValues()
# Filenames etc.
$All{"FNPre"}=FNPre->text();
$All{"Path"}=Path->text();
if ($All{"Path"} eq "./") {
Path -> setText($ENV{'PWD'});
$All{"Path"}=Path->text();
}
# Scan parameters only if selected
$All{"ScanSeq"}=ScanSeq->isChecked();