Use point envelope (@ origin) for text objects instead of empty.

Fixes #115. Fixes #116. NOTE: make sure we update documentation to match/explain this more carefully.
diagrams · Sep 22, 2013 · def0058 · def0058
1 parent 0484b6b
commit def0058
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Diagrams/TwoD/Text.hs b/src/Diagrams/TwoD/Text.hs
@@ -32,9 +32,10 @@ module Diagrams.TwoD.Text (
 
 import           Diagrams.Attributes
 import           Diagrams.Core
+import           Diagrams.Core.Envelope (pointEnvelope)
 import           Diagrams.TwoD.Types
 
-import           Data.AffineSpace    ((.-.))
+import           Data.AffineSpace       ((.-.))
 
 import           Data.Semigroup
 
@@ -75,7 +76,7 @@ mkText a t = recommendFillColor (black :: Colour Double)
              -- See Note [recommendFillColor]
 
            $ mkQD (Prim (Text mempty a t))
-                       mempty
+                       (pointEnvelope origin)
                        mempty
                        mempty
                        mempty