Skip to content
This repository
Browse code

call setDefault2DAttributes even when bypassing size adjustments

  • Loading branch information...
commit 83e2aa5d56ed62b26aa7b76d7e5b3e1967d3fd02 1 parent 4ae68aa
Brent Yorgey authored August 05, 2012

Showing 1 changed file with 2 additions and 2 deletions. Show diff stats Hide diff stats

  1. 4  src/Diagrams/Backend/Cairo/Internal.hs
4  src/Diagrams/Backend/Cairo/Internal.hs
@@ -27,7 +27,7 @@ import Diagrams.Prelude
27 27
 import Diagrams.TwoD.Path (Clip(..), getFillRule)
28 28
 import Diagrams.TwoD.Text
29 29
 import Diagrams.TwoD.Image
30  
-import Diagrams.TwoD.Adjust (adjustDia2D, adjustSize)
  30
+import Diagrams.TwoD.Adjust (adjustDia2D, setDefault2DAttributes, adjustSize)
31 31
 
32 32
 import Graphics.UI.Gtk (DrawableClass)
33 33
 import qualified Graphics.UI.Gtk.Cairo as CG
@@ -130,7 +130,7 @@ instance Backend Cairo R2 where
130 130
               SVG -> C.withSVGSurface file w h surfaceF
131 131
 
132 132
   adjustDia c opts d = if bypass (cairoOutputType opts)
133  
-                         then (opts,d)
  133
+                         then (opts, d # setDefault2DAttributes)
134 134
                          else adjustDia2D cairoSizeSpec
135 135
                                           setCairoSizeSpec
136 136
                                           c opts (d # reflectY)

0 notes on commit 83e2aa5

Please sign in to comment.
Something went wrong with that request. Please try again.