Enable plot fractions.

trimsp/TrimSPGUI/TrimSPGUI.ui.h

@@ -701,6 +701,20 @@ void TrimSPGUI::PlotProfiles()
 
 void TrimSPGUI::PlotFraction()
 {
+    my $file=Qt::FileDialog::getOpenFileName(
+	    ".",
+	    "Implantation sequence file (*.dat)",
+	    this,
+	    "open sequence data file dialog",
+	    "Choose a sequence data file");
+        
+    if ($file ne "" ) {
+	my $TrimPath = $ENV{'PERLLIB'};	
+# Now that we have the file name send it to root macro for plotting.
+	my $cmd='root -n -l "'.$TrimPath.'/plotFrc.C(\"'.$file.'\")"&';
+
+	my $pid=system($cmd);	
+    }
 
 }