Browse files

call setDefault2DAttributes even when bypassing size adjustments

  • Loading branch information...
1 parent 4ae68aa commit 83e2aa5d56ed62b26aa7b76d7e5b3e1967d3fd02 Brent Yorgey committed Aug 5, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Diagrams/Backend/Cairo/Internal.hs
@@ -27,7 +27,7 @@ import Diagrams.Prelude
import Diagrams.TwoD.Path (Clip(..), getFillRule)
import Diagrams.TwoD.Text
import Diagrams.TwoD.Image
-import Diagrams.TwoD.Adjust (adjustDia2D, adjustSize)
+import Diagrams.TwoD.Adjust (adjustDia2D, setDefault2DAttributes, adjustSize)
import Graphics.UI.Gtk (DrawableClass)
import qualified Graphics.UI.Gtk.Cairo as CG
@@ -130,7 +130,7 @@ instance Backend Cairo R2 where
SVG -> C.withSVGSurface file w h surfaceF
adjustDia c opts d = if bypass (cairoOutputType opts)
- then (opts,d)
+ then (opts, d # setDefault2DAttributes)
else adjustDia2D cairoSizeSpec
c opts (d # reflectY)

0 comments on commit 83e2aa5

Please sign in to comment.