From f3cd249d5c6bf054c866a9a2542501750e75c851 Mon Sep 17 00:00:00 2001
From: joye <joye>
Date: Wed, 11 Jun 2014 18:19:59 +0000
Subject: *** empty log message ***

---
 src/bltGrPSOutput.C | 2 +-
 src/bltGrText.C     | 5 +++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/bltGrPSOutput.C b/src/bltGrPSOutput.C
index f85f5b3..9ff60e9 100644
--- a/src/bltGrPSOutput.C
+++ b/src/bltGrPSOutput.C
@@ -889,7 +889,7 @@ void PostScript::prolog()
 "    dup cstringwidth pop\n"
 "    justify neg mul 0 moveto\n"
 "    cstringshow\n"
-"    0 spacing neg translate\n"
+"    0 spacing translate\n"
 "  } forall\n"
 "  grestore\n"
 "} bind def \n"
diff --git a/src/bltGrText.C b/src/bltGrText.C
index f806e72..ee7bfe1 100644
--- a/src/bltGrText.C
+++ b/src/bltGrText.C
@@ -141,8 +141,6 @@ void TextStyle::printText(PostScript* psPtr, const char *text, int x, int y)
   Tk_TextLayout layout = Tk_ComputeTextLayout(ops->font, text, -1, -1,
 					      ops->justify, 0, &w1, &h1);
 
-  // cerr << '(' << x << ',' << y << ')' << ' ' << text << endl;
-
   int xx =0;
   int yy =0;
   switch (ops->anchor) {
@@ -167,6 +165,9 @@ void TextStyle::printText(PostScript* psPtr, const char *text, int x, int y)
   Tk_FontMetrics fm;
   Tk_GetFontMetrics(ops->font, &fm);
 
+  psPtr->setFont(ops->font);
+  psPtr->setForeground(ops->color);
+
   psPtr->format("%g %d %d [\n", ops->angle, x, y);
   Tcl_ResetResult(graphPtr_->interp_);
   Tk_TextLayoutToPostscript(graphPtr_->interp_, layout);
-- 
cgit v0.12