Chart-gtk 0.17 → 1.0
raw patch · 3 files changed
+14/−14 lines, 3 filesdep +Chart-cairodep −data-accessordep −data-accessor-templatedep ~Chartdep ~basePVP ok
version bump matches the API change (PVP)
Dependencies added: Chart-cairo
Dependencies removed: data-accessor, data-accessor-template
Dependency ranges changed: Chart, base
API changes (from Hackage documentation)
Files
- Chart-gtk.cabal +9/−11
- Graphics/Rendering/Chart/Gtk.hs +4/−2
- Graphics/Rendering/Chart/Gtk/Simple.hs +1/−1
Chart-gtk.cabal view
@@ -1,5 +1,5 @@ Name: Chart-gtk-Version: 0.17+Version: 1.0 License: BSD3 License-file: LICENSE Copyright: Tim Docker, 2006-2010@@ -12,17 +12,15 @@ Cabal-Version: >= 1.6 Build-Type: Simple -flag splitbase- description: Choose the new smaller, split-up base package.- library- if flag(splitbase)- Build-depends: base >= 3 && < 5, old-locale, time, mtl, array- else- Build-depends: base < 3- Build-depends: cairo >= 0.9.11, time, mtl, array, data-accessor == 0.2.*, - data-accessor-template >= 0.2.1.1 && < 0.3, colour >= 2.2.1,- gtk >= 0.9.11, Chart == 0.17+ Build-depends: base >= 3 && < 5+ , old-locale+ , time, mtl, array+ , cairo >= 0.9.11+ , colour >= 2.2.1+ , gtk >= 0.9.11+ , Chart >= 1.0+ , Chart-cairo >= 1.0 Exposed-modules: Graphics.Rendering.Chart.Gtk
Graphics/Rendering/Chart/Gtk.hs view
@@ -15,7 +15,9 @@ import qualified Graphics.Rendering.Cairo as C import Graphics.Rendering.Chart import Graphics.Rendering.Chart.Renderable-import Graphics.Rendering.Chart.Types+import Graphics.Rendering.Chart.Geometry+import Graphics.Rendering.Chart.Drawing+import Graphics.Rendering.Chart.Backend.Cairo import Data.List (isPrefixOf) import Data.IORef import Control.Monad(when)@@ -77,5 +79,5 @@ win <- G.widgetGetDrawWindow canvas (width, height) <- G.widgetGetSize canvas let sz = (fromIntegral width,fromIntegral height)- G.renderWithDrawable win $ runCRender (render chart sz) bitmapEnv+ G.renderWithDrawable win $ runBackend (defaultEnv bitmapAlignmentFns) (render chart sz) return True
Graphics/Rendering/Chart/Gtk/Simple.hs view
@@ -26,7 +26,7 @@ plw args = \ a -> plw (toUPlot a ++ args) instance PlotWindowType (IO a) where plw args = do- renderableToWindow (toRenderable $ uplot (reverse args)) 640 480+ renderableToWindow (layout1DddToRenderable $ uplot (reverse args)) 640 480 return undefined