FullGraphics question

*To*: mathgroup at smc.vnet.net*Subject*: [mg73496] FullGraphics question*From*: "dimitris" <dimmechan at yahoo.com>*Date*: Tue, 20 Feb 2007 06:17:55 -0500 (EST)

Hello to all. The following question is in connection with a recent question about left-alligned PlotLabel (see here: http://groups.google.gr/group/comp.soft-sys.math.mathematica/browse_thread/thread/b3fa58c5aa8f619d/762d60764518f043?hl=el#762d60764518f043 ) My code which is based on an old post of Bruce Colleti regarding ticks label and FullGraphics (ee here: http://groups.google.gr/group/comp.soft-sys.math.mathematica/browse_thread/thread/d549d7f80636d2b8/daf9b915a80c9ca8?lnk=gst&q=Bruce+Colletti&rnum=13&hl=el#daf9b915a80c9ca8 ) is as follows: g = Plot[x, {x, 0, 1}, PlotLabel -> "label to be alligned left", Axes - > False, Frame -> {True, True, False, False}]; g = FullGraphics[g]; g = Replace[g, Text[text_String, {x_, y_}, {z_, w_}] -> Text[text, {x - 0.21, y}, {z, w}], 3]; Show[g, PlotRange -> All]; As someone can see the PlotLabel object is indeed left-alligned. Let modify now the original plot. g = Plot[x, {x, 0, 1}, PlotLabel -> "label to be alligned left", Axes - > False, Frame -> {True, True, False, False}, TextStyle -> {FontFamily -> "Times", FontSize -> 14}]; g = FullGraphics[g]; g = Replace[g, Text[text_String, {x_, y_}, {z_, w_}] -> Text[text, {x - 0.21, y}, {z, w}], 3]; Show[g, PlotRange -> All]; The PlotLabel object appeared again on the left but the TextStyle took the default settings. How can overcome this problem? Dimitris

**Follow-Ups**:**Re: FullGraphics question***From:*"Chris Chiasson" <chris@chiasson.name>