Chart-gtk 1.2.3 → 1.2.4

raw patch · 2 files changed

+4/−7 lines, 2 files

Files

• Chart-gtk.cabal +1/−1
• Graphics/Rendering/Chart/Gtk.hs +3/−6

@@ -1,5 +1,5 @@ Name: Chart-gtk-Version: 1.2.3+Version: 1.2.4 License: BSD3 License-file: LICENSE Copyright: Tim Docker, 2006-2010

@@ -23,13 +23,10 @@ import Control.Monad(when) import System.IO.Unsafe(unsafePerformIO) --- do action m for any keypress (except meta keys)+-- do action m for any keypress (except modified keys) anyKey :: (Monad m) => m a -> GE.Event -> m Bool-anyKey m (GE.Key {GE.eventKeyName=key})-    | any (`isPrefixOf` key) ignores = return True-    | otherwise                      = m >> return True-  where ignores = ["Shift","Control","Alt",-                   "Super","Meta","Hyper"]+anyKey m (GE.Key {GE.eventModifier=[]}) = m >> return True+anyKey _ _ = return True  -- Yuck. But we really want the convenience function -- renderableToWindow as to be callable without requiring