gtk3-mac-integration 0.3.0.3 → 0.3.1.0
raw patch · 6 files changed
+34/−6 lines, 6 files
Files
- Graphics/UI/Gtk/OSX.hs +4/−2
- Graphics/UI/Gtk/OSX/Signals.chs +2/−2
- Graphics/UI/Gtk/OSX/Window.chs +12/−0
- Graphics/UI/Gtk/OSX/extra.m +11/−0
- gtk3-mac-integration.cabal +4/−2
- hs-gtk-mac-integration.h +1/−0
Graphics/UI/Gtk/OSX.hs view
@@ -1,5 +1,7 @@ module Graphics.UI.Gtk.OSX (- module Graphics.UI.Gtk.OSX.Application- ) where+ module Graphics.UI.Gtk.OSX.Application+ , module Graphics.UI.Gtk.OSX.Window+) where import Graphics.UI.Gtk.OSX.Application+import Graphics.UI.Gtk.OSX.Window
Graphics/UI/Gtk/OSX/Signals.chs view
@@ -48,10 +48,10 @@ ) where -import Control.Monad (liftM)+import Control.Monad (liftM) import System.Glib.FFI-import System.Glib.UTFString (peekUTFString,maybePeekUTFString)+import System.Glib.UTFString (peekUTFString,maybePeekUTFString,newUTFString) import qualified System.Glib.UTFString as Glib import System.Glib.GError (failOnGError) {#import System.Glib.Signals#}
+ Graphics/UI/Gtk/OSX/Window.chs view
@@ -0,0 +1,12 @@+{-# LANGUAGE CPP #-}+module Graphics.UI.Gtk.OSX.Window (+ allowFullscreen+) where++import System.Glib.FFI+{#import Graphics.UI.Gtk.OSX.Types#}++allowFullscreen window =+ {# call unsafe gtk2hs_osx_allow_fullscreen #}+ (toDrawWindow window)+
+ Graphics/UI/Gtk/OSX/extra.m view
@@ -0,0 +1,11 @@+#include <gtk/gtk.h>+#include <gdk/gdkquartz.h>++void gtk2hs_osx_allow_fullscreen(GdkWindow *wnd)+{+ if (wnd != NULL)+ {+ NSWindow *native = gdk_quartz_window_get_nswindow (wnd);+ [native setCollectionBehavior: [native collectionBehavior] | NSWindowCollectionBehaviorFullScreenPrimary];+ }+}
gtk3-mac-integration.cabal view
@@ -1,5 +1,5 @@ Name: gtk3-mac-integration-Version: 0.3.0.3+Version: 0.3.1.0 License: LGPL-2.1 License-file: COPYING Copyright: (c) 2001-2010 The Gtk2Hs Team@@ -35,7 +35,7 @@ Source-Repository head type: git- location: https://github.com/gtk2hs/ige-mac-integration+ location: https://github.com/gtk2hs/gtk-mac-integration.git Library build-depends: base >= 4 && < 5, array -any, containers -any, mtl -any,@@ -48,6 +48,7 @@ exposed-modules: Graphics.UI.Gtk.OSX Graphics.UI.Gtk.OSX.Application+ Graphics.UI.Gtk.OSX.Window other-modules: Graphics.UI.Gtk.OSX.Types Graphics.UI.Gtk.OSX.Signals@@ -56,6 +57,7 @@ include-dirs: . cpp-options: -DDISABLE_DEPRECATED -U__BLOCKS__ -D__attribute__(A)=+ c-sources: Graphics/UI/Gtk/OSX/extra.m x-Signals-File: Graphics/UI/Gtk/OSX/Signals.chs x-Signals-Modname: Graphics.UI.Gtk.OSX.Signals
hs-gtk-mac-integration.h view
@@ -3,3 +3,4 @@ #endif #include <gtkosxapplication.h> +void gtk2hs_osx_allow_fullscreen(GdkWindow *wnd);