{-# LINE 1 "./Graphics/UI/Gtk/Windows/Invisible.chs" #-}
module Graphics.UI.Gtk.Windows.Invisible (
Invisible,
invisibleNew,
invisibleNewForScreen,
invisibleSetScreen,
invisibleGetScreen,
) where
import Control.Monad (liftM)
import System.Glib.FFI
import Graphics.UI.Gtk.Abstract.Object (makeNewObject)
import Graphics.UI.Gtk.Gdk.Screen
import Graphics.UI.Gtk.Types
{-# LINE 57 "./Graphics/UI/Gtk/Windows/Invisible.chs" #-}
{-# LINE 59 "./Graphics/UI/Gtk/Windows/Invisible.chs" #-}
invisibleNew :: IO Invisible
invisibleNew :: IO Invisible
invisibleNew =
(ForeignPtr Invisible -> Invisible, FinalizerPtr Invisible)
-> IO (Ptr Invisible) -> IO Invisible
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Invisible -> Invisible, FinalizerPtr Invisible)
forall {a}. (ForeignPtr Invisible -> Invisible, FinalizerPtr a)
mkInvisible (IO (Ptr Invisible) -> IO Invisible)
-> IO (Ptr Invisible) -> IO Invisible
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Invisible)
-> IO (Ptr Widget) -> IO (Ptr Invisible)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Invisible
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Invisible) (IO (Ptr Widget) -> IO (Ptr Invisible))
-> IO (Ptr Widget) -> IO (Ptr Invisible)
forall a b. (a -> b) -> a -> b
$
IO (Ptr Widget)
gtk_invisible_new
{-# LINE 69 "./Graphics/UI/Gtk/Windows/Invisible.chs" #-}
invisibleNewForScreen ::
Screen
-> IO Invisible
invisibleNewForScreen :: Screen -> IO Invisible
invisibleNewForScreen Screen
screen =
(ForeignPtr Invisible -> Invisible, FinalizerPtr Invisible)
-> IO (Ptr Invisible) -> IO Invisible
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewObject (ForeignPtr Invisible -> Invisible, FinalizerPtr Invisible)
forall {a}. (ForeignPtr Invisible -> Invisible, FinalizerPtr a)
mkInvisible (IO (Ptr Invisible) -> IO Invisible)
-> IO (Ptr Invisible) -> IO Invisible
forall a b. (a -> b) -> a -> b
$
(Ptr Widget -> Ptr Invisible)
-> IO (Ptr Widget) -> IO (Ptr Invisible)
forall (m :: * -> *) a1 r. Monad m => (a1 -> r) -> m a1 -> m r
liftM (Ptr Widget -> Ptr Invisible
forall a b. Ptr a -> Ptr b
castPtr :: Ptr Widget -> Ptr Invisible) (IO (Ptr Widget) -> IO (Ptr Invisible))
-> IO (Ptr Widget) -> IO (Ptr Invisible)
forall a b. (a -> b) -> a -> b
$
(\(Screen ForeignPtr Screen
arg1) -> ForeignPtr Screen
-> (Ptr Screen -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Screen
arg1 ((Ptr Screen -> IO (Ptr Widget)) -> IO (Ptr Widget))
-> (Ptr Screen -> IO (Ptr Widget)) -> IO (Ptr Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Screen
argPtr1 ->Ptr Screen -> IO (Ptr Widget)
gtk_invisible_new_for_screen Ptr Screen
argPtr1) Screen
screen
invisibleSetScreen :: Invisible
-> Screen
-> IO ()
invisibleSetScreen :: Invisible -> Screen -> IO ()
invisibleSetScreen Invisible
invisible Screen
screen =
(\(Invisible ForeignPtr Invisible
arg1) (Screen ForeignPtr Screen
arg2) -> ForeignPtr Invisible -> (Ptr Invisible -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Invisible
arg1 ((Ptr Invisible -> IO ()) -> IO ())
-> (Ptr Invisible -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Invisible
argPtr1 ->ForeignPtr Screen -> (Ptr Screen -> IO ()) -> IO ()
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Screen
arg2 ((Ptr Screen -> IO ()) -> IO ()) -> (Ptr Screen -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Screen
argPtr2 ->Ptr Invisible -> Ptr Screen -> IO ()
gtk_invisible_set_screen Ptr Invisible
argPtr1 Ptr Screen
argPtr2) Invisible
invisible Screen
screen
invisibleGetScreen :: Invisible
-> IO Screen
invisibleGetScreen :: Invisible -> IO Screen
invisibleGetScreen Invisible
invisible =
(ForeignPtr Screen -> Screen, FinalizerPtr Screen)
-> IO (Ptr Screen) -> IO Screen
forall obj.
GObjectClass obj =>
(ForeignPtr obj -> obj, FinalizerPtr obj) -> IO (Ptr obj) -> IO obj
makeNewGObject (ForeignPtr Screen -> Screen, FinalizerPtr Screen)
forall {a}. (ForeignPtr Screen -> Screen, FinalizerPtr a)
mkScreen (IO (Ptr Screen) -> IO Screen) -> IO (Ptr Screen) -> IO Screen
forall a b. (a -> b) -> a -> b
$
(\(Invisible ForeignPtr Invisible
arg1) -> ForeignPtr Invisible
-> (Ptr Invisible -> IO (Ptr Screen)) -> IO (Ptr Screen)
forall a b. ForeignPtr a -> (Ptr a -> IO b) -> IO b
withForeignPtr ForeignPtr Invisible
arg1 ((Ptr Invisible -> IO (Ptr Screen)) -> IO (Ptr Screen))
-> (Ptr Invisible -> IO (Ptr Screen)) -> IO (Ptr Screen)
forall a b. (a -> b) -> a -> b
$ \Ptr Invisible
argPtr1 ->Ptr Invisible -> IO (Ptr Screen)
gtk_invisible_get_screen Ptr Invisible
argPtr1) Invisible
invisible
foreign import ccall safe "gtk_invisible_new"
gtk_invisible_new :: (IO (Ptr Widget))
foreign import ccall safe "gtk_invisible_new_for_screen"
gtk_invisible_new_for_screen :: ((Ptr Screen) -> (IO (Ptr Widget)))
foreign import ccall safe "gtk_invisible_set_screen"
gtk_invisible_set_screen :: ((Ptr Invisible) -> ((Ptr Screen) -> (IO ())))
foreign import ccall safe "gtk_invisible_get_screen"
gtk_invisible_get_screen :: ((Ptr Invisible) -> (IO (Ptr Screen)))