diff --git a/trimsp/TrimSPGUI/TrimSPGUI.pl b/trimsp/TrimSPGUI/TrimSPGUI.pl
index 283d247..bb49af1 100644
--- a/trimsp/TrimSPGUI/TrimSPGUI.pl
+++ b/trimsp/TrimSPGUI/TrimSPGUI.pl
@@ -1,6 +1,6 @@
 # Form implementation generated from reading ui file 'TrimSPGUI.ui'
 #
-# Created: Fri Sep 23 14:27:01 2011
+# Created: Tue Jan 10 15:16:59 2012
 #      by: The PerlQt User Interface Compiler (puic)
 #
 # WARNING! All changes made in this file will be lost!
@@ -1721,7 +1721,9 @@ sub NEW
     helpAboutAction= Qt::Action(this, "helpAboutAction");
     helpAboutAction->setIconSet( Qt::IconSet($image0) );
     plotFractionsAction= Qt::Action(this, "plotFractionsAction");
-    plotFractionsAction->setEnabled( 0 );
+    plotFractionsAction->setToggleAction( 0 );
+    plotFractionsAction->setOn( 0 );
+    plotFractionsAction->setEnabled( 1 );
     plotFractionsAction->setIconSet( Qt::IconSet($image14) );
     fileStartAction= Qt::Action(this, "fileStartAction");
     fileStartAction->setIconSet( Qt::IconSet($image1) );
@@ -1786,6 +1788,7 @@ sub NEW
     Qt::Object::connect(fileSaveAsAction, SIGNAL "activated()", this, SLOT "SaveFileAs()");
     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()");
 
     setTabOrder(tabs, NL);
     setTabOrder(NL, L1Comp);
@@ -2721,7 +2724,23 @@ sub PlotProfiles
 
 sub PlotFraction
 {
-    print "TrimSPGUI->PlotFraction(): Not implemented yet.\n";
+
+    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);	
+    }
+
+
 }
 
 sub OpenAboutWindow
diff --git a/trimsp/TrimSPGUI/TrimSPGUI.ui b/trimsp/TrimSPGUI/TrimSPGUI.ui
index 7573ba1..e90256b 100644
--- a/trimsp/TrimSPGUI/TrimSPGUI.ui
+++ b/trimsp/TrimSPGUI/TrimSPGUI.ui
@@ -2425,9 +2425,15 @@
         <property name="name">
             <cstring>plotFractionsAction</cstring>
         </property>
-        <property name="enabled">
+        <property name="toggleAction">
             <bool>false</bool>
         </property>
+        <property name="on">
+            <bool>false</bool>
+        </property>
+        <property name="enabled">
+            <bool>true</bool>
+        </property>
         <property name="iconSet">
             <iconset>image14</iconset>
         </property>
@@ -2667,6 +2673,12 @@
         <receiver>TrimSPGUI</receiver>
         <slot>ToggleScanSingle()</slot>
     </connection>
+    <connection>
+        <sender>plotFractionsAction</sender>
+        <signal>activated()</signal>
+        <receiver>TrimSPGUI</receiver>
+        <slot>PlotFraction()</slot>
+    </connection>
 </connections>
 <tabstops>
     <tabstop>tabs</tabstop>
diff --git a/trimsp/TrimSPGUI/TrimSPGUI.ui.h b/trimsp/TrimSPGUI/TrimSPGUI.ui.h
index 4b79840..258ff37 100644
--- a/trimsp/TrimSPGUI/TrimSPGUI.ui.h
+++ b/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);	
+    }
 
 }