*** empty log message ***

4 files changed, 9 insertions, 1 deletions

diff --git a/src/bltGrElemLine.C b/src/bltGrElemLine.C
index 0c7fb85..0427f2b 100644
--- a/src/bltGrElemLine.C
+++ b/src/bltGrElemLine.C
@@ -661,6 +661,7 @@ void LineElement::print(PostScript* psPtr)
   // Draw fill area
   if (ops->fillBg && fillPts_) {
     psPtr->append("% start fill area\n");
+    psPtr->setBackground(ops->fillBg);
     psPtr->printPolyline(fillPts_, nFillPts_);
     psPtr->append("gsave fill grestore\n");
     psPtr->append("% end fill area\n");
diff --git a/src/bltGrPSOutput.C b/src/bltGrPSOutput.C
index e3bab0d..e698be4 100644
--- a/src/bltGrPSOutput.C
+++ b/src/bltGrPSOutput.C
@@ -228,6 +228,12 @@ void PostScript::setForeground(XColor* colorPtr)
     append(" currentgray setgray\n");
 }
 
+void PostScript::setBackground(Tk_3DBorder border)
+{
+  TkBorder* borderPtr = (TkBorder*)border;
+  setBackground(borderPtr->bgColorPtr);
+}
+
 void PostScript::setFont(Tk_Font font) 
 {
   Tcl_DString psdstr;
diff --git a/src/bltGrPSOutput.h b/src/bltGrPSOutput.h
index 0845fe7..542c46c 100644
--- a/src/bltGrPSOutput.h
+++ b/src/bltGrPSOutput.h
@@ -73,6 +73,7 @@ class PostScript {
   void setLineWidth(int);
   void setBackground(XColor*);
   void setForeground(XColor*);
+  void setBackground(Tk_3DBorder);
   void setLineAttributes(XColor*,int, Dashes*, int, int);
   void setClearBackground();
   void setDashes(Dashes*);
diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl
index d8c24c4..95b732b 100644
--- a/tests/lineelement.tcl
+++ b/tests/lineelement.tcl
@@ -7,7 +7,7 @@ $graph element configure data1 -dash {8 3} -showvalues y -smooth step -symbol ci
 
 $graph pen create foo -showvalues y -symbol circle -dashes {8 3} -color purple -linewidth 2
 $graph element activate data3
-return
+
 echo "Testing Line Element.."
 
 bltTest3 $graph element data3 -activepen foo $dops