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

More work on plotting implantation profiles.

Browse Source
This commit is contained in:
salman 2009-11-24 13:50:42 +00:00
parent b02bad6b88
commit a67b8ff3af
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
trimsp/TrimSPGUI/TrimSP.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: Mon Nov 23 15:50:35 2009 # Created: Tue Nov 24 14:48:53 2009
# 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!
@ -2766,17 +2766,20 @@ sub PlotProfiles
my $filenames=join(",",@files); my $filenames=join(",",@files);
print "Selected file: $filenames\n"; print "Selected file: $filenames\n";
my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
"Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
if ($filenames ne "" ) { if ($filenames ne "" ) {
# 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 "plotRge.C(\"'.$filenames.'\")"'; my $cmd='root -n -l "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";
while (<FTO>) { while (<FTO>) {
# FitTextOutput->append("$_");
print "$_"; print "$_";
} }
close(FTO); close(FTO);
# system($cmd); # my $pid=system($cmd);
} }
} }

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

@ -622,17 +622,20 @@ void TrimSPGUI::PlotProfiles()
my $filenames=join(",",@files); my $filenames=join(",",@files);
print "Selected file: $filenames\n"; print "Selected file: $filenames\n";
my $Warning = Qt::MessageBox::information( this, "Big Fat Warning",
"Warning:\nClose the plot using the menu FILE -> Quit ROOT\nDO NOT CLOSE USING X.");
if ($filenames ne "" ) { if ($filenames ne "" ) {
# 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 "plotRge.C(\"'.$filenames.'\")"'; my $cmd='root -n -l "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";
while (<FTO>) { while (<FTO>) {
# FitTextOutput->append("$_");
print "$_"; print "$_";
} }
close(FTO); close(FTO);
# system($cmd); # my $pid=system($cmd);
} }
} }