ige-mac-integration 0.0.0.1 → 0.0.0.2

raw patch · 4 files changed

+64/−6 lines, 4 files

Files

Graphics/UI/Gtk/OSX/Application.chs +30/−1
Graphics/UI/Gtk/OSX/Signals.chs +27/−0
ige-mac-integration.cabal +5/−5
marshal.list +2/−0

Graphics/UI/Gtk/OSX/Application.chs view

@@ -53,7 +53,12 @@   applicationGetResourcePath,   applicationGetExecutablePath,   applicationGetBundleId,-  applicationGetBundleInfo+  applicationGetBundleInfo,+  didBecomeActive,+  willResignActive,+  blockTermination,+  willTerminate,+  openFile  ) where  import Control.Monad	(liftM)@@ -209,4 +214,28 @@     withCString key $ \keyPtr ->     {#call unsafe gtk_osxapplication_get_bundle_info#} (toApplication self) keyPtr >>= peekCString +-- |+--+didBecomeActive :: ApplicationClass self => Signal self (IO ())+didBecomeActive = Signal (connect_NONE__NONE "NSApplicationDidBecomeActive")++-- |+--+willResignActive :: ApplicationClass self => Signal self (IO ())+willResignActive = Signal (connect_NONE__NONE "NSApplicationWillResignActive")++-- |+--+blockTermination :: ApplicationClass self => Signal self (IO Bool)+blockTermination = Signal (connect_NONE__BOOL "NSApplicationBlockTermination")++-- |+--+willTerminate :: ApplicationClass self => Signal self (IO ())+willTerminate = Signal (connect_NONE__NONE "NSApplicationWillTerminate")++-- |+--+openFile :: ApplicationClass self => Signal self (String -> IO ())+openFile = Signal (connect_STRING__NONE "NSApplicationOpenFile")

Graphics/UI/Gtk/OSX/Signals.chs view

@@ -42,6 +42,8 @@    connect_NONE__NONE,   connect_BOXED_BOXED__NONE,+  connect_NONE__BOOL,+  connect_STRING__NONE,      ) where @@ -88,4 +90,29 @@           boxedPre2 (castPtr box2) >>= \box2' ->           boxedPre1 (castPtr box1) >>= \box1' ->           user box1' box2'++connect_NONE__BOOL :: +  GObjectClass obj => SignalName ->+  ConnectAfter -> obj ->+  (IO Bool) ->+  IO (ConnectId obj)+connect_NONE__BOOL signal after obj user =+  connectGeneric signal after obj action+  where action :: Ptr GObject -> IO Bool+        action _ =+          failOnGError $+          user++connect_STRING__NONE :: +  GObjectClass obj => SignalName ->+  ConnectAfter -> obj ->+  (String -> IO ()) ->+  IO (ConnectId obj)+connect_STRING__NONE signal after obj user =+  connectGeneric signal after obj action+  where action :: Ptr GObject -> CString -> IO ()+        action _ str1 =+          failOnGError $+          peekUTFString str1 >>= \str1' ->+          user str1'

ige-mac-integration.cabal view

@@ -1,5 +1,5 @@ Name:           ige-mac-integration-Version:        0.0.0.1+Version:        0.0.0.2 License:        LGPL-2.1 License-file:   COPYING Copyright:      (c) 2001-2010 The Gtk2Hs Team@@ -10,7 +10,7 @@ Stability:      provisional homepage:       http://www.haskell.org/gtk2hs/ bug-reports:    http://hackage.haskell.org/trac/gtk2hs/-Synopsis:       Binding to the ige-mac-integration library.+Synopsis:       Bindings for the Gtk/OS X integration library. Description:    ige-mac-integration helps integrate Gtk applications with the native Mac                 desktop and make it feel more like a Mac application. @@ -38,7 +38,7 @@  Library         build-depends:  base >= 4 && < 5, array, containers, haskell98, mtl,-                        glib  >= 0.11 && < 0.12, +                        glib  >= 0.11 && < 0.12,                         gtk   >= 0.11 && < 0.12 						         build-tools:    gtk2hsC2hs, gtk2hsHookGenerator, gtk2hsTypeGen@@ -47,9 +47,9 @@           Graphics.UI.Gtk.OSX           Graphics.UI.Gtk.OSX.Application         other-modules:-          Graphics.UI.Gtk.OSX.Types		  +          Graphics.UI.Gtk.OSX.Types           Graphics.UI.Gtk.OSX.Signals-		  +		         extensions:     ForeignFunctionInterface          x-Signals-File:  Graphics/UI/Gtk/OSX/Signals.chs

marshal.list view

@@ -44,3 +44,5 @@  NONE:NONE NONE:BOXED,BOXED+BOOLEAN:VOID+VOID:STRING