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

Add path to enable plotting from any directory.

Browse Source
This commit is contained in:
salman 2010-06-07 12:40:20 +00:00
parent e14dd7303a
commit 7699459193
2 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
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: Tue Mar 2 17:53:21 2010 # Created: Mon Jun 7 14:34:19 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!
@ -2342,9 +2342,10 @@ sub PlotProfiles
if ($filenames ne "" ) { if ($filenames ne "" ) {
# my $Warning = Qt::MessageBox::information( this, "Big Fat Warning", # my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
# "Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X."); # "Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
my $TrimPath = $ENV{'PERLLIB'};
# Now that we have the file list send it to root macro for plotting. # Now that we have the file list send it to root macro for plotting.
my $cmd='root -n -l "plotRge.C(\"'.$filenames.'\")"&'; my $cmd='root -n -l "'.$TrimPath.'/plotRge.C(\"'.$filenames.'\")"&';
# my $pid = open(FTO,"$cmd"); # my $pid = open(FTO,"$cmd");
# my $pid = open(FTO,"$cmd 2>&1 |"); # my $pid = open(FTO,"$cmd 2>&1 |");
# print "PID=$pid\n"; # print "PID=$pid\n";

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

@ -624,9 +624,10 @@ void TrimSPGUI::PlotProfiles()
if ($filenames ne "" ) { if ($filenames ne "" ) {
# my $Warning = Qt::MessageBox::information( this, "Big Fat Warning", # my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
# "Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X."); # "Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
my $TrimPath = $ENV{'PERLLIB'};
# Now that we have the file list send it to root macro for plotting. # Now that we have the file list send it to root macro for plotting.
my $cmd='root -n -l "plotRge.C(\"'.$filenames.'\")"&'; my $cmd='root -n -l "'.$TrimPath.'/plotRge.C(\"'.$filenames.'\")"&';
# my $pid = open(FTO,"$cmd"); # my $pid = open(FTO,"$cmd");
# my $pid = open(FTO,"$cmd 2>&1 |"); # my $pid = open(FTO,"$cmd 2>&1 |");
# print "PID=$pid\n"; # print "PID=$pid\n";