pango 0.13.0.0 → 0.13.0.1

raw patch · 3 files changed

+10/−11 lines, 3 filesdep ~text

Dependency ranges changed: text

Files

• Graphics/Rendering/Pango/GlyphStorage.chs +7/−8
• Graphics/Rendering/Pango/Types.chs +1/−1
• pango.cabal +2/−2

@@ -55,21 +55,20 @@  -- | Ask for bounding rectangles of this glyph sequence. ----- * Compute the logical and ink extents of a glyph string. The---   logical extend is used for positioning, the ink size is the smallest+-- * Compute the ink and logical extents of a glyph string. The+--   logical size is used for positioning, the ink size is the smallest --   bounding box that includes all character pixels. The ink size can be---   smaller or larger that the logical layout.---+--   smaller or larger than the logical size. -- glyphItemExtents :: GlyphItem -> IO (PangoRectangle, PangoRectangle) glyphItemExtents (GlyphItem pi self) = do   font <- pangoItemGetFont pi-  alloca $ \logPtr -> alloca $ \inkPtr -> do+  alloca $ \inkPtr -> alloca $ \logPtr -> do   {#call unsafe glyph_string_extents#} self font-    (castPtr logPtr) (castPtr inkPtr)-  log <- peek logPtr+    (castPtr inkPtr) (castPtr logPtr)   ink <- peek inkPtr-  return (log, ink)+  log <- peek logPtr+  return (ink, log)  -- | Ask for bounding rectangles for a sub-range of a glyph sequence. --

@@ -72,7 +72,7 @@ #else import Foreign.ForeignPtr (unsafeForeignPtrToPtr) #endif-import Foreign.C.Types    (CULong(..), CUInt(..))+import Foreign.C.Types    (CULong(..), CUInt(..), CULLong(..)) import System.Glib.GType  (GType, typeInstanceIsA) {#import System.Glib.GObject#} 

@@ -1,5 +1,5 @@ Name:           pango-Version:        0.13.0.0+Version:        0.13.0.1 License:        LGPL-2.1 License-file:   COPYING Copyright:      (c) 2001-2010 The Gtk2Hs Team@@ -44,7 +44,7 @@                         process, directory, array, containers, pretty, mtl,                         glib  >= 0.13.0.0 && < 0.14,                         cairo >= 0.13.0.0 && < 0.14,-                        text >= 0.11.0.6 && < 1.2+                        text >= 0.11.0.6 && < 1.3          if flag(new-exception)           build-depends:  base >= 4